Je cherche le code VBA pour insérer une ligne à chaque changement de nom.
Pour être plus claire
J’ai une liste de noms triée avec des doublons et je veux insérer une ligne
à la fin d'une série
Exemple colonne A:
ABT
ABT
ABT
AGP
AGP
CCO
DIT
Je voudrai une ligne vierge entre ABT ET AGP
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour Anaïs,
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP
Pouvez-vous m’aider ? Je vous remercie d’avance
Anaïs
Bonjour Anaïs,
Sub Toto()
Range("a2").Select
While ActiveCell <> ""
If ActiveCell <> ActiveCell.Offset(-1) Then
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom.
Pour être plus claire
J’ai une liste de noms triée avec des doublons et je veux insérer une ligne
à la fin d'une série
Exemple colonne A:
ABT
ABT
ABT
AGP
AGP
CCO
DIT
Je voudrai une ligne vierge entre ABT ET AGP
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP
Pouvez-vous m’aider ? Je vous remercie d’avance
Anaïs
Anaïs
merci bcp de votre aide! bonne journée anais
Bonjour Anaïs,
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP
Pouvez-vous m’aider ? Je vous remercie d’avance
Anaïs
merci bcp de votre aide!
bonne journée
anais
Bonjour Anaïs,
Sub Toto()
Range("a2").Select
While ActiveCell <> ""
If ActiveCell <> ActiveCell.Offset(-1) Then
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom.
Pour être plus claire
J’ai une liste de noms triée avec des doublons et je veux insérer une ligne
à la fin d'une série
Exemple colonne A:
ABT
ABT
ABT
AGP
AGP
CCO
DIT
Je voudrai une ligne vierge entre ABT ET AGP
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP
Pouvez-vous m’aider ? Je vous remercie d’avance
Anaïs
Anaïs
merci bcp de votre aide! bonne journée anais
Bonjour Anaïs,
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP
Pouvez-vous m’aider ? Je vous remercie d’avance
Anaïs
merci bcp de votre aide!
bonne journée
anais
Bonjour Anaïs,
Sub Toto()
Range("a2").Select
While ActiveCell <> ""
If ActiveCell <> ActiveCell.Offset(-1) Then
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
End If
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom.
Pour être plus claire
J’ai une liste de noms triée avec des doublons et je veux insérer une ligne
à la fin d'une série
Exemple colonne A:
ABT
ABT
ABT
AGP
AGP
CCO
DIT
Je voudrai une ligne vierge entre ABT ET AGP
Sub Toto() Range("a2").Select While ActiveCell <> "" If ActiveCell <> ActiveCell.Offset(-1) Then ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select End If ActiveCell.Offset(1).Select Wend End Sub
Camille
"Anaïs" wrote:
Bonjour à tous,
Je cherche le code VBA pour insérer une ligne à chaque changement de nom. Pour être plus claire J’ai une liste de noms triée avec des doublons et je veux insérer une ligne à la fin d'une série Exemple colonne A: ABT ABT ABT AGP AGP CCO DIT Je voudrai une ligne vierge entre ABT ET AGP