Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compare colonnes Err 13 Incompatilite de type

Hoareau

XLDnaute Occasionnel
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
 

pierrejean

XLDnaute Barbatruc
Re : Compare colonnes Err 13 Incompatilite de type

bonjour Hoareau

A mon avis elle doit mal fonctionner avec des chiffres aussi

Tester avec

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

pierrejean

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…