Insertion ligne pour aller a aprés la dernière ligne. [Forums - Espace Débutants] : myDearFriend! Excel Pages

Insertion ligne pour aller a aprés la dernière ligne.		#1
ramarc Régulier XLPages 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. Pièce jointe: projetDE.xls [ Taille: 38.00 Ko - Téléchargements: 485 ]

Re: Insertion ligne pour aller a aprés la dernière ligne.		#2
Mth Accro XLPages 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() 'Définition de la variable Derlig Dim Derlig As Long 'Travaille sur l'onglet "Feuil1" With Sheets("Feuil1") 'Calcul de la dernière ligne 'Rows.count indique le nombre de ligne de la feuille ' Colonne 2 qui est la ligne remplie 'End(xlup) rmeonte jusqu'à la dernière ligne remplie 'Offset(1,0) descend d'une ligne sans changer de colonne '.row indique le numéro de la ligne trouvée Derlig = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 'insertion de la ligne en décalant vers le bas et conservant les formats .Range(Cells(Derlig, 2), .Cells(Derlig, 12)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With End Sub Bien à toi, mth

Re: Insertion ligne pour aller a aprés la dernière ligne.		#3
ramarc Régulier XLPages 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.		#4
ramarc Régulier XLPages 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. Pièce jointe: projetDE.xls [ Taille: 54.50 Ko - Téléchargements: 381 ]

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