Bonjour je suis capable de cr=E9er une macro commen=E7ant=20
avec c1 mais j'ai besoin de quelque chose qui commence=20
avec b5 maintenant ... quelqu'un peut m'aider??? je=20
m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells =3D Range(Range("C1"), ActiveCell).Count
Range("C2").Select
For i =3D 2 To CountofCells
For j =3D i - 1 To 1 Step -1
If Cells(i, 3).Value =3D Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex =3D 3 ' 3=3Dred
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
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
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que dasn tes déclarations cells(I,3) , 3 représente le N° de ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de
conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B".
J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine-----
Bonjour je suis capable de créer une macro commençant
avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je
m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 3).Value = Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
.
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que dasn tes déclarations cells(I,3) , 3 représente le N° de ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
souris
j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct... tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
j'ai du manquer quelque chose ... j'ai bien remplacé les
3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates()
Range("b5").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("b5"), ActiveCell).Count
Range("b6").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 2).Value = Cells(j, 2).Value Then
Cells(i, 2).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
-----Message d'origine-----
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas
que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de
conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B".
J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine-----
Bonjour je suis capable de créer une macro commençant
avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je
m'arrache les cheveux sans bon sens! merci de votre
aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 3).Value = Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
.
j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct... tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
exact, le problème vient du fait que tu fais démarrer ton I de 2. il faut le faire démarrer de cellule en dessous de B5 c.à.d de 6 et ne pas oublier de décaler countofcells de la même valeur -1. Je ne vois pas l'intêrêt de faire range("B6").select d'ailleurs. Il n'empêche que ton programme n'est pas très clair! Que veux-tu faire exactement ?
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
.
exact, le problème vient du fait que tu fais démarrer ton
I de 2. il faut le faire démarrer de cellule en dessous
de B5 c.à.d de 6 et ne pas oublier de décaler
countofcells de la même valeur -1.
Je ne vois pas l'intêrêt de faire range("B6").select
d'ailleurs.
Il n'empêche que ton programme n'est pas très clair! Que
veux-tu faire exactement ?
-----Message d'origine-----
j'ai du manquer quelque chose ... j'ai bien remplacé les
3 par 2 mais il faut croire que je ne suis pas
correct...
tu peux me corriger?
Sub FindAndColorDuplicates()
Range("b5").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("b5"), ActiveCell).Count
Range("b6").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 2).Value = Cells(j, 2).Value Then
Cells(i, 2).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
-----Message d'origine-----
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas
que
dasn tes déclarations cells(I,3) , 3 représente le N°
de
ta colonne ( en l'occurence "C"). par voie de
conséquence, il te faut remplacer par 3 par 2 puisque
ta
colonne est désormais "B".
J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine-----
Bonjour je suis capable de créer une macro commençant
avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je
m'arrache les cheveux sans bon sens! merci de votre
aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 3).Value = Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
.
exact, le problème vient du fait que tu fais démarrer ton I de 2. il faut le faire démarrer de cellule en dessous de B5 c.à.d de 6 et ne pas oublier de décaler countofcells de la même valeur -1. Je ne vois pas l'intêrêt de faire range("B6").select d'ailleurs. Il n'empêche que ton programme n'est pas très clair! Que veux-tu faire exactement ?
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
.
j'ai trouvé mon problème! merci beaucoup!
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
.
j'ai trouvé mon problème! merci beaucoup!
-----Message d'origine-----
j'ai du manquer quelque chose ... j'ai bien remplacé les
3 par 2 mais il faut croire que je ne suis pas
correct...
tu peux me corriger?
Sub FindAndColorDuplicates()
Range("b5").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("b5"), ActiveCell).Count
Range("b6").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 2).Value = Cells(j, 2).Value Then
Cells(i, 2).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
-----Message d'origine-----
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas
que
dasn tes déclarations cells(I,3) , 3 représente le N°
de
ta colonne ( en l'occurence "C"). par voie de
conséquence, il te faut remplacer par 3 par 2 puisque
ta
colonne est désormais "B".
J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine-----
Bonjour je suis capable de créer une macro commençant
avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je
m'arrache les cheveux sans bon sens! merci de votre
aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 3).Value = Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
.
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les 3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
.
souris75
merci j'ai vu ça après ton message! En fait je veux éviter des doublons et tout ce que j'ai essayé jusqu'à présent ne fonctionne pas.... nb.si , format conditionnel et validation.
j'ai une la colonne B qui contient des numéros de téléphone dans ce format (xxx)xxx-xxxx qui débute à B6. Je veux faire en sorte de voir si il y a répétition...et si possible dans une autre couleur... mais rien ne fonctionne! Je décourage alors j'ai créé cette macro! Je ne sais pas jusqu'à quel point elle peut marcher...
Alors toute suggestion est bienvenue!
-----Message d'origine----- exact, le problème vient du fait que tu fais démarrer ton
I de 2. il faut le faire démarrer de cellule en dessous de B5 c.à.d de 6 et ne pas oublier de décaler countofcells de la même valeur -1. Je ne vois pas l'intêrêt de faire range("B6").select d'ailleurs. Il n'empêche que ton programme n'est pas très clair! Que veux-tu faire exactement ?
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les
3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
.
.
.
merci j'ai vu ça après ton message! En fait je veux
éviter des doublons et tout ce que j'ai essayé jusqu'à
présent ne fonctionne pas.... nb.si , format conditionnel
et validation.
j'ai une la colonne B qui contient des numéros de
téléphone dans ce format (xxx)xxx-xxxx qui débute à B6.
Je veux faire en sorte de voir si il y a répétition...et
si possible dans une autre couleur... mais rien ne
fonctionne! Je décourage alors j'ai créé cette macro! Je
ne sais pas jusqu'à quel point elle peut marcher...
Alors toute suggestion est bienvenue!
-----Message d'origine-----
exact, le problème vient du fait que tu fais démarrer
ton
I de 2. il faut le faire démarrer de cellule en dessous
de B5 c.à.d de 6 et ne pas oublier de décaler
countofcells de la même valeur -1.
Je ne vois pas l'intêrêt de faire range("B6").select
d'ailleurs.
Il n'empêche que ton programme n'est pas très clair! Que
veux-tu faire exactement ?
-----Message d'origine-----
j'ai du manquer quelque chose ... j'ai bien remplacé
les
3 par 2 mais il faut croire que je ne suis pas
correct...
tu peux me corriger?
Sub FindAndColorDuplicates()
Range("b5").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("b5"), ActiveCell).Count
Range("b6").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 2).Value = Cells(j, 2).Value Then
Cells(i, 2).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
-----Message d'origine-----
tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas
que
dasn tes déclarations cells(I,3) , 3 représente le N°
de
ta colonne ( en l'occurence "C"). par voie de
conséquence, il te faut remplacer par 3 par 2 puisque
ta
colonne est désormais "B".
J'espère que tu as compris le principe. Autrement, à
ta
dispo
-----Message d'origine-----
Bonjour je suis capable de créer une macro commençant
avec c1 mais j'ai besoin de quelque chose qui
commence
avec b5 maintenant ... quelqu'un peut m'aider??? je
m'arrache les cheveux sans bon sens! merci de votre
aide!
Sub Trouve et met en rouge les duplicatas()
Range("C1").Select
Selection.End(xlDown).Select
CountofCells = Range(Range("C1"),
ActiveCell).Count
Range("C2").Select
For i = 2 To CountofCells
For j = i - 1 To 1 Step -1
If Cells(i, 3).Value = Cells(j, 3).Value Then
Cells(i, 3).Font.ColorIndex = 3 ' 3=red
Exit For 'if finds ones it exits j loop
End If
Next j
Next i
End Sub
.
merci j'ai vu ça après ton message! En fait je veux éviter des doublons et tout ce que j'ai essayé jusqu'à présent ne fonctionne pas.... nb.si , format conditionnel et validation.
j'ai une la colonne B qui contient des numéros de téléphone dans ce format (xxx)xxx-xxxx qui débute à B6. Je veux faire en sorte de voir si il y a répétition...et si possible dans une autre couleur... mais rien ne fonctionne! Je décourage alors j'ai créé cette macro! Je ne sais pas jusqu'à quel point elle peut marcher...
Alors toute suggestion est bienvenue!
-----Message d'origine----- exact, le problème vient du fait que tu fais démarrer ton
I de 2. il faut le faire démarrer de cellule en dessous de B5 c.à.d de 6 et ne pas oublier de décaler countofcells de la même valeur -1. Je ne vois pas l'intêrêt de faire range("B6").select d'ailleurs. Il n'empêche que ton programme n'est pas très clair! Que veux-tu faire exactement ?
-----Message d'origine----- j'ai du manquer quelque chose ... j'ai bien remplacé les
3 par 2 mais il faut croire que je ne suis pas correct...
tu peux me corriger?
Sub FindAndColorDuplicates() Range("b5").Select Selection.End(xlDown).Select CountofCells = Range(Range("b5"), ActiveCell).Count Range("b6").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 2).Value = Cells(j, 2).Value Then Cells(i, 2).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub
-----Message d'origine----- tu remplaces C1 par B5 et C2 par B6. Tu n'oublies pas que
dasn tes déclarations cells(I,3) , 3 représente le N° de
ta colonne ( en l'occurence "C"). par voie de conséquence, il te faut remplacer par 3 par 2 puisque ta
colonne est désormais "B". J'espère que tu as compris le principe. Autrement, à ta
dispo
-----Message d'origine----- Bonjour je suis capable de créer une macro commençant avec c1 mais j'ai besoin de quelque chose qui commence
avec b5 maintenant ... quelqu'un peut m'aider??? je m'arrache les cheveux sans bon sens! merci de votre aide!
Sub Trouve et met en rouge les duplicatas() Range("C1").Select Selection.End(xlDown).Select CountofCells = Range(Range("C1"), ActiveCell).Count
Range("C2").Select For i = 2 To CountofCells For j = i - 1 To 1 Step -1 If Cells(i, 3).Value = Cells(j, 3).Value Then Cells(i, 3).Font.ColorIndex = 3 ' 3=red Exit For 'if finds ones it exits j loop End If Next j Next i End Sub .
