Discussion :

[marc56]

J'ai trouvé une solution sans VBA qui fonctionne, mais qui demande à être ajustée quand les données proviennent d'une autre feuille.
Y a-t'il un spécialise derrière son écran pour faire la correction?

Impossible de joindre un fichier qui ne fait que 12k et ma boite n'est pas pleine???

[Pierre Fauconnier]

Bonjour

A priori, pas de problèmes pour un envoi de pièce jointe. C'est bien un fichier excel?

Précise ce que tu souhaites obtenir, et la situation de ton classeur...

[marc56]

J'ai trouvé pourquoi, mon fichier était en Excel 2007 avec une extension à 4 lettres (xlsx)

[Bigalo]

Bonjour,

Voici une solution, pas forcément optimisée mais qui marche :

Code :

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

=SUBSTITUE(INDEX(Données!A$1:A$7;MIN(SI(NB.SI(B$1:B1;Données!A$2:A$7)=0;LIGNE(Données!A$2:A$7))));A$1;"")

à placer en B2 de la feuille "Liste", à valider en matricielle, puis à recopier vers le bas.

Pour rendre la formule en B2 + lisible, l’on peut définir ainsi les 2 noms

Code :

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

1
2
Source	=Données!$A$1:DECALER(Données!$A$1;NBVAL(Données!$A:$A) - 1;0)	
Valeurs	=Source DECALER(Source;1;0)

ce qui aboutit à

Code :

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

=SUBSTITUE(INDEX(Source;MIN(SI(NB.SI(B$1:B1;Valeurs)=0;LIGNE(Valeurs))));A$1;"")

Le nom Source correspond à la plage A1:A7 de ta feuille données, à condtion qu’il n’y ait rien d’autre en colonne A.

Le nom Valeurs correspond à la plage A2:A7 de la même feuille, avec la même condition.

Ce qui permet d’éliminer la cellule A1 de la plage Valeurs, est l’espace entre "Source" et "DECALER...".

Tout le monde connaît l’opérateur ":" qui correspond à l’union, A1:A7 par exemple.

L’espace, moins couramment utilisé est l’opérateur d’intersection.

Cordialement,

[marc56]

Je vais essayer d'adapter la formule à mon problème demain, c'est la raison pour laquelle je ne clos pas la discution pour le cas ou....

[marc56]

Merci Bigalo, je n'ai pas tout compris dans tes formules, mais j'ai transposé et ça marche. Je me re-pencherai dessus quand j'aurai un peu plus de temps.

[Bigalo]

La première formule est simple mais pas très lisible parce que longue.

Par rapport à ta formule, j’ai simplement remplaé les références par des références vers la feuille Données, et ajouté une fonction SUBSTITUE() pour remplacer le titre "Source" par un texte vide.

Merci Bigalo, je n'ai pas tout compris dans tes formules, mais j'ai transposé et ça marche. Je me re-pencherai dessus quand j'aurai un peu plus de temps.

La seconde formule me paraît beaucoup plus lisible, mais elle implique la création préalable de 2 noms.

Cordialement,

[marc56]

Merci pour ta compétence et ta disponibilité.

[Bigalo]

Bonsoir,

De rien, le forum est fait pour cela.