Modifier une macro: Ajouter des lignes

Résolu/Fermé

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - Modifié le 31 mars 2017 à 13:26
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 5 avril 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

A voir également:

Modifier une macro: Ajouter des lignes
Modifier liste déroulante excel - Guide
Comment modifier un pdf - Guide
Modifier dns - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
31 mars 2017 à 14:56

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

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
31 mars 2017 à 16:31

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??

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
31 mars 2017 à 16:36

Re,
Ben oui! Remplacez le 5 par ce que vous voulez

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
31 mars 2017 à 19:30

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!!

Re,
Utilisez une variable à la place

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
3 avril 2017 à 11:29

Re, Une variable?? je n'ai pas bien compris

Newsletters