modif code de recherche cellules vides

[charette63]

bonjour,

j'ai un code qui m'ouvre une userform si certaines cellules dans un range ne sont pas remplies, le voici

Dim i As Byte
  For i = 4 To 20
   If Range("A" & i) <> "" And Range("I" & i) = "" Then
    UserForm8.Show
  End If
Next

en gros, l'usf me prévient donc que mon tableau n'est pas complet et me propose soit de le completer ou soit de sortir du tableau.

le problème est que si j'ai plus d'une cellule vide, il faut que je clique sur "sortir" de l'USF autant de fois qu'il y a de cellules vides.

Est-il possible de modifier le code pour que le test "cellule vide" ne se fasse qu'une seule fois?

je joint un fichier qui relate mon problème

merci
cordialement
Thierry

 

[pierrejean]

Re : modif code de recherche cellules vides

Bonjour charette63

Teste:

Sub lignevide()
Dim i As Byte
  For i = 1 To 10
   If Range("A" & i) <> "" And Range("B" & i) = "" Then
   UserForm1.Show
   Exit Sub
   End If
   Next
End Sub

 

[eriiic]

Re : modif code de recherche cellules vides

Bonjour tout le monde,

ou bien pour éviter la boucle :

If Application.CountA([A4:A20], [I4:I20]) < 34 Then
     UserForm8.Show
End If

eric

 

[charette63]

bonsoir messieurs,

c'est une merveille, mais me voilà de nouveau devant un litige, quel code choisir?

Comme j'ai besoin de cette fonction sous deux evenements, j'utiliserai donc les deux codes.

avec tout mes remerciements

cordialement
Thierry