Incrémentation de colonnes

Bonjour,

Je souhaiterai recopier cette comparaison que j'ai effectuer sur une colonne et le faire sur plusieurs colonnes.

J'ai fait une boucle for mais le resultat ne marche pas comme je le voudrais.

Si quelque personne sont plus expérimenter pour m'expliquer cela serai génial.

Je sais pas si j'ai été assez clair.

Merci pour votre aide

Voici le code :

Sub IF_test()

 'déclaration de variable

 Dim Standard As Date, I As Integer, J As Date

 For J = 2 To 45

 Standard = Cells(50, J).Value

 'Mise en place de la boucle

 For I = 2 To 49

 If Standard >= Cells(I, J).Value Then

 Cells(51, J).Value = "à Jour"

 Else: Cells(51, J).Value = "Pas à jour" 

Exit Sub

 End If 

 Next I 

Next J 

 End Sub

Bonjour

J'ai fait une boucle for mais le resultat ne marche pas comme je le voudrais.

Pas trop compris ce que vous voulez faire.

Vous comparez une date en ligne 50 avec les dates en lignes 2 à 49 sur chaque colonne entre colonne 2 et 45.

Qu'est ce qui est incorrect dans votre approche ?

J'ai comparé une cellule avec plusieur cellule de la même colonne mais ceci marche et je voudrais le reproduire sur les autres cellules.

Les dates des lignes 50 je les compares des lignes 2 à 49 mais ceci c'est bon ça marche.

Mais le probleme c'est que cette comparaison je l'ai fait pour une colonne et la je voudrais la faire pour les autres colones.

J'ai fait une comparaison de la colonne F maintenant je voudrais faire pour la G, H etc...

Je sais pas si vous m'avez compris ?

Merci pour votre temps.

J'ai fait une comparaison de la colonne F maintenant je voudrais faire pour la G, H etc...

??? Votre code le fait puisqu'il balaye les colonnes de 2 à 45 (variable J) et pour chaque variable J, il exécute entre la ligne 2 et 49.

Oui mais ça marche pas tout à fait car comme on peut le voir les colonnes K, M et N sont "à jour" alors que K50<Juin 2008 cela devrait m'afficher pas à jour et c'est ça que je ne comprend pas.

et c'est pareille pour les autres colonnes.

Essayez ceci

Sub IF_test()
 'déclaration de variable
 Dim Standard As Date, I As Integer, J As Byte

 For J = 2 To 45
    Standard = Cells(50, J).Value
 'Mise en place de la boucle
    For I = 2 To 49

        If Standard >= Cells(I, J).Value Then
            Cells(51, J).Value = "à Jour"
        Else: Cells(51, J).Value = "Pas à jour"
        Exit For
        End If

    Next I
Next J
End Sub

Si ok, pour ne pas oublier...

Crdlt

ça marche merci beaucoup.

Mais vous savez c'était quoi le problème ? Si oui vous pouvez m'expliquer svp ?

Mais vous savez c'était quoi le problème ? Si oui vous pouvez m'expliquer svp ?

En fait vous utilisiez l'instruction EXIT SUB au lieu d'EXIT FOR.
Du coup lorsque le code renvoyait "A jour" ou "Pas à jour", il sortait de la macro.
En plaçant EXIT FOR, il sort de la boucle I mais continue la boucle J pour les autres colonnes

Merci de de cloturer le fil