Inserer une ligne vide entre deux ligne differentes [Résolu/Fermé]

Signaler
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013
-
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013
-
Bonjour,

bon je cherche une solution avec macro pour filtre un tableau dynamique au nombre de ligne sur la colonne i puis insérer une ligne vide fusionnée entre les lignes où sa change la valeur de la cellule( i, x)
merciiiiiiiiiii par avance pour votre aide

4 réponses

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 149
Bonjour,

Si tu relies ta question, je penses que tu vas avoir autant de mal à savoir ce que tu veux que nous...
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013

je cherche deux étapes:
1- Trier le tableau selon la colonne i
2- si au niveau de même colonne i, la valeur de la cellule sa change on insère une ligna vide.( par exemple i5 est différente à i6 alors on insère une ligne vide )
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 149
Bonjour,

C'est plus clair et avec ceci tu devrais obtenir ton souhait :

Sub insere_ligne()
Dim elm As Range
    With ActiveWorkbook.ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I:I") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("I1").CurrentRegion
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    For Each elm In ActiveWorkbook.ActiveSheet.UsedRange.Columns("I").Cells
        If elm.Value <> "" And elm.Value <> elm.Offset(1).Value Then
            elm.Offset(1).EntireRow.Insert xlDown
        End If
    Next elm
End Sub

--
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013

merciiiiiiiiiiiiiiii beaucoup frere