VBA inserer n ligne à la fois

geo -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -

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 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     

    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
  2. 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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     

    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
  4. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     

    Bonjour à tous,

    ou bien comme ça :

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

    eric
     

    0