Bonsoir,
J'ai fait un code qui fonctionne très bien, sauf que j'ai comme l'impression qu'il fait pas exactement ce à quoi je m'attends.
Le code permet de lancer un UserForm si 2 conditions sont réunies ; et plus précisément celle-ci :
-Si la feuille est vide, alors ouvrir l'UserForm.
Ça marche très bien.
Par ailleurs, si je renseigne des infos dans la feuille ; l'userform ne s'ouvre plus.
Très bien !
Si je supprime les données, que je clique sur une autre feuille, alors l'UserForm ne s'ouvre pas. La feuille est pourtant vide !
Je retourne sur une autre feuille, puis je reviens sur la feuille en question ; et là l'UserForm apparaît.
Sauriez-vous me dire d'où peut bien venir ce phénomène ??
Je joins un document pour illustrer ainsi que le code.
Dim a, b
Private Sub Worksheet_Activate()
a = 0
a = Application.WorksheetFunction.CountA(Rows("2:26"))
If a = 0 And b = 0 Then UserForm1.Show
If a = 0 Then b = 0 Else b = 1
End Sub
Merci de votre attention !
Bonne soirée.