VBA inserer n ligne à la fois

geo -  

Bonjour, quelqu'un pourrait-il m'aider !
je voudrais insérer n lignes en une seule fois à l'aide d'une macro
cette macro insère une seule ligne mais comment lui faire comprendre qu'il m'en faut n sans avoir a répéter cette macro n fois. je voudrais à partir d'une liste déroulante , insérer le nombre ligne en fonction du nombre qui s'affiche.
 


Windows / Chrome 118.0.0.0

4 réponses

  1.  Mike-31

    Bonjour,

    Ou est comme tu écris "Cette macro" ?

    et n veut dire combien de ligne ?

    et les lignes à insérer sont à la suite d'un tableau ou à partir d'une ligne fixe ?

    0
    1. geo

          Rows("2:2").Select
          Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

      salut Mike,

      par "n" je veux dire le nombre de ligne que je veux. et effectivement ces lignes seront à inserer dans un tableau. il s'agira en fonction de variable qui changera que les ligne s'insere automatiquement quand le nombre de ligne dans la liste deroulante changera

      0
      1. Mike-31

        Re,

        comme cela, mais es ce que tes lignes s''ajoute toujours au dessus de la ligne 2 parce que ligne 2 tu as déjà le nombre de ligne de référence ou veux tu les ajouter au dessous ?

            For i = 1 To Range("A2")
                Rows("2:2").Insert Shift:=xlDown
            Next i
         

        0
        1. eriiic Contributeur

          Bonjour à tous,

          ou bien comme ça :

          n = 5
Rows("2:2").Resize(n).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

          eric
           

          0