Appliquer un code sur des colonnes

Question

Je voudrais appliquer le code sur les colonnes respectives mais je ne sais pas comment faire J'ai essayé les fonctions column, entirecolumn, etc. Un message d'erreur apparaît :"Erreur d'incompatibilité" Pourriez-vous m'aiguiller svp? En vous remerciant par avance Belle soirée...

LouReeD · Accepted Answer

L'arrêt est géré par la valeur en colonne E, si E vide alors stop, j'ai donc modifier le code pour tester "D".
J'ai également modifié le test en ajoutant le "=", voici le nouveau code :

Sub DateEx()
    ligne = 2
    ajout = Range("C2")
    Do
        Do While Range("E" & ligne).Value <= Range("D" & ligne).Value
            Range("E" & ligne).Value = DateAdd("m", ajout, Range("E" & ligne).Value)
        Loop
        ligne = ligne + 1
        ajout = Range("C" & ligne)
    Loop While Range("D" & ligne) <> ""

End Sub

@ bientôt

LouReeD

LouReeD · Accepted Answer

Ce que je ne comprend pas c'est que votre code à l'origine était : Sub DateEx() ajout = Range("C2") Do While Range("E2").Value &lt;= Range("D2").Value Range("E2").Value = DateAdd("m", ajout, Range("E2").Value) Loop End Sub Donc vous partiez de la date "E" avec un ajout d'un certain nombre de mois pour trouver une date supérieur à "D". Du coup si "E" n'était pas supérieur à "D" il fallait alors qu'il y ait répétition de l'ajout jusqu'à ce que "E" soit supérieur à "D". Avec votre modification de code en mettant "D" à la place de "E" en fait la boucle ne sert à rien car forcément si on prend "D" et qu'on ajoute "C" alors "E" sera forcément plus grand mais il n'y aura pas de relation entre la date de départ de "E" et les différents ajout de "C" à cette date. Mais si cela vous convient... le code simplifié serait donc : Sub DateEx() ligne = 2 Do If Range("E" & ligne).Value &lt;= Range("D" & ligne).Value Then Range("E" & ligne).Value = DateAdd("m", Range("C" & ligne), Range("D" & ligne).Value) ligne = ligne + 1 Loop While Range("D" & ligne) &lt;&gt; "" End Sub où si la date en E est plus petite ou égale à D alors on ajoute la valeur de mois de "C" mais comme dans votre réponse il n'y a plus de lien "réel" avec la date d'origine en "E". @ bientôt LouReeD...

Xmenpl · Answer

Bonsoir, traduction svp : appliquer le code ? quel code quoi ? sur quelle colonne ? ce n'est pas trés clair commen demande...

LouReeD · Answer

Si j'ai compris : Sub DateEx() ligne = 2 ajout = Range("C2") Do While Range("E" & ligne) &lt;&gt; "" If Range("E" & ligne).Value &lt;= Range("D" & ligne).Value then Range("E" & ligne).Value = DateAdd("m", ajout, Range("E" & ligne).Value) End If ligne = ligne + 1 ajout = Range("C" & ligne) Loop End Sub Bonsoir Xmenpl Pas très clair non plus ! @ bientôt LouReeD...

LouReeD · Answer

Le code ajoute x mois à la date en colonne E si cette date est inférieur à la valeur de la colonne D où X correspond à la valeur en colonne C, mais il se peut que cet ajout fasse que "E" reste inférieur à "D", il faut donc en effet relancer le code. Maintenant s'il faut s'assurer que "E" soit &gt; ou = à "D" alors utiliser ce code ci : Sub DateEx() ligne = 2 ajout = Range("C2") Do While Range("E" & ligne) &lt;&gt; "" Do while Range("E" & ligne).Value &lt; Range("D" & ligne).Value Range("E" & ligne).Value = DateAdd("m", ajout, Range("E" & ligne).Value) Loop ligne = ligne + 1 ajout = Range("C" & ligne) Loop End Sub Première boucle pour la "descente" dans les lignes, deuxième boucle pour l'incrémentation en mois de la date "E" jusqu'à être égale ou supérieur à "D". Je n'ai pas essayé ce dernier code, mais l'idée est là s'il faut faire quelques modifications. @ bientôt LouReeD...

LouReeD · Answer

Je prend votre fichier du premier message, sous VBA je copie/colle mon code à la place du votre, voilà ce que j'ai avant de le lancer : Maintenant je clique sur le bouton, voilà ce que j'ai : Toutes les lignes "E" ont été modifiées jusqu'à arrivée à être supérieur ou égale à la colonne "D", non ? @ bientôt LouReeD...