Bonjour
Cette macro fonctionne vec des chiffres mais pas avec des mots
Message ereur incompatibilit=E9 de type 13
pourquoi
merci
Sub compare_colonnes()
Bd_1 =3D [A1].End(xlDown)
Bd_2 =3D [B1].End(xlDown)
For i =3D 1 To Bd_1
For j =3D 1 To Bd_2
If Cells(i, 1) =3D Cells(j, 2) Then
Cells(i, 1).Offset(0, 5).Value =3D "En double"
Cells(i, 1).Select
With Selection.Interior
.Pattern =3D xlSolid
.PatternColorIndex =3D xlAutomatic
.ThemeColor =3D xlThemeColorAccent6
.TintAndShade =3D 0.399945066682943
.PatternTintAndShade =3D 0
End With
End If
Next
Next
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de groupe de discussion : 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
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" <pgjignorez@wanadoo.fr> a écrit dans le message de groupe de discussion :
4b37384f$0$968$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de groupe de discussion : 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
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" a écrit dans le message de groupe de di scussion : 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
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"<pgjignorez@wanadoo.fr> a écrit dans le message de groupe de di scussion :
4b37384f$0$968$ba4acef3@news.orange.fr...
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
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" a écrit dans le message de groupe de di scussion : 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