Menu

Boucle prenant fin lorsque ligne vide [Résolu]

lili4915 13 Messages postés lundi 11 juin 2018Date d'inscription 14 juin 2018 Dernière intervention - 11 juin 2018 à 10:14 - Dernière réponse : ccm81 8481 Messages postés lundi 18 octobre 2010Date d'inscription 15 juin 2018 Dernière intervention
- 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

5 réponses

ccm81 8481 Messages postés lundi 18 octobre 2010Date d'inscription 15 juin 2018 Dernière intervention - Modifié par ccm81 le 11/06/2018 à 10:54
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 13 Messages postés lundi 11 juin 2018Date d'inscription 14 juin 2018 Dernière intervention - 11 juin 2018 à 11:15
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
ccm81 8481 Messages postés lundi 18 octobre 2010Date d'inscription 15 juin 2018 Dernière intervention - Modifié par ccm81 le 11/06/2018 à 11:29
0
Merci
ecrit sur une seule ligne
    If .Range("A" & li).Value = .Range("D" & li).Value Then MsgBox ("Erreur en ligne " & li)

Cdlmnt
lili4915 13 Messages postés lundi 11 juin 2018Date d'inscription 14 juin 2018 Dernière intervention - 11 juin 2018 à 14:06
Merci !!
Commenter la réponse de ccm81
ccm81 8481 Messages postés lundi 18 octobre 2010Date d'inscription 15 juin 2018 Dernière intervention - 11 juin 2018 à 14:27
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