Insertion ligne pour aller a aprés la dernière ligne. | ||
---|---|---|
Inscription: 24/08/2011
Messages:
54
Système d'exploitation: PC Version Excel utilisée: OFFICE EXCEL 2007 |
Posté le : 29-08-2011 14h35
Bonjour a tous. Enfin je suis nouveau, félicitation pour votre site, c'est bien les didacticiels j'adore, encore merci. Dans ma premiére appli je fait une insertion de ligne avec la commande CTRL i, ça marche, mais je ne comprend pas comment faire l'insertion toujour aprés la dernière ligne. dans la macro aprés avoir fait une insertion c'est bon, mais aprés l'insertion se retrouve au milieu. C'est quoi l'astuce, merci d'avance à tous. Petit fichier exemple. |
|
|
Re: Insertion ligne pour aller a aprés la dernière ligne. | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 29-08-2011 19h59
Bonsoir ramarc,
Si cela peut t'aider, voici un code qui te permet d'insérer une ligne après la dernière ligne remplie: Sub insertion() Bien à toi, mth |
|
|
Re: Insertion ligne pour aller a aprés la dernière ligne. | ||
---|---|---|
Inscription: 24/08/2011
Messages:
54
Système d'exploitation: PC Version Excel utilisée: OFFICE EXCEL 2007 |
Posté le : 30-08-2011 17h13
Bonjour,
Je te remercie c'est O.K, je conserve ce patch. Encore merci |
|
|
Re: Insertion ligne pour aller a aprés la dernière ligne. | ||
---|---|---|
Inscription: 24/08/2011
Messages:
54
Système d'exploitation: PC Version Excel utilisée: OFFICE EXCEL 2007 |
Posté le : 31-08-2011 15h26
Re bonjour a toutes et tous.
voila ou j'en suis, encore un petit soucis . Bonjour tout le monde Je remet l'ouvrage sur le métier. Ma macro pour faire un rajout de ligne c'est O.K, par contre je fait toujour l'insert a la même ligne parce-que je l'adresse en direct. peut'on mattre une variable qui collecte la derniére ligne active = Sub InserLgn1() ' ' InserLgn1 Macro ' Macro enregistrée le 29/08/2011 par ramarc ' ' Touche de raccourci du clavier: Ctrl+i ' Range("B12").Select Selection.EntireRow.Insert Sheets("Feuil2").Select Range("A2:K2").Select Selection.Copy Sheets("Feuil1").Select Range("B12").Select ActiveSheet.Paste Range("B12").Select End Sub Merci pour votre indulgence. Je met en piéce jointe mon projet. |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes