OVH Cloud OVH Cloud

Comment extraire les valeurs d'une matrice dans une col. Excel ?

3 réponses
Avatar
agueguen
Sous Excel, je souhaite récupérer dans une colonne l'ensemble des valeurs
présentes dans une matrice, en ayant une liste épurée des doublons si
possible.
Merci de votre aide.

3 réponses

Avatar
Modeste
Bonsour®
agueguen wrote:
Sous Excel, je souhaite récupérer dans une colonne l'ensemble des
valeurs présentes dans une matrice, en ayant une liste épurée des doublons
si possible.


avec la contrainte qu'il n'y ai pas de cellules vides dans la plage
concernée :
http://xcell05.free.fr/pages/form/doublons.htm#Formules

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
agueguen
Bonjour,
La fonction "VALEURS.UNIQUES" ramène une seule valeur (la + petite ou la +
grande selon le critère de tri dans la cellule cible. Je voudrais, dans une
colonne cible, l'ensemble des différentes valeurs du tableau, en ayant
éliminé les doublons.
Merci de votre aide.


Bonsour®
agueguen wrote:
Sous Excel, je souhaite récupérer dans une colonne l'ensemble des
valeurs présentes dans une matrice, en ayant une liste épurée des doublons
si possible.


avec la contrainte qu'il n'y ai pas de cellules vides dans la plage
concernée :
http://xcell05.free.fr/pages/form/doublons.htm#Formules

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042






Avatar
Modeste
Bonsour®
agueguen wrote:
Je voudrais, dans une colonne cible, l'ensemble des différentes valeurs
du tableau, en ayant éliminé les doublons.
Merci de votre aide.
dans ce cas un petite macro ???


Sub Macro1()
'-------------Remplacer "A1:A24" par la plage origine
'-------------Remplacer G1 par la zone destination
Range("A1:A24").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"G1"), Unique:=True
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A8"), Type:=xlFillDefault
Range("G1").CurrentRegion.Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042