J'aimerais bien mettre une condition dans l'affichage de deux USFs suivant : Sub affichage() IF [Sheet1est protégé] THEN USF1.Show ELSE USF2.Show END IF End Sub Malheureusement je ne connais pas le code pour [Sheet1 est protégé], pouvez-vous m'aider ? Merci d'avance...

Condition dans l'affichage d'une UserForm

Bonjour le forum,

J'aimerais bien mettre une condition dans l'affichage de deux USFs suivant :

Sub affichage()

IF [Sheet1est protégé] THEN

USF1.Show

ELSE

USF2.Show

END IF

End Sub

Malheureusement je ne connais pas le code pour [Sheet1 est protégé], pouvez-vous m'aider ?

Merci d'avance

Bonjour aluand54,

Peut-être avec cette condition :

If Sheets("Sheet1").ProtectContents Then

USF1.Show

Bonjour

Bonjour Vba-New

Trouvé ça

Sub affichage()

  If Sheets("Feuil1").ProtectContents = True Then
    USF1.Show
  Else
    USF2.Show
 End If
End Sub

C'est parfait tout ca.

Merci pour la qualité, la précision et la rapidité de vos réponses !

Aluand54