Discussion :

[Sergeras]

Bonjour,

Mon chef m'a demander de gérer des stocks, pour cela je recopie des tonnes de numéros de commande et de date dans un tableau excel,
j'essaye depuis plusieurs jours de créer une maccro pouvant vérifier d'éventuelles erreurs de frappe.

j'aimerai que la maccro compare deux date type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("b3") > Range("d3") Then

Puis la case ce colorie si je me suis trompé type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("b3").Select
With Selection.Interior
    .ColorIndex = 40
    .Pattern = xlSolid
End With
   End If

Mais ce que je ne sais pas faire c'est faire descendre le contrôle :
Incrémenter 1 à b3 et C3.
car mon tableau ne cesse de grandir et je ne peux pas répéter indéfiniment la formule type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range ("b4") > Range("c4")
Range ("b5") > Range("c5")

ect...

Je vous remercie grandement pour votre aide,
en espérant avoir été assez clair et précis

PS: je pense que la comparaison entre les dates devrait s'arrêter lorsque les cases sont vide pour ne pas à descendre sans cesse.

[Gorfael]

Salut
Avant d'aborder une macro pour ça, essaies les MFC :
tu sélectionnes la colonne B (B1 devient la cellule active)
menu Format>>Mise en Format conditionnelle
condition 1
case 1 ; la formule est
case 2 : =($C1>0)*($B1>$C1)
Format : fond rouge, police jaune (par exemple)
tu valides
Si une cellule de la colonne B est strictement supérieure à la valeur de C de la même ligne et que C est supérieure à 0 (ni nulle ni négative), la cellule deviendra rouge

Tu peux tester.
tu peux même faire un copier le format de la colonne B sur la colonne C

Si ça ne te convient pas, on peut le faire par macro, mais dans ce cas, il faut prévoir la commande d'exécution de la macro : soit par lancement "manuel" (menu macros ou bouton), soit par lancement automatique (si on change la valeur de B ou de C).

Mais pour un fonctionnement comme tu le décris, la MFC me semble préférable.
A+

[a.dequidt]

Il suffit de faire une boucle qui se répete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub test()
Dim ligne_debut As Integer
Dim ligne_fin As Integer
ligne_debut = 3
' va récupérer l'indice de la derniere ligne ou la cellule A est non vide
ligne_fin = Range("A65535").End(xlUp).Row
For i = ligne_debut To ligne_fin
    If Range("B" & i) > Range("D" & i) Then
        Range("B" & i).Select
        With Selection.Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    End If
Next i
End Sub

Ce code ne marchera QUE si la colonne A de ton fichier contient les dates.
Sinon il faut que tu arrives a récupérer la derniere ligne ou il y a une date, et tu attribues l'indice a la ligne a ligne_fin

[Sergeras]

Je vous remerci grandement pour votre aide
Vous m'avez vraiment bien renseigné