Etirer cellule
Bonjour à tous,
J'espère que vous saurez m'aider.
Voici mon problème:
J'ai un userform qui me permet de créer un tableau sur ma feuille de calcul.
Il me permet en réalité "d'étirer" mes formules sur une longueur donnée. La longueur étant une ligne pour chaque mois du projet.
J'ai 8 colonnes, et mon problème ce situe sur la colonne année.
Quand j'ai un projet sur plusieurs années, le tableau conserve uniquement l'année de départ puisque j'étire simplement la cellule.
Je voudrais donc que les années soit correctes.
Pour l'instant je n'arrive qu'à remplacer l'année pour janvier, je n'arrive pas à étirer la nouvelle valeur.
Dim i, lgn
Range("lgn").AutoFill Destination:=Range("lgn:E" & DernLigne) <= l'erreur est sur cette ligne
End If
Next i
Ci-joint mon fichier, pour que ce soit plus clair.
J'espère que vous pourrez m'aider.
Merci d'avance
Bonjour
à remplacer
Range(lgn).AutoFill Destination:=Range(lgn & ":E" & DernLigne)Bonjour M12,
Merci pour votre réponse.
J'ai fais comme ça :
Dim i, lgn
Next i
Malheureusement ça ne fonctionne pas, je n'ai que l'année de la première ligne qui apparaît.