Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modif code de recherche cellules vides

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

charette63

XLDnaute Occasionnel
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
 

Pièces jointes

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
485
Réponses
4
Affichages
523
Réponses
3
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…