Fonction pour séparer les données identiques sur une colonne
Résolu/Fermé
cameleon1881
Messages postés
20
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
5 juillet 2022
-
2 juil. 2022 à 11:23
cameleon1881 Messages postés 20 Date d'inscription lundi 6 janvier 2014 Statut Membre Dernière intervention 5 juillet 2022 - 2 juil. 2022 à 16:13
cameleon1881 Messages postés 20 Date d'inscription lundi 6 janvier 2014 Statut Membre Dernière intervention 5 juillet 2022 - 2 juil. 2022 à 16:13
A voir également:
- Fonction pour séparer les données identiques sur une colonne
- Déplacer une colonne excel - Guide
- Fonction si et - Guide
- Séparer pdf - Guide
- Colonne word - Guide
- Effacer les données de navigation - Guide
5 réponses
jee pee
Messages postés
39577
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
16 avril 2024
9 220
2 juil. 2022 à 11:31
2 juil. 2022 à 11:31
Bonjour,
Tu devrais nous mettre un fichier exemple déposé sur cjoint.fr et le lien copié ici sur le forum.
Car ce que tu demandes n'est pas clair. Le "suivant" ? La cellule A de la ligne suivante ? le caractère suivant celui de la cellule A (si a -> b, si b -> ca si g ->h sir z -> a). Et pourquoi des cellules blanches en B ?
Tu devrais nous mettre un fichier exemple déposé sur cjoint.fr et le lien copié ici sur le forum.
Car ce que tu demandes n'est pas clair. Le "suivant" ? La cellule A de la ligne suivante ? le caractère suivant celui de la cellule A (si a -> b, si b -> ca si g ->h sir z -> a). Et pourquoi des cellules blanches en B ?
M-12
Messages postés
1333
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
299
2 juil. 2022 à 11:41
2 juil. 2022 à 11:41
Bonjour,
Un test
https://www.cjoint.com/c/LGcjPeibA2C
Un test
https://www.cjoint.com/c/LGcjPeibA2C
jee pee
Messages postés
39577
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
16 avril 2024
9 220
2 juil. 2022 à 11:45
2 juil. 2022 à 11:45
Effectivement je voyais cela un peu de la même façon. Mais dans son exemple cameleon1881 alors donne une réponse à la question qui est fausse ;-)
cameleon1881
Messages postés
20
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
5 juillet 2022
2 juil. 2022 à 12:53
2 juil. 2022 à 12:53
Re bonjour et merci pour vos réponses. Donc j'apporte des précisions sur les cellules :
J'ai de A1 à A6 : a a b b b c
Je voudrai avoir dan la colonne B de B1 VERS LE BAS ces mêmes valeurs listées comme suit :
a a espace b b b espace c
Je pense avoir répondu à votre question jee pee
J'ai de A1 à A6 : a a b b b c
Je voudrai avoir dan la colonne B de B1 VERS LE BAS ces mêmes valeurs listées comme suit :
a a espace b b b espace c
Je pense avoir répondu à votre question jee pee
via55
Messages postés
14398
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
10 avril 2024
2 701
2 juil. 2022 à 15:15
2 juil. 2022 à 15:15
Bonjour
Dans ce cas la macro de M-12 fait le job
Si tu veux une solution sans macro, par formules il faut alors 3 colonnes :
https://www.cjoint.com/c/LGcnozWfE7J
Cdlmnt
Via
Dans ce cas la macro de M-12 fait le job
Si tu veux une solution sans macro, par formules il faut alors 3 colonnes :
https://www.cjoint.com/c/LGcnozWfE7J
Cdlmnt
Via
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cameleon1881
Messages postés
20
Date d'inscription
lundi 6 janvier 2014
Statut
Membre
Dernière intervention
5 juillet 2022
2 juil. 2022 à 16:13
2 juil. 2022 à 16:13
Merci beaucoup Via55 ca fonctionne bien :)
Sinon j'ai essayé ça avec du code et à vrai dire j'ai bien mouliné mon cerveau avant de tomber sur ça sur un autre site :
Sub InsereLigne()
Dim sh As Worksheet
Dim i As Integer
'bon on va travailler sur la feuille
'active au moment du lancement
Set sh = ActiveSheet
i = 2
While sh.Cells(i, 1) <> ""
If sh.Cells(i - 1, 1) <> sh.Cells(i, 1) Then
sh.Cells(i, 1).EntireRow.Insert Shift:=xlShiftDown
i = i + 1
End If
i = i + 1
Wend
End Sub
Et ça fonctionne aussi
Merci
Sinon j'ai essayé ça avec du code et à vrai dire j'ai bien mouliné mon cerveau avant de tomber sur ça sur un autre site :
Sub InsereLigne()
Dim sh As Worksheet
Dim i As Integer
'bon on va travailler sur la feuille
'active au moment du lancement
Set sh = ActiveSheet
i = 2
While sh.Cells(i, 1) <> ""
If sh.Cells(i - 1, 1) <> sh.Cells(i, 1) Then
sh.Cells(i, 1).EntireRow.Insert Shift:=xlShiftDown
i = i + 1
End If
i = i + 1
Wend
End Sub
Et ça fonctionne aussi
Merci
