Bonjour
Cette macro fonctionne avec des chiffres mais pas avec des mots
Message ereur incompatibilité de type 13
pourquoi
merci
Sub compare_colonnes()
Bd_1 = [A1].End(xlDown)
Bd_2 = [B1].End(xlDown)
For i = 1 To Bd_1
For j = 1 To Bd_2
If Cells(i, 1) = Cells(j, 2) Then
Cells(i, 1).Offset(0, 5).Value = "En double"
Cells(i, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399945066682943
.PatternTintAndShade = 0
End With
End If
Next
Next
Cette macro fonctionne avec des chiffres mais pas avec des mots
Message ereur incompatibilité de type 13
pourquoi
merci
Sub compare_colonnes()
Bd_1 = [A1].End(xlDown)
Bd_2 = [B1].End(xlDown)
For i = 1 To Bd_1
For j = 1 To Bd_2
If Cells(i, 1) = Cells(j, 2) Then
Cells(i, 1).Offset(0, 5).Value = "En double"
Cells(i, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399945066682943
.PatternTintAndShade = 0
End With
End If
Next
Next