cathodique
XLDnaute Barbatruc
Bonsoir,
Je voudrai qu'à l'affichage d'un userform, l'un des 2 boutons d'option soit activé suivant valeur de la cellule G4 (A ou B).
Si G4 est vide, par défaut c'est le bouton A qui doit être activé.
voici mon code mais il ne fonctionne que pour la valeur "A"
Merci beaucoup
Cordialement,
Je voudrai qu'à l'affichage d'un userform, l'un des 2 boutons d'option soit activé suivant valeur de la cellule G4 (A ou B).
Si G4 est vide, par défaut c'est le bouton A qui doit être activé.
voici mon code mais il ne fonctionne que pour la valeur "A"
Code:
Sub Nouveau()
Load UserForm1
If Sheets("PV").Range("G4") = "A" Then
UserForm1.OpBt1 = True
Else
UserForm1.OpBt2 = False
If Sheets("PV").Range("G4") = "B" Then
UserForm1.OpBt1 = False
Else
UserForm1.OpBt2 = True
If Sheets("PV").Range("G4").Value = "" Then
UserForm1.OpBt1 = True And UserForm1.OpBt2 = False
End If
End If
End If
UserForm1.Show
End Sub
Merci beaucoup
Cordialement,