Hébergeur de fichiers indépendant

Test.txt

À propos

Type de fichier
Fichier TXT de < 1 Ko (text/plain)
Confidentialité
Fichier public, envoyé le 19 juin 2014 à 12:23, depuis l'adresse IP 83.206.x.x (France)
Sécurité
Ne contient aucun Virus ou Malware connus - Dernière vérification: hier
Statistiques
La présente page de téléchargement a été vue 373 fois depuis l'envoi du fichier
Page de téléchargement

Aperçu du fichier


Option Explicit
Public WithEvents PieceFail1 As MSForms.CheckBox

Private Sub PieceFail1_click()
    Select Case PieceFail1.Name
        Case "CheckBox1"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label1").Caption).Value = "ChartV_Fail"
        Case "CheckBox2"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label2").Caption).Value = "ChartV_Fail"
        Case "CheckBox3"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label3").Caption).Value = "ChartV_Fail"
        Case "CheckBox4"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label4").Caption).Value = "ChartV_Fail"
        Case "CheckBox5"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label5").Caption).Value = "ChartV_Fail"
        Case "CheckBox6"
                Sheets("Base").Range("AU" & Piece_Group1.Controls("Label6").Caption).Value = "ChartV_Fail"
    End Select
End Sub




Partager le fichier

Télécharger Test.txt

Télécharger le fichier (< 1 Ko)