VBA copier formule -> dernière cellule rempli
ANABELLE_
Messages postés
9
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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'
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'
3 réponses
-
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.. -
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? -
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
