Copie incrémentée excel

Résolu/Fermé
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 3 févr. 2010 à 08:11
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 3 févr. 2010 à 10:29
Bonjour, je souhaite créer une macro excel dont le but serait de faire une copie incrémentée jusqu'a la dernière ligne où il y a des données, comme lorsqu'on double clique sur la poignée d'une cellule.
Merci d'avance.
A voir également:

8 réponses

tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
3 févr. 2010 à 09:44
Oups, le temps de poster et c'était résolu....
bonne journée
1
garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
3 févr. 2010 à 08:15
maintient ctrl quand tu déplace le croix de copie
0
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
3 févr. 2010 à 08:27
Je n'en vois pas trop l'utilité ??!!
0
garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
3 févr. 2010 à 08:35
ben c'est une facon manuel de copier une cellule enl'incrémentant de 1 ^^

mais est ce vraiment utile de faire une macro pour une simple copie avec incrémentation ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
3 févr. 2010 à 08:35
Oui justement, c'est ce qu'il me faut
0
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
3 févr. 2010 à 09:42
En fait j'ai trouvé le moyen de régler mon problème. Merci quand même.
0
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
3 févr. 2010 à 09:43
salut,
tu peux faire un truc comme ça :
ligfin = ActiveCell.End(xlDown).Row - 1
Do While ActiveCell.Row <> ligfin
ActiveCell.Offset(1, 0).Value = ActiveCell.Value + 1
ActiveCell.Offset(1, 0).Select
Loop
0
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
3 févr. 2010 à 10:29
Merci quand même tompols
0