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

 

[WUTED]

Re : comparaison deux colones + conditions

Re,

Si tu veux, ça a pas vraiment d'importance.

 

[angely06]

Re : comparaison deux colones + conditions

Le fichier est beaucoup trop gros

 

[WUTED]

Re : comparaison deux colones + conditions

Essayer d'en faire un .zip peut-être? Sinon tu supprimes la moitié des données, tu laisses juste quelques lignes exemples...

 

[angely06]

Re : comparaison deux colones + conditions

Voila, cest fait

 

[WUTED]

Re : comparaison deux colones + conditions

Re,

Copie/Colle ça :

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

A noter que dans ton exemple on compare la colonne P & Q et non P & O, si c'est avec Q qu'il faut comparer P, prends ce code là :

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

 

[angely06]

Re : comparaison deux colones + conditions

Il aime pas ton then lol
edit: c bon j'essaye

 

[WUTED]

Re : comparaison deux colones + conditions

J'ai la même macro, à l'espace prés dans ton fichier test et y'a aucun problème, t'as bien fait l'espace entre ">" et "_" ?

 

[angely06]

Re : comparaison deux colones + conditions

Alors ilme surligne
For i.............. Row et me dis erreur d'exucution 9

Non au debut j'avais pas espacé d' ou mon edit

 

[WUTED]

Re : comparaison deux colones + conditions

Elle s'appelle comment ta feuille dans ton vrai fichier?

 

[angely06]

Re : comparaison deux colones + conditions

Historiques_dates et j' ai mis ça

 

[angely06]

Re : comparaison deux colones + conditions

Tu parles dela feuille macro?
Sinon c'est Historique Dates

 

[WUTED]

Re : comparaison deux colones + conditions

Je parle du nom de ta feuille, "Feuil1" par défaut.

 

[angely06]

Re : comparaison deux colones + conditions

Je l'ai mis

Edit: j'ai beau mettre les deux çane marche pas, quand ça compile il me met erreur neuf. L'indice n'appartient pas à la sélection

 

[WUTED]

Re : comparaison deux colones + conditions

Regarde le nom de ta feuille dans ton projet VBA.

A plus tard,

WUTED

 

[angely06]

Re : comparaison deux colones + conditions

Alors ça marche mais les dates apparues en rouge reste sur seulement les deux colonne comparé or j'aimerai que sa decale petit a petit que les mises a jour decalent les colonne