Bonjour a tous,
J'ai créé un UserForm avec 3 case a coché, un bouton OK et un annulé
Quand je coche les casses ou pas cela écrit les informations correspondant (vrai / faux) dans des cellules
Jusque la cela fonctionne bien
Maintenant j'aimerais qu'a l'ouverture de mon Userform (Initialize), cela cherche les infos disponible dans les mêmes céllules et que cela coche les casses ou pas
Mon code si dessous ne marche pas évidement ...
Merci de votre aide
Private Sub UserForm_Initialize()
'A l'ouverture de l'userform ecrit des valeurs dans les textbox
Dim ESS1 As String
Dim ESS2 As String
Dim ESS3 As String
Sheets("Feuil1").Range("G4").Value = ESS1
Sheets("Feuil1").Range("G5").Value = ESS2
Sheets("Feuil1").Range("G6").Value = ESS3
CheckBox1 = ESS1
CheckBox2 = ESS2
CheckBox3 = ESS3
End Sub
Private Sub Annule_Click()
Unload Me
End Sub
Private Sub OK_Click()
'Bouton OK valide l'userform
Dim ESS1 As String
Dim ESS2 As String
Dim ESS3 As String
ESS1 = CheckBox1.Value
ESS2 = CheckBox2.Value
ESS3 = CheckBox3.Value
Sheets("Feuil1").Range("G4").Value = ESS1
Sheets("Feuil1").Range("G5").Value = ESS2
Sheets("Feuil1").Range("G6").Value = ESS3
Unload Me
End Sub
J'ai créé un UserForm avec 3 case a coché, un bouton OK et un annulé
Quand je coche les casses ou pas cela écrit les informations correspondant (vrai / faux) dans des cellules
Jusque la cela fonctionne bien
Maintenant j'aimerais qu'a l'ouverture de mon Userform (Initialize), cela cherche les infos disponible dans les mêmes céllules et que cela coche les casses ou pas
Mon code si dessous ne marche pas évidement ...
Merci de votre aide
Private Sub UserForm_Initialize()
'A l'ouverture de l'userform ecrit des valeurs dans les textbox
Dim ESS1 As String
Dim ESS2 As String
Dim ESS3 As String
Sheets("Feuil1").Range("G4").Value = ESS1
Sheets("Feuil1").Range("G5").Value = ESS2
Sheets("Feuil1").Range("G6").Value = ESS3
CheckBox1 = ESS1
CheckBox2 = ESS2
CheckBox3 = ESS3
End Sub
Private Sub Annule_Click()
Unload Me
End Sub
Private Sub OK_Click()
'Bouton OK valide l'userform
Dim ESS1 As String
Dim ESS2 As String
Dim ESS3 As String
ESS1 = CheckBox1.Value
ESS2 = CheckBox2.Value
ESS3 = CheckBox3.Value
Sheets("Feuil1").Range("G4").Value = ESS1
Sheets("Feuil1").Range("G5").Value = ESS2
Sheets("Feuil1").Range("G6").Value = ESS3
Unload Me
End Sub