Modifier une macro: Ajouter des lignes

Résolu
nonossov -  
Bonjour,

Mes amis, j'ai une macro qui ajoute des lignes, mais si les données se trouvent dans la colonne A, voila le code: 

Public Sub ajout_ligne()
Dim lig As Long, DerLig As Long
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row - 1
    For lig = DerLig To 1 Step -1
        Rows(lig + 1).Insert
    Next lig
End Sub


Est-ce qu'est possible de la rendre applicable dans toutes les colonnes: Exepmle:

https://www.cjoint.com/c/GCFlyIxCrMP

Merci infiniment

1 réponse

  1.  f894009
    Bonjour,
    Appel avec passage du numero de clonne 

    'appel
Sub test()
    ajout_ligne (5)
End Sub

'NCol: numero de colonne a tester
Public Sub ajout_ligne(NCol)
Dim lig As Long, DerLig As Long
    DerLig = Cells(Rows.Count, NCol).End(xlUp).Row - 1
    For lig = DerLig To 1 Step -1
        Rows(lig + 1).Insert
    Next lig
End Sub
    1. nonossov Auteur
      c'est impérativement de placer les premières données dans le colonne E est ce qu'il est possible de rendre la macro variable selon les différents cas??
    2. f894009
      @nonossovRe,
      Ben oui! Remplacez le 5 par ce que vous voulez
    3. nonossov Auteur
      Je sais que ça cest trop, Mr f894009, mais est-ce qu'il y a une méthode sans changement de code, j'ai beaucoup de cas à traiter et ça sera dur de répéter la tache a chaque fois avec modification de cod!!
    5. nonossov Auteur
      Re, Une variable?? je n'ai pas bien compris

Discussions similaires

Modifier une annonce ou le prix sur Leboncoin sans payer
BourrinOman83

22 réponses