Sauter ligne

Bonjour,

J’ai un souci avec mon code, j’aimerais bien sauter une ligne après chaque test (test1, test2, …) pour gagner en lisibilité mais je n’arrive pas. Est-ce que quelqu’un sait comment faire ?

Merci

Salut TeamG1,

une façon de faire...

'
For x = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1
    If Left(Cells(x, 1), 4) = "test" Then Range("A" & x).EntireRow.Insert shift:=xlDown
Next
'

Ton code ne peut pas fonctionner tel que tu l'avais écrit, non pas à cause d'erreurs ou autres, mais parce qu'il se trouvait tout seul perdu sans "contenant", soit une macro ou une fonction ou une Sub nommées - par ex: Sub InsérerdesLignes() -, soit une Sub événementielle - Sub Worksheet_SelectionChange() - comme celle ci-dessous.

SelectionChange veut dire changement de sélection (d'une cellule) = un clic quelque part. C'est un événement qui déclenche le déroulement de la macro.

Dans ce cas-ci, la macro se trouve dans le module de ta feuille 'test'.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
For x = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1
    If Left(Cells(x, 1), 4) = "test" Then Range("A" & x).EntireRow.Insert shift:=xlDown
Next
'
End Sub

Ça va aller!

A+

Merci à toi