Ajout d'un ligne a chaque ligne dans une selection Résolu/Fermé

Question

Bonjour, 

Je vais essayer de vous expliquer ce que je souhaite, par l'image ça sera plus simple à comprendre : 

Ce que j'ai au début : 


Ce que je souhaite avoir après : 



Les deux techniques que je connais, faire la sélection de tout et décaler vers le bas...;
Ou
Ajouter une ligne entre chaque ligne...

Mais c'est long avec vous une autre technique ?

Au plaisir de lire vos réponses,
Merci !

Configuration: Windows / Chrome 66.0.3359.181

jc80 · Answer

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

Ajout d'un ligne a chaque ligne dans une selection

1 réponse

Discussions similaires