Discussion :

[psoret]

Bonjour,
Voila, j'ai une colonne qui contient des noms de famille. Chaque nom apparait plusieurs fois et la colonne est trié par ordre alphabétique donc ils sont tous regroupés.
Je voudrais savoir si c'était possible de récupérer la valeur du 1er nom, puis la valeur du 2ème nom, puis la valeur du 3ème nom, et ainsi de suite.
Je suis débutante en vb et j'ai vraiment besoin de votre aide.
J'espere que j'ai été assez clair dans ce que je demaindais.
Merci d'avance
Cordialement

[rjamin]

Bonjour,

Pour distinguer des homonymes vous n'avez d'autre choix que soit ajouter le prénom derrière le nom ou alors utiliser une référence qui peut être un n° ou une abréviation mais en tout cas elle doit être unique. Dans ce cas on recherche sur la référence et pas sur le nom.

[Minick]

Salut,

As-tu quelque chose a nous proposer?
Le but du forum n'est pas de faire mais d'aider.

A partir de ton code, on pourra te donner des pistes.

[psoret]

Le problème c'est que je n'ai rien écrit encore et que je ne sais pas par quoi commencer.
J'ai dans l'idée de créer une procédure qui me donnera la valeur et qui aura comme paramètre la ième valeur. Mais je n'arrive pas a écrire quelque chose dans cette procédure.
Si vous pouviez juste me donner une piste pour que au moins je puisse écrire quelque chose.
Merci d'avance

Cordialement

[Minick]

Re,

Une des solutions pourrait etre de passer par un filtre elabore (cela suppose qu'il y a une ligne d'entete)
supposons que les Nom sont en colonne A, en A1 l'entete et a partir de A2 les noms.
Pour voir comme ca fonctionne va dans le menu Outils/Macro/nouvelle macro.
Ensuite va dans le menu Données/ Filtrer / Filtre Elabore...
Coche Copier vers un autre emplacement
Plage, selectionne la colonne A
Copier dans, selectionne C1 (par exemple)
Coche Extraction sans doublons
Valide
arrete l'enregistreur et tu auras une base de code.

Je le repete, c'est une des solutions possibles (via un filtre elabore), on fonction de ce que tu veux faire cela n'est peut etre pas la meilleur.

A te relire

[sabzzz]

bonjour psoret et à tous,

une autre solution possible est de passer par un tableau dynamique,
j'ai supposé que les nom sont sur la Feuil1 colonne A et le résultat est mit en colonne G

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 ListeSansDoublon()
Dim liste(), i As Integer
With Sheets("Feuil1")
ReDim Preserve liste(1)
liste(1) = .Range("A1")
For i = 2 To .Range("A65536").End(xlUp).Row + 1
  If IsError(Application.Match(.Range("A" & i), liste, 0)) Then
    ReDim Preserve liste(i)
    liste(i) = .Range("A" & i)
  End If
Next
.Range("G1").Resize(UBound(liste, 1&), 1&) = Application.Transpose(liste)
End With
End Sub

[laetitia]

bonjour psoret rjamin Minick sabzzz le forum je rejoins Minick un filtre bien plus simple!!! autremement une macro en utilisant Dictionary traitement sur la meme colonne A pour exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub es()
 Dim c As Variant, m As Object
     Application.ScreenUpdating = False
       Set m = CreateObject("Scripting.Dictionary")
         For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
           m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
             Next c
      Range("a2:a" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
      [a2].Resize(m.Count, 1) = Application.Transpose(m.keys)
      [a2:a65536].Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess
  End Sub