Boucle prenant fin lorsque ligne vide Résolu

Question

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 ?

ccm81 · Answer

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

ccm81 · Answer

ecrit sur une seule ligne
    If .Range("A" & li).Value = .Range("D" & li).Value Then MsgBox ("Erreur en ligne " & li)
Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bon après midi

Boucle prenant fin lorsque ligne vide

3 réponses

Discussions similaires

Newsletters