Err 13 Incompatibilte de type

Le
PST
Bonjour
Cette macro fonctionne vec 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


End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20839371
Bonjour,

En principe, cette macro fonctionne.

Sauf, si le contenu de la cellule que représente
[A1].End(xlDown) et [B1].End(xlDown) contienne
du texte plutôt qu'un nombre, tu obtiens ce
message d'erreur dans les boucles qui suivent :

For i = 1 To Bd_1
For j = 1 To Bd_2

Bd_1 et Bd_2 ne peuvent contenir du texte !




"PST" 4b37384f$0$968$
Bonjour
Cette macro fonctionne vec 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


End Sub
PST
Le #20839931
Merci pour la réponse, j'ai la solution.

En mettant :

Bd_1 = [A1].End(xlDown).row

que se soit du numérique ou du texte ça passe




Le 27/12/2009 12:10, michdenis a écrit :
Bonjour,

En principe, cette macro fonctionne.

Sauf, si le contenu de la cellule que représente
[A1].End(xlDown) et [B1].End(xlDown) contienne
du texte plutôt qu'un nombre, tu obtiens ce
message d'erreur dans les boucles qui suivent :

For i = 1 To Bd_1
For j = 1 To Bd_2

Bd_1 et Bd_2 ne peuvent contenir du texte !




"PST" 4b37384f$0$968$
Bonjour
Cette macro fonctionne vec 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


End Sub



Publicité
Poster une réponse
Anonyme