Discussion :

[JessieCoutas]

Bonjour,

J'ai un tableau de données qui se remplit par un userform.
La colonne 1 contient des noms. Ces noms peuvent apparaître plusieurs fois dans le tableau.

Je souhaite extraire tous les noms différents qui apparaîtront dans le tableau et les mettre dans d'autres cellules que je choisirais.

Comment puis-je faire?

Je me doute déjà que je dois faire une boucle for pour étudier tout le tableau. Mais ensuite?

Merci.

[mercatog]

Et avec TCD?

[jfontaine]

Bonjour,

Un exemple de code qui fait ce que tu souhaites

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
 
Dim i As Long 'ligne source
Dim j As Long 'ligne destination
 
i = 2
j = 2
 
Do While Range("L" & i).Value <> ""
 
    If Application.WorksheetFunction.CountIf(Range("Q:Q"), Range("L" & i).Value) = 0 Then
        Range("Q" & j).Value = Range("L" & i).Value
        j = j + 1
    End If
 
 
    i = i + 1
Loop

EDIT :
Colonne L => Source
Colonne Q => Destination

[laetitia]

bonjour JessieCoutas mercatog re jfontaine le forum comme je comprends!!
extraire les noms sans doublons l'exemple copy les noms de la sheets1 vers la sheets 2 a adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub test()
 Dim c As Variant, M As Object
Application.ScreenUpdating = False
Set M = CreateObject("Scripting.Dictionary")
With Sheets(1)
For Each c In .Range("A1", .[a65000].End(xlUp))
M(c.Value) = IIf(M.exists(c.Value), M(c.Value) + 1, 1)
Next c
Sheets(2).[a1].Resize(M.Count, 1) = Application.Transpose(M.keys)
End With
End Sub

[JessieCoutas]

Bonjour,

Merci pour vos réponses.
J'ai essayé ton code Laetitia et ça n'enlève pas les doublons. Que dois-je écrire pour que ça les enlève?

Par ailleurs, j'aimerai que chaque nom de la liste soit collé dans Sheets(2) mais toutes les 3 lignes.

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

Merci beaucoup.
Bonne journée.

[Krovax]

Bonjour,
Pour ce qui est des doublons regarde ce petit tutoriel
http://silkyroad.developpez.com/excel/doublons/

Je te conseil d'essayer de t'en inspirer pour réaliser une collection contenant les noms
(cf : IV-A. Créer une liste sans doublons)

Tu t'inspires de ce code et au lieu d'afficher la liste avec

Code :

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

Debug.Print Un.Item(i)

tu met quelque chose qui ressemble à

Code :

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

Sheets(2).range("A" & 3*i) Un.Item(i)

Essaye de faire le code, teste le et si ca ne fonctionne pas montre nous ce que tu as fait et explique ce qui ne va pas

[JessieCoutas]

Bonjour,

J'ai lu le tutoriel et essayé de l'appliquer, mais je débute et ne comprends pas tout...

Dans un premier temps , je ne sais pas comment l'appliquer pour qu'il balaye ma colonne A car la plage, je ne la connais pas.

Ensuite, il ne comprend pas

Code :

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

Sheets(2).range("A" & 3*i) Un.Item(i)

.

Désolée, je ne suis pas très douée...
N'est-il pas possible de repartir du code de Laetitia et de faire en sorte qu'il n'y ait pas de doublons et que le résultat s'affiche toutes les 3 lignes?

Merci beaucoup.