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:
'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
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??
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!!
Voila les trois cas, s'il est possible je veux une macro s'exécute sur ces trois cas, sans que je puisse faire la modifications a chaque fois, Merci infiniment:
- Messages postés
-
15612
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 26 février 2021
1 460 > nonossovDonnez au moins deux exemples d'utilisation de ce code car je ne vois pas la difficulté
https://www.cjoint.com/c/GDeq0UIwjHs
- Messages postés
-
15612
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 26 février 2021
1 460 > nonossovAjout ligne entiere comme demande: https://www.cjoint.com/c/GDfftgrSNrf