Boucle prenant fin lorsque ligne vide
Résolu
lili4915
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Boucle prenant fin lorsque ligne vide
- Partager photos en ligne - Guide
- Supprimer page word vide - Guide
- Mètre en ligne - Guide
- Caractere vide - Guide
- Aller à la ligne excel - Guide
3 réponses
Bonjour
Commence à la ligne lideb et s'arrêtera dès qu'en colonne A la cellule sera vide
Cdlmnt
Const lideb = 2
Sub Mod1()
Dim li As Long
li = lideb
With ActiveSheet
While .Range("A" & li).Value <> ""
If .Range("A" & li).Value = .Range("D" & li).Value Then MsgBox
("Erreur")
li = li+1
Wend
End With
MsgBox "terminé"
End Sub
Commence à la ligne lideb et s'arrêtera dès qu'en colonne A la cellule sera vide
Cdlmnt
La formule fonctionne
Cependant, j'aurais besoin que le message d'erreur m'indique la (ou les) ligne(s) en question, est-ce possible ?