VBA : Comparaison valeurs 2 colonnes et affichage texte Résolu/Fermé

Question

Bonjour à tous, 

J'ai un problème de bureautique....

En fait j'aimerai réaliser une macro permettant de comparer les valeurs de la colonne B (à partir de la ligne 5) avec celles de la colonne F (à partir de la ligne 5).
- Si les valeurs sont égales, cela renvoi un "OUI" dans la colonne K (à partir de la ligne 5).
- Si les valeurs sont différentes, cela renvoi un "NON" dans la colonne K (à partir de la ligne 5).

et également : en cas de cellule vide en colonne B ou F, afficher une cellule vide en colonne K.

J'espère avoir été suffisamment clair ^^.
J'ai essayé de coder comme ceci, mais mes capacités sont limitées ;)

Private Sub Résultat_Click()

If Range("B5").Value <> Range("F5").Value Then
Range("K5").Value = "NON"
Else
Range("K5").Value = "OUI"
End If

End Sub


Merci d'avance !

Configuration: Windows / Chrome 47.0.2526.111

Gyrus · Answer

Bonjour,

Essaie comme cela

Sub Résultat()
Dim DerLig As Long, Ligne As Long
    With Worksheets("Feuil1")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row
        For Ligne = 5 To DerLig
            If Range("B" & Ligne).Value <> "" And Range("F" & Ligne).Value <> "" Then
                If Range("B" & Ligne).Value = Range("F" & Ligne).Value Then
                    Range("K" & Ligne).Value = "OUI"
                Else
                    Range("K" & Ligne).Value = "NON"
                End If
            Else
                Range("K" & Ligne).Value = ""
            End If
        Next Ligne
    End With
End Sub

A+

VBA : Comparaison valeurs 2 colonnes et affichage texte

1 réponse

Discussions similaires