Excel : Conditions si ou mise en forme

ceci ne s applique que a ta colonne A?

bonjout

tu peux utiliser la mise en forme conditionnelle avec la mise en surbrillance

je ferai colonne par colonne donc pour l'instant oui
en faite j'ai une multitude de mots dans ces colonnes et je voudrais avoir qque chose qui m'indique quand j'ai un doublon

oula ce se complique je pensais que c t seulement avec d lettre tu as bcp de ref differente?

voila g trouver:

tiens tu peux executer ce code derriere un bouton il trie t donné et met t doublon de la meme coulleur si 2 doublons se suivent un est en rouge et l autre en bleu

Columns("A:A").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1:A68000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:A68000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

i = 1

numcouleur = vbRed
Do Until i = 1000

If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Range(Cells(i, 1), Cells(i + 1, 1)).Font.Color = numcouleur
If Cells(i, 1).Value <> Cells(i + 2, 1).Value Then
If numcouleur = vbRed Then
numcouleur = vbBlue
Else
numcouleur = vbRed
End If
End If
End If
i = i + 1
Loop

End Sub

re

bien sur si tu as plusieur colonne avec des donnée remplace le :
Columns("A:A").Select du debut parpar exemple t donné vous jusqua la colonne h par
:Columns("A:H").Select
de meme pour:
.SetRange Range("A1:A68000") par:
.SetRange Range("A1:H68000")

Merci a vous deux
mais il va falloir que je digere et comprendre vos reponses , je ne suis pas un pro.
je vous tiendrai au courant si je m'en sort
a+ et merci

bonjour
quel est ton message?

re
tu peux essayé en retirant les activeworkbook

Salut,
oulà, pas mal de soucis de compatibilité sur le tri :
SortFields => inexistant en 2003, jvérifierai + tard pour excel 2007
pareil : Range("A1:A68000") ne peut fonctionner qu'en excel 2007 (excel 2003 ne fournit que 65536 lignes)...
ensuite Do Until i = 1000 : il serait plus judicieux de determiner la derniere cellule non vide de la plage et boucler de la 1ere ligne à à celle-ci
etc...
Apres pourquoi vouloir absolument coder qd une manipulation simple et facilement répétable pour un non-initié au vba (formule/MFC) peut résoudre le pb ? La solution la plus simple est bien souvent la meilleure (j'aurais bien mis toujours mais ça va lancer un débat lol) !

re

je suis d'accord avec toi pr la solution mais trouve moi une formule qui trie les enregistrement et qui met un doublon sur 2 d'1 couleur <> j crois pas trop !!

les chiffre ds mon code son bien sur fictif il faut les adapter a son pb!
voila avec la 1ere ligne vide

vide= Worksheets("feuil1").Cells(1, "A").End(xlDown).Row + 1
Columns("A:A").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1:vide") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:vide")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

i = 1

numcouleur = vbRed
Do Until i = vide

If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Range(Cells(i, 1), Cells(i + 1, 1)).Font.Color = numcouleur
If Cells(i, 1).Value <> Cells(i + 2, 1).Value Then
If numcouleur = vbRed Then
numcouleur = vbBlue
Else
numcouleur = vbRed
End If
End If
End If
i = i + 1
Loop

End Sub

Re,
premiere chose tu devrais tester ton code avant de le poster :
Range("A1:vide") => "A1:A" & vide
ensuite tu dis : "qui met un doublon sur 2 d'1 couleur <> j crois pas trop !! "...en fait tu mets les 2 de la meme couleur, c'est ici : Range(Cells(i, 1), Cells(i + 1, 1)).Font.Color = numcouleur
du coup, ça ferait :

vide = Worksheets("feuil1").Cells(1, "A").End(xlDown).Row + 1
Columns("A:A").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1:A" & vide) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:A" & vide)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

i = 1
numcouleur = vbRed

Do Until i = vide
    If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
        Cells(i + 1, 1).Font.Color = numcouleur
        If Cells(i, 1).Value <> Cells(i + 2, 1).Value Then
            If numcouleur = vbRed Then
                numcouleur = vbBlue
            Else
                numcouleur = vbRed
            End If
        End If
    End If
    i = i + 1
Loop

=> mettra tous les codes en double en couleur sauf le 1er (avec changemnt de couleur 1 fois sur 2)
bon, ça change pas le fait que ce code ne fcontionnera que sur excel 2007 (SortFields) !
enfin moi jdis ça, c'est pour aider et puis on va pas debattre sur un post résolu...
bonne soirée

re

bah mon code je l'zi tester et il met bie un doublon sur 2 de couleur <>

bonjour

Bah non il faut travailler dessus mais grace a l'enregistreur de macro pas besoin de faire tout par coeur