Modifier une macro: Ajouter des lignes

Résolu/Fermé

nonossov Messages postés 610 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 610 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 dns - Guide
Modifier liste déroulante excel - Guide
Modifier une story facebook - Guide
Comment modifier un pdf - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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 610 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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > nonossov Messages postés 610 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 610 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 610 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