Etablir une liste des noms sans espace...

[Adamev]

Bonjour le forum,
J'ai des noms (10 par ex.) écrits dans la plage A1:C10, chaque noms est écrit une seule fois. Ces noms sont donc éparpillés dans cette plage.
Je voudais établir cette liste dans la ligne F1:F10, c-à-d en éliminant les espaces entre les cellules contenant ces noms; en gardant la plage A1:C10 telle quelle.
Merci d'avance

 

[Staple1600]

Re : Etablir une liste des noms sans espace...

Bonsoir Adamev, le fil, le forum

Une solution basique par macro

Sub Macro1()
Dim i&
Range("A1:C10").Copy Range("F1")
For i = 1 To 10
Cells(i, "F").Resize(, 3).Sort Key1:=Range("F" & i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next i
[F1:F10].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

PS: code testé, donc fonctionnel

 

[BOISGONTIER]

Re : Etablir une liste des noms sans espace...

Bonsoir,

 Set mondico = CreateObject("Scripting.Dictionary")
 For Each c In [A1:C10].SpecialCells(xlCellTypeConstants, 23)
   mondico(c.Value) = c.Value
 Next
 [F1].Resize(mondico.Count) = Application.Transpose(mondico.keys)

JB

 

[Adamev]

Re : Etablir une liste des noms sans espace...

Bonjour Staple1600; le forum,

PS: code testé, donc fonctionnel

Merci pour le code.
Oui ça marche, mais pas tout à fait comme souhaité. La liste des noms (chez moi) s'étale sur la plage f1:g10 et non pas sur la colonne f1:f10.

Etant débutant en VBA, je suis incapable de comprendre comment rédiger un code.

Est-il possible d'atteindre le même résultat sans VBA?

 

[Adamev]

Re : Etablir une liste des noms sans espace...

Bonjour BOISGONTIER, le fil, le forum,

Bonsoir,

 Set mondico = CreateObject("Scripting.Dictionary")
 For Each c In [A1:C10].SpecialCells(xlCellTypeConstants, 23)
   mondico(c.Value) = c.Value
 Next
 [F1].Resize(mondico.Count) = Application.Transpose(mondico.keys)

JB

Merci pour la réponse.
Le code fonctionne bien, je te remercie.

Une question: Est-il possible de résoudre ce problème sans VBA?

 

[Staple1600]

Re : Etablir une liste des noms sans espace...

Re

La liste des noms (chez moi) s'étale sur la plage f1:g10 et non pas sur la colonne f1:f10.

Pourtant tu écrivais dans ton premier message 🙄

Je voudais établir cette liste dans la ligne F1:F10,

Alors quelle est en définitive la bonne plage de cellules?

PS: le code de BOISGONTIER copie pourtant les valeurs dans la colonne F !

 

[Adamev]

Re : Etablir une liste des noms sans espace...

Bonjour taple1600

Re

Alors quelle est en définitive la bonne plage de cellules?

Je voudrais que la liste issue soit sur une seule ligne (ou une seule colonne), et non pas sur une plage de plusieurs lignes (ou colonnes).
Je pense qu'une petite retouche résoud le problème.
Merci bien pour ton aide.

 

[Calvus]

Re : Etablir une liste des noms sans espace...

Bonjour BOISGONTIER, le fil, le forum,



Merci pour la réponse.
Le code fonctionne bien, je te remercie.

Une question: Est-il possible de résoudre ce problème sans VBA?

Bonsoir à tous,

Après quelques heures (beaucoup en fait ! 😕) de tournage en rond et d'arrachage des cheveux, je te propose une solution, dont je ne suis pas tout à fait satisfait.

J'aimerais tout d'abord remercier Tibo et Boisgontier pour leur aide.

Je pense qu'ils vont d'ailleurs facilement trouver une solution au problème qui persiste dans mon fichier, en l'occurrence de supprimer la colonne intermédiaire que je n'ai pas réussi à contourner.

J'ai créé un tableau de A1 à C10, contenant 10 noms de façon aléatoire.
On peut évidemment en ajouter ou en supprimer.
En colonne F on retrouve une liste des 10 noms, comme tu le souhaitais.
J'ai utilisé pour ça la formule

=INDEX($M$1:$M$40;MIN(SI(NB.SI(F$1:F1;$M$1:$M$40)=0;SI($M$1:$M$40<>0;LIGNE($M$1:$M$40)))))&""

à copier vers le bas.

Formule qui fait référence à la colonne M où j'ai adapté une formule de Boisgontier

=DECALER($A$1;ENT((LIGNES($1:1)-1)/3);(LIGNES($1:1)-1)-ENT((LIGNES($1:1)-1)/3)*3)

Voilà. J'ai tenté vainement de mixer les deux, mais sans réussir.

Fichier joint.

A+

 

[david84]

Re : Etablir une liste des noms sans espace...

Bonsoir,
ci-joint proposition sans colonne intermédiaire à partir du fichier fourni par Calvus.
A+

 

[Tibo]

Re : Etablir une liste des noms sans espace...

Bonsoir Calvus,

Une tentative avec une formule matricielle :

=SI(LIGNES($1:1)>NBVAL($A$1:$C$10);"";INDEX($A$1:$C$10;PETITE.VALEUR(SI(
$A$1:$C$10<>"";($A$1:$C$10<>"")*LIGNE($A$1:$A$10));LIGNES($1:1));MOD(
PETITE.VALEUR(SI($A$1:$C$10<>"";($A$1:$C$10<>"")*LIGNE($A$1:$A$10)+($A$1:$C$10
<>"")*COLONNE($A$1:$C$1)/100);LIGNES($1:1));1)*100))

Formule matricielle à valider par CTRL + MAJ + ENTREE

à recopier vers le bas

@+

Edit : Bing ! Salut David, le temps de tester et de poster, pas vu 🙂

@+

 

[Calvus]

Re : Etablir une liste des noms sans espace...

Bonsoir,

Bravo à tous les deux !

Comme quoi tous les chemins mènent à la solution.

Va falloir digérer maintenant, encore une fois.

Très intéressant David ta seconde solution qui permet de trier par colonne !

Merci

 

[BOISGONTIER]

Re : Etablir une liste des noms sans espace...

Bonjour,


Ordre colonnes
Le champ source et les formules peuvent être déplacés


=SI(LIGNES($1:1)<=NBVAL(champ);
INDEX(champ;MOD(PETITE.VALEUR(SI(champ<>"";COLONNE(champ)*10^5+LIGNE(INDIRECT("1:"&LIGNES(champ))));LIGNES($1:1));10^5);
ENT(PETITE.VALEUR(SI(champ<>"";COLONNE(champ)*10^5+LIGNE(INDIRECT("1:"&LIGNES(champ))));LIGNES($1:1))/10^5)-COLONNE(champ)+1);"")

Valider avec maj+crtrl+entrée

Ordre lignes
Le champ source et les formules peuvent être déplacés

=SI(LIGNES($1:1)<=NBVAL(champ);
INDEX(champ;PETITE.VALEUR(SI(champ<>"";LIGNE(INDIRECT("1:"&LIGNES(champ))));LIGNES($1:1));
MOD(PETITE.VALEUR(SI(champ<>"";LIGNE(INDIRECT("1:"&LIGNES(champ)))*10^5+COLONNE(champ));LIGNES($1:1));10^5)-COLONNE(champ)+1);"")


http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionSansVideTrie.xls


JB

 

[david84]

Re : Etablir une liste des noms sans espace...

Bonjour,
en s'inspirant des formules de JB et de Tibo :

Ordre lignes :

=SI(LIGNES($1:1)<=NBVAL(champ);INDIRECT(ADRESSE(PETITE.VALEUR(SI(champ<>"";LIGNE(champ));LIGNES($1:1));MOD(PETITE.VALEUR(SI(champ<>"";LIGNE(champ)*10^5+COLONNE(champ));LIGNES($1:1));10^5)));"")

Ordre colonnes :

=SI(LIGNES($1:1)<=NBVAL(champ);INDIRECT(ADRESSE(MOD(PETITE.VALEUR(SI(champ<>"";COLONNE(champ)*10^5+LIGNE(champ));LIGNES($1:1));10^5);PETITE.VALEUR(SI(champ<>"";COLONNE(champ));LIGNES($1:1))));"")

permet de raccourcir légèrement la formule en évitant l'utilisation des

LIGNE(INDIRECT("1:"&LIGNES(champ)))

A+

 

[Adamev]

Re : Etablir une liste des noms sans espace...

Bonjour Calvus, le fil, le forum,

...., je te propose une solution, dont je ne suis pas tout à fait satisfait.

merci beaucoup, pour moi c'est superbe.... cette colonne M ne me gêne pas!
Les experts du forum vont s'en charger...
Merci à tous

 

[Adamev]

Re : Etablir une liste des noms sans espace...

Bonjour david84, le fil, le forum,

ci-joint proposition sans colonne intermédiaire à partir du fichier fourni par Calvus.
A+

C'est formidable! merci infiniment pour ton aide précieuse.
Merci à vous tous