Fonction pour séparer les données identiques sur une colonne Résolu/Fermé

Question

Bonjour, 
S'il vous plait pourriez vous m'aider pour résoudre cette ambiguité que je rencontre. 
J'ai une colonne A comme suit :

a
a
b
b
b
c

Je souhaite avoir dans une autre colonne B le suivant :

a
a
a

b
b

c

Merci





Configuration: Windows / Chrome 103.0.0.0

jee pee · Answer

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 ?

M-12 · Answer

Bonjour,
Un test
https://www.cjoint.com/c/LGcjPeibA2C

cameleon1881 · Answer

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

via55 · Answer

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

cameleon1881 · Answer

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

Fonction pour séparer les données identiques sur une colonne

5 réponses

Discussions similaires