VBA - Vérifier contenu d'un ensemble de cellule Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
T
Twister_Tkd
Jeune membre
Jeune membre
Messages : 25
Inscrit le : 21 décembre 2016
Version d'Excel : 2016 FR

Message par Twister_Tkd » 3 août 2017, 12:08

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.
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'376
Appréciations reçues : 112
Inscrit le : 27 avril 2007
Version d'Excel : Office 365, Mac 2011

Message par Dan » 3 août 2017, 13:04

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
@+ Dan ;)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message