Compare colonnes Err 13 Incompatilite de type

[Hoareau]

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

 

[MJ13]

Re : Compare colonnes Err 13 Incompatilite de type

Bonjour Hoareau

As tu essayé de remplacer .value par .text?

 

[pierrejean]

Re : Compare colonnes Err 13 Incompatilite de type

bonjour Hoareau

A mon avis elle doit mal fonctionner avec des chiffres aussi

Tester avec

Bd_1 = [A1].End(xlDown).[COLOR=blue]Row
[/COLOR]Bd_2 = [B1].End(xlDown).[COLOR=blue]Row[/COLOR]

 

[Hoareau]

Re : Compare colonnes Err 13 Incompatilite de type

Merci pour la rapidité et le renseignement

Impeccable avec .row

mais pourquoi le row fait la différence

 

[pierrejean]

Re : Compare colonnes Err 13 Incompatilite de type

Re

parceque : [A1].End(xlDown).Row est le numero de ligne de la derniere cellule non vide en dessous de A1
alors que [A1].End(xlDown) est le contenu de cette meme cellule