VBA copier formule -> dernière cellule rempli

Fermé
ANABELLE_ Messages postés 8 Date d'inscription mardi 23 août 2011 Statut Membre Dernière intervention 12 décembre 2011 - 12 déc. 2011 à 12:29
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 12 déc. 2011 à 14:09
Bonjour,

Déjà désolée de ce titre un peu "pourri" mais je n'avais pas assez de place pour m'exprimer clairement.
Donc pour résumer, j'extrait des chiffres d'un certain logiciel sur Excel et je veux remettre de l'ordre dans les colonnes grâce à une macro, afin de pouvoir ensuite disposer mes chiffres comme je le souhaite dans un autre tableau Excel.
Mon problème vient du fait que le nombre de ligne est aléatoire, or comme je dois copier plusieurs formules jusqu'à la dernière ligne remplie, et je ne sais pas comment faire :/
Les formules sont basiques (SI et SOMME), donc je ne pense pas que ce soit insurmontable de les copier jusqu'à la dernière ligne remplie (enfin ça l'est pour moi ^^)

Merci d'avance pour votre aide!

Ana'

A voir également:

3 réponses

ANABELLE_ Messages postés 8 Date d'inscription mardi 23 août 2011 Statut Membre Dernière intervention 12 décembre 2011 1
12 déc. 2011 à 13:38
Bonjour,

Soit je suis complètement à la ramasse et je n'ai rien compris à votre message, soit vous vous êtes complètement trompés de sujet..
1
bobfile Messages postés 2 Date d'inscription lundi 17 janvier 2011 Statut Membre Dernière intervention 12 décembre 2011
12 déc. 2011 à 12:42
Bonjour,

le mot 'salut' prend 6 case en langage C puisque il y a un case pour '\0' .....est ce que ce le cas en
algorithme?
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
12 déc. 2011 à 14:09
bonjour

trouvé sur le forum

derniere ligne/colonne utilisée de la feuille 
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column 

pour la dernière ligne de la colonne A
derlig = Range("A" & Rows.Count).End(xlUp).Row
pour la dernière colonne de la ligne 1
dercol = Cells(1,Columns.Count).End(xltoLeft).Column


bonne suite
0