Extraire des items

Version imprimable

04/07/2013, 13h45
Lucky062

Extraire des items

Bonjour à tous,

Voilà ! Je sais que cela est possible pour l'avoir vu il y a quelques années, mais je ne trouve rien :(

Dans une colonne de 2500 lignes se trouvent les elements suivants que l'on retrouve plusieurs fois parmi d'autres :

***
MZPO-LIN3-RE12-DIVERS
MZUT-DEMI-CH01
MZPO-COMM-POLY-DIVERS
MZPO-LIN4-RE16-DIVERS
MZPO-LIN4-RE16-DIVERS
MZSE-LIN1-FLUI-K1311
******
Comment puis je faire pour mettre dans une autre colonne par exemple :
MZPO-LIN4-RE16-DIVERS qui serira de choix dans une liste déroulante ?
Autrement dit comment récupérer chaque item et l'inclure dans une autre colonne, s'il vous plait ?

Merci d'avance pour votre aide !
04/07/2013, 14h02
EngueEngue

Soit tu te galères à boucler, soit tu utilises le sub removeduplicates de la classe range soit tu demandes à Ormonth l'intellectuel de te répondre puisqu'il n'a pas daigné me répondre à moi.

Après il suffira de recopier ton objet sans doublons et d'affecter ce range à une liste déroulante
04/07/2013, 14h41
parmi

Bonjour,

Comme j'imagine que tu veuilles conserver les données de base, il te faudrait utiliser le filtre avancé ou élaboré sans doublon que tu copies dans une autre colonne et dont tu te sers pour ta liste de choix
04/07/2013, 14h45
EngueEngue

Peux tu récupérer les éléments de l'objet filtre sans doublon via VBA ?

Bonjour,
avec l'objet MyCollection tu récupère tes données sans doublon et tu peux charger ta liste avec.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim MyCollection As New Collection
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveSheet.UsedRange
On Error Resume Next
For L = 2 To MyRange.Rows.Count
    MyCollection.Add MyRange(L, 1), MyRange(L, 1)
Next
On Error GoTo 0
For L = 1 To MyCollection.Count
    Debug.Print MyCollection(L)
Next
End Sub

04/07/2013, 17h13
EngueEngue

Merci Chef! Tu m'apprends quelque chose de très utile :D
05/07/2013, 09h50
Lucky062

Bonjour à tous,

Merci tout d'abord rdurupt, EngueEngue et parmi !

Effectivement, je compte extraire une matrice "globale" de SAP et pouvoir la "dépouiller" dans Excel 2007. Ce type de données "MZSE-LIN1-FLUI-K1311
" correspond à des zones / appareils / ... repertoriés par le collègue de maintenance. Celui ci souhaitant traiter ses données en fonction de plusieurs paramètres, il m'a demandé de créer une petite appli "qui va bien" :).
A terme, je compte utiliser les TCD via VBA.

Voila la philosophie de l'affaire ...
Je teste ce que rdurupt propose et reviens vers vous !
Bon week end !
Merci encore !
05/07/2013, 10h06
MarcelG

combobox sans doublon

Bonjour les amis,

Si l'on veut utiliser une liste filtrée de ses doublons, alors il existe la méthode - classique - qui consiste à alimenter un conrrôle combobox sans doublon.

Sujet maintes fois abordés sur le forum, et mentionné dans le tutoriel de Sylkiroad

lex contrôles d'un userform par Sylkiroad

Pour compléter ce qui est exposé par Rdurupt, je dirais que l'on peut aussi utiliser les dictionnaires.
05/07/2013, 18h58
patricktoulon

heu

Bonjour a tous

sinon il y a ca aussi

manipuler les doublons avec un dico /ou variable tableaux

bonjour à tous
pour mon travail je recois par internet une mise a jour de tarifs électricité sous cette forme

Citation:

SCH 13392 6010 MINI COFFRET OPALE 4 PAS 8.36895

tout dans la meme cellule et grâce a ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Option Base 1
 
Sub trier()
'un grand Merci à PARITEC de exceldownloads
    Dim i&, fin&, t, x&, ref$, a&, aa, tp$, n, val#
    tp = Timer
    With Feuil1
        fin = .Range("A" & Rows.Count).End(xlUp).Row
        aa = .Range("A1:A" & fin)
        ReDim Preserve aa(UBound(aa), 4)
        For i = 1 To UBound(aa)
            t = Split(aa(i, 1)): x = UBound(t)
            aa(i, 1) = aa(i, 1)
            aa(i, 2) = t(0) & t(1)
            For a = 3 To x - 1
                ref = ref & t(a) & " "
            Next a
            aa(i, 3) = ref
            aa(i, 3) = LCase(aa(i, 3))
            aa(i, 4) = t(x)
    '<==============ajout de ces 3 lignes pour 0.00==========================>
            n = Split(t(x), ".")
            val = n(0) & "," & Mid(n(1), 1, 2)
            aa(i, 4) = val
    '<========================================================================>
            Erase t: x = 0: ref = ""
        Next i
        .Range("A1").Resize(UBound(aa), UBound(aa, 2)) = aa
    End With
    MsgBox "Traitement réalisé en " & Format(Timer - tp, "0.00 s")

je peux séparer comme ceci

Citation:

SCH13392 mini coffret opale 4 pas 8,36 €

Merci PARITEC
références dan une cellule, articles dans une autre et prix dans une autre
ce code est dans un module standard et commandé par un bouton sur la feuille
je ne sais pas si cela correspond a cette demande, mais a voir

Pascal

08/07/2013, 09h48
Lucky062

Merci !

Bonjour à tous,

Un grand merci pour tous ces articles et précisions ! Cela va beaucoup m'aider !

Je me pose la question de savoir si je dois indiquer "Résolu" au cas où cela interresserait d'autres personnes !?
Vous me dites ....

Encore merci ! :ccool: