[Toutes versions] comparer chaque ligne de 2 colonnes et affichage msgbox [Résolu]

[AidezMoiSvp]

Bonjour,

J'aimerais comparer chaque ligne des colonnes F et G.
Quand F est supérieur à G alors msgbox avec valeur de la cellule A de la ligne concernée.
C'est clair ?


Merci

[Runsh63]

Bonjour,

Ci-dessous un bout de code à adapter en fonction du nom de ta feuille :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Compar_F_et_G()
 
With Sheets("Feuil1")
 
Dim MaValeur As Range, DernLg As Long
 
    DernLg = .Range("A" & .Rows.Count).End(xlUp).Row
 
        For Each MaValeur In .Range("A1:A" & DernLg)
            If MaValeur.Offset(0, 5).Value > MaValeur.Offset(0, 6).Value Then
                MsgBox "La valeur en colonne A est de " & MaValeur & "", vbInformation + vbOKOnly, "Valeur de la colonne A quand valeur en F est supérieure à valeur en G"
            End If
        Next MaValeur
 
End With
 
End Sub

Ci-dessous le même code mais qui te donne en plus le numéro de la ligne concernée :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Compar_F_et_G()
 
With Sheets("Feuil1")
 
Dim MaValeur As Range, DernLg As Long, NumLg As Long
 
    DernLg = .Range("A" & .Rows.Count).End(xlUp).Row
 
        For Each MaValeur In .Range("A1:A" & DernLg)
        NumLg = MaValeur.Row
            If MaValeur.Offset(0, 5).Value > MaValeur.Offset(0, 6).Value Then
                MsgBox "La valeur en colonne A de la ligne " & NumLg & " est de " & MaValeur & "", vbInformation + vbOKOnly, "Valeur de la colonne A quand valeur en F est supérieure à valeur en G"
            End If
        Next MaValeur
 
End With
 
End Sub

[AidezMoiSvp]

Nikel !

Merci