Insérer plusieurs lignes avec une macro

DADY07 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Thorgal28 - 23 févr. 2019 à 16:58

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

Configuration: Windows XP
Internet Explorer 7.0

A voir également:

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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

Ankhsuamon Messages postés 47 Date d'inscription Statut Membre Dernière intervention 2

Hello Eriiic,

La simplicité... Y a pas mieux...

Merci

Thorgal28

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".

Discussions similaires

macro en fonction de la valeur d'une cellule

[VBA / Excel] Arrondir à l'entier supérieur

[VBA / Excel] Conditions Et/Ou

comparaison java/ vba/ php

[VBA/Excel] Tri croissant dans une colonne

VBA nommer une feuille

Votre réponse

Discussions similaires