modif code de recherche cellules vides

charette63 · 18 Septembre 2011

bonjour,

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

Code:

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 · 18 Septembre 2011

Re : modif code de recherche cellules vides

Bonjour charette63

Teste:

Code:

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 · 18 Septembre 2011

Re : modif code de recherche cellules vides

Bonjour tout le monde,

ou bien pour éviter la boucle :

Code:

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

eric

charette63 · 18 Septembre 2011

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

modif code de recherche cellules vides

charette63

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

charette63

XLDnaute Occasionnel

Discussions similaires