XL 2010 Extraire un type de donnée par cellule

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2017

• #2

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.

 

Vote positif 0 Vote négatif

S

saggigo

XLDnaute Occasionnel

• 19 Novembre 2017

• #3

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?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2017

• #4

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.

 

Vote positif 0 Vote négatif

S

saggigo

XLDnaute Occasionnel

• 19 Novembre 2017

• #5

Désolé Victor,
Voici l'exemple.

Merci beaucoup

 

Pièces jointes

• Classeur1.xlsx

  11.3 KB · Affichages: 18

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Novembre 2017

• #6

Bonjour,
Essaye comme ceci:

VB:

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é

 

Pièces jointes

• Liste sans doublonV1.xlsm

  22.9 KB · Affichages: 16

Dernière édition: 19 Novembre 2017

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Novembre 2017

• #7

Bonjour le fil, le forum

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

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2017

• #8

@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.

Code:

tester
test
bonne nuit
bonne
nuit

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Novembre 2017

• #9

Re

@saggigo
Tu as essayé ma macro?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2017

• #10

Re, bonsoir à tous 🙂

saggigo à dit:

Salut Victor,
Merci beaucoup c'est parfait 🙂

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Novembre 2017

• #11

mapomme à dit:

@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.

Code:

tester
test
bonne nuit
bonne
nuit

Cliquez pour agrandir...

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 😱

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Novembre 2017

• #12

Bonsoir Jacky67

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

Cliquez pour agrandir...

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 😉

 

Vote positif 0 Vote négatif

S

saggigo

XLDnaute Occasionnel

• 19 Novembre 2017

• #13

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 🙂,

 

Vote positif 0 Vote négatif

S

saggigo

XLDnaute Occasionnel

• 19 Novembre 2017

• #14

Jacky67 à dit:

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 😱

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Novembre 2017

• #15

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 :

VB:

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")

 

Pièces jointes

• saggigo- jacky67- Liste sans doublon-v1.xlsm

  16.3 KB · Affichages: 16

Dernière édition: 19 Novembre 2017

Vote positif 0 Vote négatif