Test.txt

À propos du fichier

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: 2 jours

Statistiques

La présente page de téléchargement a été vue 715 fois depuis l'envoi du fichier

Page de téléchargement

https://www.petit-fichier.fr/2014/06/19/test/   Copier

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 Test.txt sur le Web et les réseaux sociaux:

Télécharger le fichier Test.txt