Ajout d'un ligne a chaque ligne dans une selection
Résolu/Fermé
Pkr1sbc
Messages postés
26
Date d'inscription
dimanche 14 janvier 2018
Statut
Membre
Dernière intervention
7 août 2018
-
Modifié le 24 mai 2018 à 18:14
Pkr1sbc Messages postés 26 Date d'inscription dimanche 14 janvier 2018 Statut Membre Dernière intervention 7 août 2018 - 24 mai 2018 à 22:45
Pkr1sbc Messages postés 26 Date d'inscription dimanche 14 janvier 2018 Statut Membre Dernière intervention 7 août 2018 - 24 mai 2018 à 22:45
A voir également:
- Ajout d'un ligne a chaque ligne dans une selection
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
1 réponse
jc80
Messages postés
4149
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 422
24 mai 2018 à 18:31
24 mai 2018 à 18:31
Bonjour
Dans l'éditeur VB, menu insertion puis module, tu colles la macro ci-dessous
Sub intercale()
der_ligne = [A65536].End(xlUp).Row
For ligne = der_ligne To 2 Step -1
If ligne = der_ligne Then
Range("A" & ligne + 1).Value = " "
Rows(ligne).Insert
Range("A" & ligne).Value = " "
Else
Rows(ligne).Insert
Range("A" & ligne).Value = " "
End If
Next ligne
End Sub
Crdlt
Dans l'éditeur VB, menu insertion puis module, tu colles la macro ci-dessous
Sub intercale()
der_ligne = [A65536].End(xlUp).Row
For ligne = der_ligne To 2 Step -1
If ligne = der_ligne Then
Range("A" & ligne + 1).Value = " "
Rows(ligne).Insert
Range("A" & ligne).Value = " "
Else
Rows(ligne).Insert
Range("A" & ligne).Value = " "
End If
Next ligne
End Sub
Crdlt
24 mai 2018 à 22:45
Merci tu viens de me faire économiser des heures et des heures !
Encore merci !