Insertion de lignes exel pour une plage de ce
jeda
-
melanie1324 -
melanie1324 -
Bonjour,
Je voudrais, en VBA, insérer sous chaque ligne, une ligne supplémentaire, pour un certain nombre de colonne et copier le contenu des cellules de la ligne dans celles insérées.
Je ne veux faire cela que sur une plage de lignes et colonnes qui serait saisie par
l'intermédiaire d'une boîte de dialogue.
Exemple :
insertion de lignes de la 15 à la ligne 20 et colonne A à M puis copie des cellules
A15 à M15 dans A16 à M16 puis A17 à M17 dans A18 à M18, ainsi de suite.
Quelqu'un peut-il m'aider et merci d'avance
Je voudrais, en VBA, insérer sous chaque ligne, une ligne supplémentaire, pour un certain nombre de colonne et copier le contenu des cellules de la ligne dans celles insérées.
Je ne veux faire cela que sur une plage de lignes et colonnes qui serait saisie par
l'intermédiaire d'une boîte de dialogue.
Exemple :
insertion de lignes de la 15 à la ligne 20 et colonne A à M puis copie des cellules
A15 à M15 dans A16 à M16 puis A17 à M17 dans A18 à M18, ainsi de suite.
Quelqu'un peut-il m'aider et merci d'avance
A voir également:
- Insertion de lignes exel pour une plage de ce
- Partage de photos en ligne - Guide
- Touche insertion clavier - Guide
- Insertion sommaire word - Guide
- Insertion liste déroulante excel - Guide
- Formulaire en ligne de meta - Guide
1 réponse
Bonjour,
voici le code
Appui sur F8 pour voir les étapes une à une
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 26/01/2011 by DLPINTERNETTEST3
a = ""
Do While a = "" 'une boucle jusqu'à un numéro d eligne correct
ligne = InputBox("A quel numéro de ligne voulez-vous rajouter une ligne?", "Numéro de lignes") 'boite de dialogue permettant de définir la ligne
If Not IsNumeric(ligne) Then
ligne = MsgBox("Veuillez taper un numéro de lignes valide svp!", vbOKOnly) 'en cas d'erreur de saisie
a = ""
Else
a = ligne
End If
Loop
a = ""
Do While a = "" 'idem que pour ligne sauf pour les colonnes
colonne = InputBox("Jusqu'à quelle colonne voulez-vous rajouter une ligne?", "Numéro de colonne")
If IsNumeric(colonne) Then
colonne = MsgBox("Veuillez taper un numéro de colonne svp!", vbOKOnly)
a = ""
Else
a = colonne
End If
Loop
Range(Cells(ligne, 1), Range(colonne & ligne)).Copy ' sélectionne la ligne définie dans la boite de dialogue 1 1ère colonne à la colonne définie dans la boite de dialogue2 à ligne définie dans la boite de dialogue 1
Cells(ligne + 1, 1).Select 'je sélectionne la ligne suivante
Selection.Insert Shift:=xlDown 'je colle mes valeurs
End Sub
voici le code
Appui sur F8 pour voir les étapes une à une
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 26/01/2011 by DLPINTERNETTEST3
a = ""
Do While a = "" 'une boucle jusqu'à un numéro d eligne correct
ligne = InputBox("A quel numéro de ligne voulez-vous rajouter une ligne?", "Numéro de lignes") 'boite de dialogue permettant de définir la ligne
If Not IsNumeric(ligne) Then
ligne = MsgBox("Veuillez taper un numéro de lignes valide svp!", vbOKOnly) 'en cas d'erreur de saisie
a = ""
Else
a = ligne
End If
Loop
a = ""
Do While a = "" 'idem que pour ligne sauf pour les colonnes
colonne = InputBox("Jusqu'à quelle colonne voulez-vous rajouter une ligne?", "Numéro de colonne")
If IsNumeric(colonne) Then
colonne = MsgBox("Veuillez taper un numéro de colonne svp!", vbOKOnly)
a = ""
Else
a = colonne
End If
Loop
Range(Cells(ligne, 1), Range(colonne & ligne)).Copy ' sélectionne la ligne définie dans la boite de dialogue 1 1ère colonne à la colonne définie dans la boite de dialogue2 à ligne définie dans la boite de dialogue 1
Cells(ligne + 1, 1).Select 'je sélectionne la ligne suivante
Selection.Insert Shift:=xlDown 'je colle mes valeurs
End Sub
