Saut de ligne après chaque nom+prénom différents

**fabien32200** · 25/04/2016, 10h04

Bonjour à tous,

Je souhaiterai sur excel automatiser une tache : sauter une ligne lors de chaque nom + prénom différent.

Voici, ci-dessous, comment mes données se présentent :

Albert Fabien
Albert Fabien
Albert Fabien
Albert Florian
Ciota Jacques
Ciota Jacques
Debrube Robert

Ce que je souhaiterai faire :

Albert Fabien
Albert Fabien
Albert Fabien

Albert Clément

Ciota Jacques
Ciota Jacques

Debrube Robert

J'ai réfléchi sur un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ins()
lastr = Range("A65000").End(xlUp).Row
For i = lastr To 1 Step -1
nom1 = Left(Cells(i, 1).Value, InStr(Cells(i, 1).Value, " "))
nom2 = Left(Cells(i + 1, 1).Value, InStr(Cells(i + 1, 1).Value, " "))
If nom1 <> nom2 Then
Prenom1 = Left(Cells(i, 1).Value, InStr(Cells(i, 1).Value, " "))
Prenom2 = Left(Cells(i + 1, 1).Value, InStr(Cells(i + 1, 1).Value, " "))
If Prenom1 <> Prenom2 Then
Cells(i + 1, 1).Select
Selection.EntireRow.Insert Shift:=xlDown
End If
Next
End Sub

Cependant avec ce code je n'arrive pas à insérer un saut de ligne lorsque mes clients ont le même nom et un prénom différent (par exemple entre Albert Fabien et
Albert Clément).

Ce code me donne ça :

Albert Fabien
Albert Fabien
Albert Fabien
Albert Clément

Ciota Jacques
Ciota Jacques

Debrube Robert

Ce serait super si une personne pourrait m'aidé à modifier ce code.

Je vous remercie,

Fabien

**cerede2000** · 25/04/2016, 10h21

Bonjour à toi,

Merci de baliser ton code !
Je te propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ins()
    Dim row As Range
    Dim curName As String, nextName As String
 
    For Each row In ActiveSheet.UsedRange.Columns(1).Cells
        If Not row.Value = vbNullString And Not row.Offset(1).Value = vbNullString Then
            curName = row.Value
            nextName = row.Offset(1).Value
 
            If nextName <> curName Then
                row.Offset(1).EntireRow.Insert
            End If
        End If
    Next
End Sub

**fabien32200** · 25/04/2016, 10h41

Merci de ta rapidité.

D'accord, je baliserais mes codes lors de mes prochains posts.

J'ai oublié un détail lors de mon 1er post, j'ai plusieurs colonnes, et les nom+prénom se situent dans la colonne E.

Mes données sont triées comme cela :

Bxxxx 	MONSIED		xxxxx,59	Perso Mixte France	Albert Fabien
Lxxxx 	MONSIEUR D	xxxxx,59	Perso Mixte  France	Albert Fabien
Jxxxx 7	 MADAME		xxxxx,45	Perso Mixte UK		Albert Fabien	
Dxxxx 	MADAMEE		xxxxxx,15	Perso Mixte Pea		Albert Florian				
xxxx	MONSIE		xxxxx,9		Perso Mixte Pea		Ciota Jacques			
Bxxxx 	MONSIEURD	xxxxxx,12	Perso Mixte Pea-PME	Ciota Jacques				
xxxx	JACQUE		xxxxx,97	Perso France		Debrube Robert

Mon objectif :

Bxxxx 	MONSIEUR 			xxxxx,59	Perso Mixte France	Albert Fabien
Lxxxx 	MONSIEUR 			xxxxx,59	Perso Mixte  France	Albert Fabien
Jxxxx 7	 MADAME 			xxxxx,45	Perso Mixte UK		Albert Fabien
		
Dxxxx 	MADAME				xxxxxx,15	Perso Mixte Pea		Albert Florian
				
xxxx	MONSIEURT			xxxxx,9		Perso Mixte Pea		Ciota Jacques			
Bxxxx 	MONSIEUR JEAN-JACQUES BERTRAND	xxxxxx,12	Perso Mixte Pea-PME	Ciota Jacques
				
xxxx	J				xxxxx,97	Perso France		Debrube Robert

Je ne sais pas quoi rajouter à ton code pour arriver à mon but.

**cerede2000** · 25/04/2016, 10h43

Pas la peine non plus de répondre avec citation !

Pour colonne E remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each row In ActiveSheet.UsedRange.Columns(1).Cells

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each row In ActiveSheet.UsedRange.Columns("E").Cells

**fabien32200** · 25/04/2016, 10h50

@cerede2000

Je te remercie pour ton aide ainsi que ta rapidité.
Mon problème est résolu.

Je me forme à VBA depuis le début du mois, donc j'ai énormément de lacune.

A+ et encore merci !

**cerede2000** · 25/04/2016, 10h56

Pas de soucis

Pense à

sur les réponses qui te satisfont ça encourage

**fabien32200** · 25/04/2016, 11h56

Excuse-moi de revenir vers toi.

