Insertion des lignes entre chaque changement de noms

choukerb -  
 choukerb -
Bonjour
j'ai un tableau de plusieurs lignes de A1:D1000 et les colonnes A1:A1000 contiennent des différents noms.
j'aimerai bien insérer des lignes entre chaque changement de nom.

cordialement
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

Essaie : 
Sub insertion()
For n = 1000 To 2 Step -1
    Rows(n & ":" & n).Select
        If Range("A" & n) <> "" And Range("A" & n) <> Range("A" & n - 1) Then
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub


Cdlmnt
Via
0
Réponse 2 / 2
choukerb
 
merci mr via55

votre aide (macro) est très efficace . c'est ça ce que je cherche

cordialement.
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses