Discussion :

[Lucky062]

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 !

[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

[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

[EngueEngue]

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

Merci Chef! Tu m'apprends quelque chose de très utile

[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 !

[MarcelG]

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.

[patricktoulon]

Bonjour a tous

sinon il y a ca aussi

manipuler les doublons avec un dico /ou variable tableaux

[grisan29]

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

SCH 13392 6010 MINI COFFRET OPALE 4 PAS 8.36895

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Lucky062]

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 !