Boucle prenant fin lorsque ligne vide

Résolu/Fermé

lili4915 Messages postés 13 Date d'inscription lundi 11 juin 2018 Statut Membre Dernière intervention 14 juin 2018 - 11 juin 2018 à 10:14
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 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 ?

A voir également:

Boucle prenant fin lorsque ligne vide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide
Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
Chambre 1408 explication fin - Forum Cinéma / Télé

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 11 juin 2018 à 10:54

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 Statut Membre Dernière intervention 14 juin 2018
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 ?

Réponse 2 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 11 juin 2018 à 11:29

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 Statut Membre Dernière intervention 14 juin 2018
11 juin 2018 à 14:06

Merci !!

Réponse 3 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
11 juin 2018 à 14:27

De rien

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

Bon après midi

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Mon pc s'allume et s'éteint en boucle

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters