code VBA fonction si avec une boucle

[excel31]

Bonjour à tous. 🙂

je suis débutant en VBA et j'ai besoin d'un code "fonction si avec une boucle"

Voici l'explication de ce que doit faire le code VBA :

Je suis dans la Feuil1 sur la cellule I5 (il y a une date quelconque)

lorsque que le code est exécuté

1_ je doit atterrir en Feuil2 cellule D4 (il y a une date
quelconque également) et appliquer la fonction qui
suit.
2_ SI D4<L30(dans cette cellule la date d'aujourd'hui)
3_ SI VRAI _ passer à la cellule suivante "juste en
dessous" et recommencer l'étape 2
4_ SI FAUX _ COPIER la cellule et la COLLER dans la Feuil1 en cellule I5

merci svp de m'apporter votre aide.

 

[Excel-lent]

Re : code VBA fonction si avec une boucle

Bonsoir et bienvenu sur le forum Excel31,


Pour information, tu n'es pas au bonne endroit!!!

Ce qui explique en grande partie que tu n'es toujours pas de réponse!

D'autre part, ton explication est incomplète! Sans ton exemple (fichier excel), je ne peux compléter par moi-même les manques!

Merci de m'être ton fichier!

En attendant voici déjà une première ébauche :

Sub Excel31()

Dim Ligne As Long
Ligne = 4

With Sheets("Feuil2")
   
   [B][U]For[/U][/B] i = 1 [U][B]To[/B][/U] x [COLOR="Green"]' remplacer x par le nombre de fois que tu souhaite répéter [U][B]la boucle[/B][/U][/COLOR]
       If .Range("D" & Ligne) < .Range("L30") Then
            Ligne = Ligne + 1
       Else
            Sheets("Feuil1").Range("I5") = .Range("D" & Ligne)
   [B][U]Next i[/U][/B]

End With
End Sub

Bonne soirée

PS. : peut-être que si PascalXLD passe par là, voyant ton ton post il le déplacera au bonne endroit?

 

[PascalXLD]

Re : code VBA fonction si avec une boucle

Bonjour

Voilà c'est déplacé 😉

 

[excel31]

Re : code VBA fonction si avec une boucle

Bonjour,

merci à Pascal XLD et à Excel-lent

le code ne marche donc voici mon fichier avec également mon premier code vba.
présentation du fichier excel PLANNING.

la Feuil1 présente les projets en cours (n°,la date de début et de fin ainsi que le poste sur lequel il est réalisé
la Feuil2 n'étant que la base de donnée premettant d'extraire les informations pour les reporter dans la Feuil1 et ainsi avoir une bonne visibilité du planning.

je veux que mon code modifie automatiquement la date de fin du projet en fonction de la date d'aujourd'hui.
Le n° du projet et la date de début sont modifiés automatiquement par la fonction BDLIRE

voilà les quelques détails en plus.
j'ai besoin de votre aide merci @+ 😉