Activer Bouton d'option suivant valeur cellule

[cathodique]

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"

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,

 

[jpb388]

Re : Activer Bouton d'option suivant valeur cellule

Bonsoir à tous
voici ce qu'il faut

Private Sub UserForm_Initialize()
If Sheets("PV").Range("G4") = "B" Then
UserForm1.OpBt2 = True
Else
UserForm1.OpBt1 = True

End If
End Sub

 

[cathodique]

[Résolu] : Activer Bouton d'option suivant valeur cellule

Bonsoir jpb388,

Je te remercie beaucoup pour ton aide. Un novice est un novice, qu'est-ce que je suis allé chercher moi? Je me suis noyé dans un dé à coudre.

Mille mercis pour ton aide. Bonne soirée!

Cordialement,