Insérer plusieurs lignes avec une macro
Fermé
DADY07
Messages postés
8
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
17 octobre 2008
-
Modifié le 24 févr. 2019 à 15:38
Thorgal28 - 23 févr. 2019 à 16:58
Thorgal28 - 23 févr. 2019 à 16:58
A voir également:
- Vba insérer plusieurs lignes
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer sommaire word - Guide
- Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
2 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 209
17 oct. 2008 à 20:01
17 oct. 2008 à 20:01
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
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
17 oct. 2008 à 20:08
La simplicité... Y a pas mieux...
Merci
23 févr. 2019 à 16:58
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".