Bonjour,
Cette macro ne lit pas toutes les lignes "20000" de la colonne sélectionnée.
Je voudrais également transférer tous les enregistrements coloriés vers une nouvelle feuille.
Merci pour votre aide.
Sub Compare2colonnes()
Dim Plg As Range, c As Range
Dim i As Long, Msg As String
Set Plg = Application.InputBox("Sélectionne la colonne.", Type:=8)
For Each c In Plg.Columns(1).Cells
If c < c.Offset(0, 1) Then
Union(c, c.Offset(0, 1)).Interior.ColorIndex = 6
i = i + 1
End If
Next
End Sub
Cette macro ne lit pas toutes les lignes "20000" de la colonne sélectionnée.
Je voudrais également transférer tous les enregistrements coloriés vers une nouvelle feuille.
Merci pour votre aide.
Sub Compare2colonnes()
Dim Plg As Range, c As Range
Dim i As Long, Msg As String
Set Plg = Application.InputBox("Sélectionne la colonne.", Type:=8)
For Each c In Plg.Columns(1).Cells
If c < c.Offset(0, 1) Then
Union(c, c.Offset(0, 1)).Interior.ColorIndex = 6
i = i + 1
End If
Next
End Sub