comparaison deux colones + conditions

[angely06]

Bonjour à tous,

J'ai un fichier avec deux colonnes, et j'aimerai comparer colonne p avec colonne o qui sont remplis de date ligne par ligne
Si il y a la même date on ne touche pas, si il n'y a pas la même date on applique une couleur decriture rouge vif.
Ma feuille s'apelle historique dates.
je ne peux pas vous faire parvenir le fichier car il est cobfidentiel.

Merci de votre aide

 

[angely06]

Re : comparaison deux colones + conditions

Up! Svp ^^

 

[WUTED]

Re : comparaison deux colones + conditions

Bonjour angely06,

Je pense que c'est ta macro de mise à jour qu'il faut voir pour ça.

 

[angely06]

Re : comparaison deux colones + conditions

Ben en faite ton code compare seulement les deux premiere colone..... Apres la couleur ne se fait plus... Il faudrai quil y ai une comparaison deux a deux en faite
La colone p avec la q, la q avec r, la r avec la s etc

 

[WUTED]

Re : comparaison deux colones + conditions

Bonsoir angely06,

Essaie ça :

Sub ComparaisonDate()
     For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
        j = 15
        Do
              If Sheets("Feuil1").Range("A" & i).Offset(0, j).Value <> Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Value Then
                       Sheets("Feuil1").Range("A" & i).Offset(0, j).Font.ColorIndex = 3
                       Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Font.ColorIndex = 3
              End If
              j = j + 1
        Loop Until Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Value = ""
     Next
End Sub

Bonne soirée,
WUTED

 

[angely06]

Re : comparaison deux colones + conditions

Tu as pas oublié _ apres <>?
Edit: apres avoir mis ce qui manqué j'ai testé et il me dit erreur 13 et me surligne en jaune la phrase du loop...

 

[WUTED]

Re : comparaison deux colones + conditions

Bonjour,

C'est la présentation entre balises qui a mis ça comme ça, c'était sur la même ligne à l'origine.

 

[angely06]

Re : comparaison deux colones + conditions

J'ai edité

 

[WUTED]

Re : comparaison deux colones + conditions

Re,

J'ai aucun problème dans le fichier test que tu m'avais fourni, y'a t'il des différences au niveau des types de valeurs dans les cellules entre les deux?
Essaie avec ça sinon :

Sub ComparaisonDate()
     For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
        For j=15 To Sheets("Feuil1").Range("IV" & i).End(xlToLeft).Column - 1
              If Sheets("Feuil1").Range("A" & i).Offset(0, j).Value <> Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Value Then
                       Sheets("Feuil1").Range("A" & i).Offset(0, j).Font.ColorIndex = 3
                       Sheets("Feuil1").Range("A" & i).Offset(0, j + 1).Font.ColorIndex = 3
              End If
        Next j
     Next i
End Sub

 

[angely06]

Re : comparaison deux colones + conditions

Je ne comprend pas ta question... Tu me demande si j 'ai mis des diffs dans les colones mais ou?

 

[WUTED]

Re : comparaison deux colones + conditions

Si il n'y a que des chaines de caractères par exemple, comme dans l'exemple, où si il y'a des formules qui peuvent ou qui ont mis des valeurs d'erreur dans certaines cellules.

 

[angely06]

Re : comparaison deux colones + conditions

Effectivement ya des erreurs du a des cellules non remplie dans d'autres feuilles...
Bon la il est pas content il me met next sans for... Alors que il y a un next pour chaque for

 

[WUTED]

Re : comparaison deux colones + conditions

J'ai oublié d'enlever le Do.

EDIT : MaJ

 

[angely06]

Re : comparaison deux colones + conditions

Lol j'essaye ^^

 

[angely06]

Re : comparaison deux colones + conditions

Il me surligne de if a then en jaune

 

[angely06]

Re : comparaison deux colones + conditions

J'ai besoin de mon sauveur wuted!!!!!!