J’ai utilisé ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ins()
    Dim row As Range
    Dim curName As String, nextName As String
 
    For Each row In ActiveSheet.UsedRange.Columns("E").Cells
        If Not row.Value = vbNullString And Not row.Offset(1).Value = vbNullString Then
            curName = Split(row.Value, " ")(0)
            nextName = Split(row.Offset(1).Value, " ")(0)
 
            If nextName <> curName Then
                row.Offset(1).EntireRow.Insert
            End If
        End If
    Next
End Sub

Une ligne est bien sautée entre chaque nom+prénom cependant lorsque les noms sont identiques (alors que les prénoms sont différents), le saut de ligne ne s’effectue pas.

Exemple :

Lxxxx 		xxxxx SA	xxxxx,59	xxxxxx		Albert Fabien
Lxxxx		xxxxx SA	xxxxx,59	xxxxxx		Albert Fabien

B4597		xxxxx SA	xx984,97	xxxxxxxx	DE FRANCQUEVILLE Lucie
L0268		xxxxx SA	xx0450,64	xxxxxxxx	DE FRANCQUEVILLE Lucie
L6391		xxxxx SA	xx49581,58	xxxxxxxx	DE GAALON  Sébastien
56579925	xxxxx SA	4xx61,6		xxxxxxxx	DECARRE André
	
55790525	xxxxx SA	xx023,18	xxxxxxxx	Fouxi Robert

Mon objectif :

Lxxxx		xxxxx SA	xxxxx,59	xxxxxx		Albert Fabien
Lxxxx 		xxxxx SA	xxxxx,59	xxxxxx		Albert Fabien

B4597		xxxxx SA	xx984,97	xxxxxxxx	DE FRANCQUEVILLE Lucie	
L0268		xxxxx SA	xx0450,64	xxxxxxxx	DE FRANCQUEVILLE Lucie

L6391		xxxxx SA	xx49581,58	xxxxxxxx	DE GAALON Sébastien
		
56579925	xxxxx SA	4xx61,6		xxxxxxxx	DECARRE André
	
55790525	xxxxx SA	xx023,18	xxxxxxxx	Fouxi Robert

Merci de ton aide.

**cerede2000** · 25/04/2016, 12h04

En fait j'ai déjà corrigé ce point

Reprends le code de mon post #2

**fabien32200** · 25/04/2016, 12h18

D'accord, j'ai essayé du coup avec le 1er code (lors de ton 2ème post) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ins()
    Dim row As Range
    Dim curName As String, nextName As String
 
   For Each row In ActiveSheet.UsedRange.Columns(1).Cells
        If Not row.Value = vbNullString And Not row.Offset(1).Value = vbNullString Then
            curName = Split(row.Value, " ")(0)
            nextName = Split(row.Offset(1).Value, " ")(0)
 
            If nextName <> curName Then
                row.Offset(1).EntireRow.Insert
            End If
        End If
    Next
End Sub

mais du coup une ligne est sautée après chaque nom :

Par exemple : ça va de la Colonne A,B,C,D à E (Colonne E : où sont écrit les nom+prénom)

Lxxxx		xxxxx 	xxxxx   xxxxxx		Albert Fabien

Lxxxx		xxxxx 	xxxxx   xxxxxx		Albert Fabien

B4597		xxxxx 	xxxxxx	xxxxxxxx	DE FRANCQUEVILLE Lucie

L0268		xxxxx 	xxxxxx	xxxxxxxx	DE FRANCQUEVILLE Lucie

L6391		xxxxx	xxxxxxx	xxxxxxxx	DE GAALON Sébastien
	
56579925	xxxxx 	xxxxxx	xxxxxxxx	DECARRE André

55790525	xxxxx 	xxxxxxx	xxxxxxxx	Fouxi Robert

Du coup le tri que je souhaite n'est pas atteint : ça va de la Colonne A,B,C,D à E (Colonne E : où sont écrit les nom+prénom)

Lxxxx		xxxxx 	xxxxx	xxxxxx		Albert Fabien
Lxxxx		xxxxx 	xxxxx	xxxxxx		Albert Fabien

B4597		xxxxx 	xxxxxx	xxxxxxxx	DE FRANCQUEVILLE Lucie	
L0268		xxxxx 	xxxxxxx	xxxxxxxx	DE FRANCQUEVILLE Lucie

L6391		xxxxx	xxxxxx	xxxxxxxx	DE GAALON Sébastien

56579925	xxxxx 	xxxxxx	xxxxxxxx	DECARRE André

55790525	xxxxx	xxxxxx	xxxxxxxx	Fouxi Robert

**cerede2000** · 25/04/2016, 13h11

Tu à oublié de modifier la colonne !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each row In ActiveSheet.UsedRange.Columns(1).Cells

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each row In ActiveSheet.UsedRange.Columns("E").Cells

Donc c'est normal......

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ins()
    Dim row As Range
    Dim curName As String, nextName As String
 
    For Each row In ActiveSheet.UsedRange.Columns("E").Cells
        If Not row.Value = vbNullString And Not row.Offset(1).Value = vbNullString Then
            curName = row.Value
            nextName = row.Offset(1).Value
 
            If nextName <> curName Then
                row.Offset(1).EntireRow.Insert
            End If
        End If
    Next
End Sub

**fabien32200** · 25/04/2016, 13h24

Merci cerede2000. Je tiens de tester, tout marche.

sur tes réponses !

A bientôt

Saut de ligne après chaque nom+prénom différents

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager