Insérer plusieurs lignes avec une macro
DADY07
Messages postés
8
Statut
Membre
-
Thorgal28 -
Thorgal28 -
Bonjour, quelqu'un pourrait-il m'aider !
je voudrais inserer 10 lignes en une seule fois à l'aide d'une macro
cette macro insere une seule ligne mais comment lui faire comprendre qu'il m'en faut 10 sans avoir a répéter cette macro 10 fois
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Merci d'avance
je voudrais inserer 10 lignes en une seule fois à l'aide d'une macro
cette macro insere une seule ligne mais comment lui faire comprendre qu'il m'en faut 10 sans avoir a répéter cette macro 10 fois
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Merci d'avance
Configuration: Windows XP
Internet Explorer 7.0
Internet Explorer 7.0
2 réponses
-
Bonsoir,
En lui désignant la plage, et le .select est inutile :
Rows("5:14").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ou même encore plus court si c'est les valeurs par défaut :
Rows("5:14").Insert
eric-
-
Bonjour Anksuamon,
Je confirme que la solution "simple" d'Eriic fonctionne bien.
Sub insertion_10_lignes()
'Insertion de 10 lignes à partir de la ligne 5
Rows("5:15").Insert 'Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox "Insertion de 10 lignes terminée!", vbInformation
End Sub
Note:
Attention toutefois à ne pas conserver vos données au format "Tableau" Excel (j'avais ce problème au départ!).
Si c'est le cas, reconvertissez vos vos données au format normal: Menu Excel>Design>Convert to Range
Puis re-exécutez la macro "insertion_10_lignes".
-
