Modifier une macro: Ajouter des lignes

Résolu

nonossov Messages postés 638 Statut Membre -
nonossov Messages postés 638 Statut Membre - 5 avr. 2017 à 11:16

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

Afficher la suite

1 réponse

Réponse 1 / 1

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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
```
2
1. nonossov Messages postés 638 Statut Membre
  
  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??
  
  0
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > nonossov Messages postés 638 Statut Membre
  
  Re,
  Ben oui! Remplacez le 5 par ce que vous voulez
  
  0
3. nonossov Messages postés 638 Statut Membre
  
  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!!
  
  0
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > nonossov Messages postés 638 Statut Membre
  
  Re,
  Utilisez une variable à la place
  
  0
5. nonossov Messages postés 638 Statut Membre
  
  Re, Une variable?? je n'ai pas bien compris
  
  0

Modifier une macro: Ajouter des lignes

1 réponse

Discussions similaires

Newsletters