Insertion de ligne au milieu d'un tableau
Bonjour,
Dans un tableau Excel je veux pouvoir avec une Macro insérer des lignes au milieu du tableau
J'ai bien fait une macro, mais il y a un problème a l'exécution
Si quelqu'un veut bien me donner un coup de main, car j'ai tellement fait d'essai différent que je n'arrive pas à voir ou est le bug.
Sub Macro7()
'
' Macro1 Macro
'
QU = InputBox("Combien voulez vous insérer de lignes.", "Insertion de lignes")
If QU = 0 Or QU = "" Then Exit Sub
Ref = InputBox("Numéro de la ligne au dessous de laquelle on vas insérer des lignes", "Numéro de ligne")
If Ref = 0 Or Ref = "" Then Exit Sub
'On sélectionne la ligne à copier (Ref)
Rows(Ref).Select
'On sélectionne le nombre de ligne à insérer qui doit correspondre à "Qu" de l'inputbox
Range(Rows(Ref + 1), Rows(QU - 1)).Select
'on insert les lignes
Selection.Insert Shift:=xlDown 'CopyOrigin:=xlFormatFromLeftOrAbove
'On sélectionne la ligne à copier
Rows(Ref).Select
Selection.Copy
'On copie la ligne sélectionnée sur les lignes insérées
Range(Rows(Ref + 1), Rows(Ref + QU)).Select
ActiveSheet.Paste
'On sélectionne les cellules de la colonne "A" des lignes insérées
'+ la dernières cellules afin d'incrémenter les N°
Range(Cells(Ref, 1), Cells(Ref, 1)).Select
'On renumérote les lignes colonne A
Selection.AutoFill Destination:=Range(Cells(Ref, 1), Cells(Ref + 1 + QU, 1)), Type:=xlFillDefault
'Boite de message
MsgBox "Vous avez inséré " & NbL & " Lignes" & vbCrLf & " " & vbCrLf & "Enregister le fichier"
End Sub
Bonjour,
à tester,
qu = InputBox("Combien voulez vous insérer de lignes.", "Insertion de lignes")
If qu = 0 Or qu = "" Then Exit Sub
ref = InputBox("Numéro de la ligne au dessous de laquelle on vas insérer des lignes", "Numéro de ligne")
If ref = 0 Or ref = "" Then Exit Sub
n = Val(ref) + Val(qu)
'On sélectionne le nombre de ligne à insérer qui doit correspondre à "Qu" de l'inputbox
Range(Rows(ref + 1), Rows(n)).Select
ps/
pour insérer du code utile la balise
tu peux aussi sélectionner un code et clic sur la balise
Merci beaucoup, pour votre aide, en combinant vos lignes de codes avec ce que j'avais déjà, ma macro fonctionne parfaitement bien.
MERCI
J'aurais une autre requête, sur laquelle je n'est pas du tout avancé :
Je voudrais pouvoir faire des sous-totaux par paragraphe, MAIS sans que cela ne me rajoute une ligne (comme cela se fait en automatique sous Excel)
Je voudrais pouvoir faire des sous-totaux par paragraphe, MAIS sans que cela ne me rajoute une ligne (comme cela se fait en automatique sous Excel)
voici 2 solutions possible dans le fichier ci-joint