XL 2010 Extraire un type de donnée par cellule

[saggigo]

Bonjour à tous,
J'espère que vous allez bien.
voilà, j'ai un tableau de deux colonnes(A,B), et dans la deuxième (B) colonne j'ai plusieurs doublons au format texte, j'aimerais extraire dans une cellule vide tous les noms qui sont dans la B, séparés par un ";"

Je vous remercie pour votre aide. faite moi signe si vous avez besoin de plus d'infos

 

[Victor21]

Bonjour.

Au plus simple, sans formule ni macro, en utilisant les outils natifs à votre disposition : sélectionner la colonne B, puis Données, Convertir. Laissez-vous ensuite guider.

 

[saggigo]

Bonjour Victor,
Je n'ai pas trouvé comment faire, j'ai suivi les étapes mais il ne s'est rien passé. aussi j'ai trouvé cette macro, mais elle ne me dit pas comment faire pour séparer les données par des ";"


Public Function concaSD(cellules As Range) As String
Dim c As Range
Dim data As New Collection
Dim el
Dim t As String

On Error Resume Next
For Each c In cellules
data.Add c, CStr(c)
Next c
On Error GoTo 0

For Each el In data
t = t & el
Next el

concaSD = t

End Function

Peux-tu m'aider s'il te plait?

 

[Victor21]

Re,

Reprenons par le début, car je ne suis pas sûr d'avoir compris votre problème :
Joignez un court fichier Excel représentatif, sans données confidentielles, avec un exemple : données de base, résultat attendu et les explications nécessaires.

 

[saggigo]

Désolé Victor,
Voici l'exemple.

Merci beaucoup

 

[Jacky67]

Bonjour,
Essaye comme ceci:

Function Extrait(Plage As Range)
Dim c As Range, x As String
For Each c In Plage
  On Error Resume Next
    If Not x Like "*" & c & "*" Then
      x = x & c.Value & ";"
    End If
Next
x = Left(x, Len(x) - 1)
Extrait = x
End Function

**Modidifié

 

[Staple1600]

Bonjour le fil, le forum

Sur la base du fichier exemple, une autre méthode

Sub a()
Dim CONCAT, p As Range
Application.ScreenUpdating = False
Columns(1).SpecialCells(xlCellTypeConstants, 2).Copy Range("B2")
Columns(2).RemoveDuplicates Columns:=1, Header:=xlNo
Set p = Columns(2).SpecialCells(xlCellTypeConstants, 2)
p.Sort [B2], Order1:=xlAscending, Header:=xlNo
CONCAT = Join(Application.Transpose(p.Value), ";")
p.ClearContents
MsgBox CONCAT
End Sub

 

[mapomme]

@Jacky67 ,

Attention à l'utilisation du LIKE ! (ça m'est déjà arrivé )

Si on a les données ci-dessous en A2:A6, ta macro ne ressort que deux termes car avec le "LIKE", le terme test est inclus dans tester, tout comme les deux termes bonne et nuit sont chacun inclus dans bonne nuit.

tester
test
bonne nuit
bonne
nuit

 

[Staple1600]

Re

@saggigo
Tu as essayé ma macro?

 

[Victor21]

Re, bonsoir à tous

Salut Victor,
Merci beaucoup c'est parfait

Heureux que vous ayez apprécié autant la qualité de mon silence, imposé par ma méconnaissance du VBA

 

[Jacky67]

@Jacky67 ,

Attention à l'utilisation du LIKE ! (ça m'est déjà arrivé )

Si on a les données ci-dessous en A2:A6, ta macro ne ressort que deux termes car avec le "LIKE", le terme test est inclus dans tester, tout comme les deux termes bonne et nuit sont chacun inclus dans bonne nuit.

tester
test
bonne nuit
bonne
nuit

Hello mapomme
Oui, tu as tout à fait raison , je n'ai pas fait assez attention.
Saggigo a trouver son bonheur à travers Staple 1600 et ... attribué à Vitor21

 

[Staple1600]

Bonsoir Jacky67

Saggigo a trouver son bonheur à travers Staple 1600 et ... attribué à Vitor21

Ce qu'on peut résumer en:
Qu'importe le flacon, pourvu qu'on ait l'ivresse
Ce qui donne en langage xldien
Qu'importe l'xldnaute, pourvu qu'on ait le maquereau

 

[saggigo]

Ahhhh je m'excuse Jacky67, c'est la tienne bien sur que j'ai essayé. merciiiii beaucoup Jacky.

Staple1600, je n'ai pas essayé ta macro car j'aurais préférer avoir une fonction. pourrais-tu s'il te plait en faire une fonction?

Et je suis sincèrement désolé pour l'erreur d'attribution des fleurs ,

 

[saggigo]

Hello mapomme
Oui, tu as tout à fait raison , je n'ai pas fait assez attention.
Saggigo a trouver son bonheur à travers Staple 1600 et ... attribué à Vitor21

Grosse erreur de ma part.... vraiment désolé

 

[mapomme]

Re à tous,

et à @Victor21 dont le code aura été d'une concision extrême !

@Jacky67 et @saggigo :

J'ai modifié à minima le code de la fonction de jacky67 pour tenir compte de ma précédente remarque :

Option Explicit
Option Compare Text

Function Extrait(Plage As Range) As String
Dim c As Range, x As String
   x = ";"
   For Each c In Plage
      If Len(c) > 0 Then If InStr(x, ";" & c & ";") = 0 Then x = x & c.Value & ";"
   Next
   If Right(x, 1) = ";" Then x = Left(x, Len(x) - 1)
   If Left(x, 1) = ";" Then x = Mid(x, 2)
   Extrait = x
End Function

La fonction ne prend en compte ni les cellules vides ni la casse (via l'option au niveau module "Option Compare Text")