afficher un useform si une cellule est vide

[tibo.v1]

Bonjour,
j'ai créé un UseForm qui s'affiche à l'ouverture d'un fichier et qui demande de remplir 2 cellules
C1 et D1
je voudrais que le UseForm s'affiche que si les cellules C1 et D1 sont vide, comment je peux écrire cela ?

merci

 

[Dull]

Re : afficher un useform si une cellule est vide

Salut tibo.v1, le Forum

Peut être comme cela dans le Module ThisWorkbook

Private Sub Workbook_Open()
If Feuil1.[C1] = "" And Feuil1.[D1] = "" Then UserForm1.Show
End Sub

Bonne Journée

 

[tibo.v1]

Re : afficher un useform si une cellule est vide

et dire que dans la case C1 il faut obligatoirement que se soit un chiffre on ecrit ca comment ?

 

[Dull]

Re : afficher un useform si une cellule est vide

Salut tibo.v1, le Forum

Alors comme cela si j'ai bien compris

Private Sub Workbook_Open()
If Not IsNumeric(Feuil1.[C1]) Or Feuil1.[C1] = "" And Feuil1.[D1] = "" Then UserForm1.Show
End Sub

Bonne Journée

 

[Pierrot93]

Re : afficher un useform si une cellule est vide

Bonjour,
Salut Dull

voir aussi ici :
afficher ou pas un UseForm selon une cellule : Excel - VBA
bonne journée
@+