Modifier une macro: Ajouter des lignes
Résolu
nonossov
Messages postés
610
Date d'inscription
Statut
Membre
Dernière intervention
-
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
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:
Est-ce qu'est possible de la rendre applicable dans toutes les colonnes: Exepmle:
https://www.cjoint.com/c/GCFlyIxCrMP
Merci infiniment
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modifier une story facebook - Guide
- Modifier extension fichier - Guide
1 réponse
Bonjour,
Appel avec passage du numero de clonne
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
Ben oui! Remplacez le 5 par ce que vous voulez
Utilisez une variable à la place