Inserlignes

Bonjour,

Dans le tableau annexé, j'aimerai avoir une insertion de lignes dès que la référence change

(voir feuil1) de sorte à avoir le résultat possible (voir feuil2).

Pouvez-vous m'aider par une macro svp.

Merci de votre retour.

Bonjour,

Pour commencer ton profil indique Excel 2003 et tu joins un fichier Excel 2007 ou ultérieur.

Quelle est la version que tu utilises ?

Sinon, on essaie de travailler avec des données structurées (pas de colonnes, pas de lignes vides, etc...).

Quel est l'objectif ?

Cdlt.

Bonsoir jpvill, le forum,

Un essai:

Sub test()

Dim i As Integer, j As Integer

i = 3
Do While Cells(i, "A") <> ""
 If Cells(i, "A").Value <> Cells(i + 1, "A").Value Then
    j = Cells(i + 1, "A").Row
    Rows(j).Insert
    i = i + 1
 End If
    i = i + 1
Loop

End Sub

Cordialement,

Edit: ...........Bonsoir Jean-Eric

Bonjour,

à tester,

Sub Insert_Ligne()
Dim i As Integer, sh As Worksheet
Set sh = Sheets("Feuil1")
For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
 If sh.Cells(i, "A").Value <> sh.Cells(i - 1, "A").Value Then sh.Rows(i).Insert
Next i
End Sub

Bonsoir Isabelle,

Ne serait-ce pas plutôt

For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1

, sinon on insert une ligne grise sous les titres ?

Bravo pour ton code, je le mets de côté, bien plus épuré que ma triste prestation,

Amitiés,

re,

Ne serait-ce pas plutôt to 4

ho oui, merci pour la correction et le bravo!

Jean-Eric a écrit :

Bonjour,

Pour commencer ton profil indique Excel 2003 et tu joins un fichier Excel 2007 ou ultérieur.

Quelle est la version que tu utilises ?

Sinon, on essaie de travailler avec des données structurées (pas de colonnes, pas de lignes vides, etc...).

Quel est l'objectif ?

Cdlt.

Merci Jean Eric de ton retour, je vais changer au niveau du profil car je suis maintenant sur une version excel 2017

J'ai la macro qu'il me faut et qui répond à ma demande.

Bonne journée

xorsankukai a écrit :

Bonsoir jpvill, le forum,

Un essai:

Sub test()

Dim i As Integer, j As Integer

i = 3
Do While Cells(i, "A") <> ""
 If Cells(i, "A").Value <> Cells(i + 1, "A").Value Then
    j = Cells(i + 1, "A").Row
    Rows(j).Insert
    i = i + 1
 End If
    i = i + 1
Loop

End Sub

Copie de FORUM 031218-2.xlsm

Cordialement,

Edit: ...........Bonsoir Jean-Eric

Merci Xorsankulkai de ton retour, J'ai la macro qu'il me faut et qui répond à ma demande.

Bonne journée

sabV a écrit :

Bonjour,

à tester,

Sub Insert_Ligne()
Dim i As Integer, sh As Worksheet
Set sh = Sheets("Feuil1")
For i = sh.Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
 If sh.Cells(i, "A").Value <> sh.Cells(i - 1, "A").Value Then sh.Rows(i).Insert
Next i
End Sub

Merci Sabv de ton retour, J'ai la macro qu'il me faut et qui répond à ma demande.

Bonne journée