Menu

Boucle prenant fin lorsque ligne vide [Résolu]

Messages postés
13
Date d'inscription
lundi 11 juin 2018
Dernière intervention
14 juin 2018
- - Dernière réponse : ccm81
Messages postés
8720
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
15 janvier 2019
- 11 juin 2018 à 14:27
Bonjour,
je suis débutante en VBA

J'ai codé la macro suivante :
Sub Mod1()
If ActiveSheet.Range("A2") = ActiveSheet.Range("D2") Then
MsgBox ("Erreur")
End If
End Sub

Je souhaiterais créer une boucle afin de tester toutes les lignes de mon tableau (toujours sur les colonnes A et D) jusqu'à ce que la ligne soit vide

Pouvez-vous m'aider ?
Afficher la suite 

Votre réponse

3 réponses

Messages postés
8720
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
15 janvier 2019
1858
0
Merci
Bonjour

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
lili4915
Messages postés
13
Date d'inscription
lundi 11 juin 2018
Dernière intervention
14 juin 2018
-
Merci beaucoup pour votre réponse !
La formule fonctionne
Cependant, j'aurais besoin que le message d'erreur m'indique la (ou les) ligne(s) en question, est-ce possible ?
Commenter la réponse de ccm81
Messages postés
8720
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
15 janvier 2019
1858
0
Merci
ecrit sur une seule ligne
    If .Range("A" & li).Value = .Range("D" & li).Value Then MsgBox ("Erreur en ligne " & li)

Cdlmnt
lili4915
Messages postés
13
Date d'inscription
lundi 11 juin 2018
Dernière intervention
14 juin 2018
-
Merci !!
Commenter la réponse de ccm81
Messages postés
8720
Date d'inscription
lundi 18 octobre 2010
Dernière intervention
15 janvier 2019
1858
0
Merci
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bon après midi
Commenter la réponse de ccm81