Inserer une ligne vide entre deux ligne differentes
Résolu/Fermé
ramziwolf84
ramziwolf84
- Messages postés
- 12
- Date d'inscription
- mardi 28 mai 2013
- Statut
- Membre
- Dernière intervention
- 18 juin 2013
ramziwolf84
- Messages postés
- 12
- Date d'inscription
- mardi 28 mai 2013
- Statut
- Membre
- Dernière intervention
- 18 juin 2013
A voir également:
- Excel insérer ligne entre chaque ligne
- Insérer des lignes entre chaque ligne excel - Meilleures réponses
- Insérer une ligne sur deux excel - Meilleures réponses
- Inserer une ligne vide entre deux ligne differentes ✓ - Forum - Excel
- Excel insérer une ligne vide sur deux - Forum - Excel
- Insérer une ligne sur deux excel ✓ - Forum - Excel
- Inserer une ligne vide et la compléter ✓ - Forum - VB / VBA
- 2 opérateurs différents, 2 box, 2 lignes, 2 téléphones,regrouper ✓ - Forum - Internet / Réseaux sociaux
4 réponses
gbinforme
13 juin 2013 à 16:45
- Messages postés
- 14934
- Date d'inscription
- lundi 18 octobre 2004
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2020
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
Modifié par ramziwolf84 le 13/06/2013 à 16:53
- 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
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
13 juin 2013 à 17:19
- Messages postés
- 14934
- Date d'inscription
- lundi 18 octobre 2004
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2020
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
13 juin 2013 à 18:13
- Messages postés
- 12
- Date d'inscription
- mardi 28 mai 2013
- Statut
- Membre
- Dernière intervention
- 18 juin 2013
13 juin 2013 à 18:13
merciiiiiiiiiiiiiiii beaucoup frere