Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion de ligne par VBA+msgbox

  • Initiateur de la discussion Initiateur de la discussion BAT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BAT

XLDnaute Occasionnel
Bonjour à tous le forum,

J'ai une macro qui réalise une simple opération de :
- copier la ligne 2 de la feuille "SAISIE"
- Insère la ligne copier entre la ligne 1 et 2 de la feuille "BASE".

Voici ce code :
Code:
    Rows("2:2").Select
    Selection.Copy
    Sheets("BASE").Select
    Rows("2:2").Select
    Range("C2").Activate
    Selection.Insert Shift:=xlDown

J'aimerai simplement que lorsque je lance la macro, un MSG BOX me demande le nombre de fois que cette ligne doit être copiée.

Ainsi, si je répond 5 dans la msg box, la macro doit insérer 5 fois la ligne dans la feuille base. Je vous loint une explivcation illustrée de ce que je n'arrive pas à faire !! )

Merci d'avance de votre aide!
 

Pièces jointes

Re : Insertion de ligne par VBA+msgbox

Bonjour Bat,

Essaie ceci

Code:
Sub Test()
Nb = InputBox("Nombre de lignes à insérer : ", "Copie de Saisie vers Base")
If Nb = "" Or Nb < 1 Then Exit Sub
Rows("2:2").Copy
Sheets("BASE").Activate
Rows("2:" & 1 + Nb).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
399
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…