Insérer 1 ligne entre plusieurs

Bonjour,

j'ai un tableau avec 700 lignes.

Je voudrai insérer une ligne entre chacune des 700..... comment faire ?

Je ne vais pas faire "clic droit" + "insérer ligne" 700 fois....

Si je sélectionne les 700, ça m'en insère 700 en début de tableau

Je ne sais même pas s'il y a une solution (pas trouvé malgré plusieurs recherches...)

Merci !

Bonjour David,

Il y en a une, en VBA, mais vu ton post j'imagine que tu n'y connais rien en VBA ?

Si c'est le cas, le plus simple est que tu uploades ton fichier pour que je te mette un code VBA qui fera ce que tu demandes.

Si tu as des bases en VBA, je te fais un code et je te laisse l'installer ensuite dans ton fichier.

Salut,

merci pour ta réponse.

Si VBA = macro excel, j'ai quelques bases.

Je devrais pouvoir m'en sortir avec un code à intégrer dans mon fichier

merci

David

Re !

Oui VBA = macros excel

Voici un code qui insèrera 1 ligne sur 2, à placer dans un module dans ton fichier :

Il faut adapter à ton tableau les 3 lignes où il est écrit... "à adapter"

Sub inserer_une_ligne_sur_deux()

Dim Ligne As Long
Dim PremiereLigne As Long
Dim DernièreLigne As Long
Dim NomOnglet As String

PremiereLigne = 3  'Première ligne, à adapter
NomOnglet = "Feuil1" 'Nom de feuille, à adapter
Set Onglet = ThisWorkbook.Sheets(NomOnglet)

With Sheets(NomOnglet)
    DernièreLigne = Onglet.Range("A65536").End(xlUp).Row 'à adapter si le tableau n'est pas en colonne A
        For Ligne = DernièreLigne To PremiereLigne Step -1
            Onglet.Rows(Ligne).Insert
        Next Ligne
End With

End Sub

Merci c'est nickel

Bizarrement il y a 10 lignes (les 10 dernières) qui n'ont pas été impactées par l'effet. Du coup je l'ai fait à la main en quelques secondes.

Mais pour toutes les autres, heureusement ça a marché !

David

Super ! Bonne continuation à toi !