Modifier une macro: Ajouter des lignes [Résolu/Fermé]

Signaler
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
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

Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
1 460
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Mr f894009 plus d'explication svp?!!
Messages postés
15612
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2021
1 460 >
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour,
Donnez au moins deux exemples d'utilisation de ce code car je ne vois pas la difficulté
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

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:

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 >
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Bonjour,

Ajout ligne entiere comme demande: https://www.cjoint.com/c/GDfftgrSNrf
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Merci infiniment