Extraire des données

Bonjour

Je souhaite récupérer tous les noms inscrits dans cette feuille , mais je ne sais pas du tout comment procéder ... j utilise excel régulièrement mais je n ai jamais été confronté a ce genre de choses loll

quelles options s offrent a moi ?

Je voudrais que ca affiche :

GAUCHER

CARRE D AS

DELAHAYE

CHALENDARD

etc etc

Par avance merci :)

Bonjour,

Avec vos données présentées comme ça, c'est possible mais pas du tout pratique. A votre place, je disposerais les données en colonnes :

Dates - Yo/Mich - Max/Jeff - Alex

Ce sera beaucoup plus simple ensuite de travailler dessus... Et il faut éviter de fusionner les cellules également.

Cdlt,

Bonjour ,

Difficile de changer la trame maintenant malheureusement a moins de quasi tout reprendre :(

sinon je vais faire un truc pas tres joli pour remettre ca en colonne

bonjour

avec un fichier joint , ce serait pas mal

merci

Bonjour,

Pas si difficile que ça franchement... Ce qui rend les choses difficiles, c'est la trame actuelle.

Je pense qu'il est nécessaire de changer la présentation...

En tout cas, voici un code à essayer avec les données organisées sous forme d'un unique tableau structuré (nommé "montableau" dans le code) :

sub test()
t = range("montableau").value2 '<<< ADAPTER REF DU TABLEAU
set dico = createobject("Scripting.Dictionary")
for each e in t
    if not isnumeric(e) and e <> "" then dico(e) = dico(e) + 1
next e
if dico.count = 0 then msgbox "VIDE !", 16: exit sub
with sheets.add(after:=sheets(sheets.count)).cells(1, 1)
    .resize(, 2).value = array("Noms", "Occurrences")
    .offset(1, 0).resize(dico.count, 2) = application.transpose(array(dico.keys, dico.items))
end with
end sub

Ce code crée ensuite une nouvelle feuille et y inscrit les noms et les occurrences d'apparition.

Cdlt,