Macros et copier formule sur longueur colonne non définie

Résolu/Fermé
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 - 13 janv. 2015 à 21:14
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 - 14 janv. 2015 à 15:36
Bonjour
Je suis assez débutante dans le domaine des macros mais voici mon problème.
Je désire copier une formule dans les cellules d'un colonne qui aura une longueur variable selon les données compilées.

Voici ce que j'ai et bien entendu la formule arrête de se copier à la ligne 12 car je ne sais pas comment indiquer de suivre jusqu'à la dernière ligne de données?

Selection.Copy
Range("E7").Select
ActiveWindow.SmallScroll Down:=9
Range("E8:E12").Select
ActiveSheet.Paste

merci de votre aide
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
14 janv. 2015 à 08:26
Bonjour,

Il faudrait que tu indiques si la cellule copiée est une cellule quelconque sélectionnée par l'opérateur ou si elle a un emplacement prédéterminé.

De plus, tu ne dis pas quelle est la colonne à prendre en compte pour déterminer le numéro de la dernière ligne renseignée.

A+
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
14 janv. 2015 à 14:18
Bonjour

La cellule copiée est celle précédente dans la même colonne donc exemple je copie E6 dans E7 et E7 dans E8 ainsi de suite...

La colonne à prendre en compte c'est la "C"

merci bien
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 > sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
14 janv. 2015 à 14:23
erreur sur ma dernière réponse:

La colonne à prendre en compte c'est la "D"
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015
14 janv. 2015 à 14:58
Essaie avec :

Range("E6").Copy Range("E7:E" & Range("D" & Rows.Count).End(xlUp).Row)

A+
0
sbartolo Messages postés 9 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 15 janvier 2015 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
14 janv. 2015 à 15:36
ça marche :-)
un GROS merci
0