VBA - Vérifier contenu d'un ensemble de cellule

Bonjour à tous,

Petite question technique sur un code VBA que je n'arrive pas à mettre en place :

J'ai un fichier excel construit comme ceci :

En colonne A, les cellules sont vides

En colonne B, les cellules contiennent une RechercheV en fonction de la colonne A ; si la recherche ne donne rien, la valeur doit être 0.

Je souhaiterais mettre en place une macro dans ce sens :

  • Pour chaque ligne de la colonne A qui ne serait pas vide, vérifier le contenu de la colonne B ;
  • Si le contenu de la colonne B = 0 afficher une MsgBox

J'ai donc saisie le code suivant :

With Sheets("Feuil1")
            For Each C In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                If C <> "" And .Range("B1:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value = "0" Then
                    MsgBox "Erreur." 
                End If
            Next C
        End With

Code qui bien entendu ne fonctionne pas ...

Si vous aviez quelque chose à me proposer je suis preneur.

En vous remerciant par avance.

Bonjour

Essayez comme ceci :

Sub test()
Dim c As Range
With Sheets("Feuil1")
    For Each c In .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
        If c <> "" And .Range("B" & c.Row) = 0 Then
            MsgBox "Erreur."
        End If
    Next c
End With
End Sub

Si ok, merci de cloturer le fil en cliquant sur le v vert à coté du bouton EDITER lors de votre réponse

Cordialement

Rechercher des sujets similaires à "vba verifier contenu ensemble"