Inserer une ligne vide entre deux ligne differentes
Résolu/Fermé
ramziwolf84
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013
-
13 juin 2013 à 16:34
ramziwolf84 Messages postés 12 Date d'inscription mardi 28 mai 2013 Statut Membre Dernière intervention 18 juin 2013 - 13 juin 2013 à 18:13
ramziwolf84 Messages postés 12 Date d'inscription mardi 28 mai 2013 Statut Membre Dernière intervention 18 juin 2013 - 13 juin 2013 à 18:13
A voir également:
- Excel ajouter une ligne entre chaque ligne
- Aller à la ligne excel - Guide
- Site de vente en ligne gratuit entre particulier - Guide
- Hors ligne instagram - Guide
- Liste déroulante excel - Guide
- Partage de photos en ligne - Guide
4 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
13 juin 2013 à 16:45
13 juin 2013 à 16:45
Bonjour,
Si tu relies ta question, je penses que tu vas avoir autant de mal à savoir ce que tu veux que nous...
Si tu relies ta question, je penses que tu vas avoir autant de mal à savoir ce que tu veux que nous...
ramziwolf84
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013
Modifié par ramziwolf84 le 13/06/2013 à 16:53
Modifié par ramziwolf84 le 13/06/2013 à 16:53
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 )
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 )
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
13 juin 2013 à 17:19
13 juin 2013 à 17:19
Bonjour,
C'est plus clair et avec ceci tu devrais obtenir ton souhait :
--
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
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
ramziwolf84
Messages postés
12
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
18 juin 2013
13 juin 2013 à 18:13
13 juin 2013 à 18:13
merciiiiiiiiiiiiiiii beaucoup frere