Autres Extraire valeurs identiques d'une même colonne

S

st007

XLDnaute Barbatruc

• 6 Avril 2020

• #2

Bonsoir,
Comme ceci avec 2 noms définis et une matricielle à étiré ?

 

Pièces jointes

• Extraction de valeurs identiques.xlsx

  13.4 KB · Affichages: 12

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 6 Avril 2020

• #3

Bonsoir,

merci pour la réponse. Il faut que je regarde tout ça de près.

Je vous tiens au courant.

Bonne soirée

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 6 Avril 2020

• #4

Bonsoir,

Tout va bien je viens de regarder le fichier sauf que j'ai oublié qu'l fallait tenir compte du nombre de
lettres dans la colonne H.
C'est à dire qu'il faudrait tenir compte de ce critère .
Exemple le F = 2 fois donc 2 F dans la ligne.
Comme dans mon exemple
Merci

 

Pièces jointes

• Extraction de valeurs identiques V_2.xlsx

  12.5 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Avril 2020

• #5

Bonsoir Caninge,

Formule matricielle très classique en J5 à tirer vers la droite :

Code:

=SIERREUR(INDEX($B:$B;PETITE.VALEUR(SI($G3:$G1000="Non placé";LIGNE($G3:$G1000));COLONNES($J5:J5)));"")

A+

 

Pièces jointes

• Extraction de valeurs identiques(1).xlsx

  13.3 KB · Affichages: 4

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 6 Avril 2020

• #6

Bonsoir Job75 st007,

je viens d'envoyer un fichier Job75, j'ai oublié un critère.

 

Pièces jointes

• Extraction de valeurs identiques V_2.xlsx

  12.5 KB · Affichages: 10

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 6 Avril 2020

• #7

Bonsoir

Tu peux faire dans J5 avec

Code:

INDEX(LETTRES;MIN(SI((PLACE="Non placé")*(NB.SI($I5:I5;LETTRES)<SI($H$3:$H$29=0;1;$H$3:$H$29));LIGNE(LETTRES)-2)))

en matriciel

@ plus

 

Vote positif 0 Vote négatif

D

Danixdb

XLDnaute Nouveau

• 6 Avril 2020

• #8

Bonjour Caninge, st007,job75, Le Forum,

Une solution Power query ? Pour mettre à jour se positionner sur une cellule en orange et clic droit Actualiser.
Cordialement
DanixDB

 

Pièces jointes

• Extraction de valeurs identiques.xlsx

  263.5 KB · Affichages: 2

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 7 Avril 2020

• #9

Bonjour à tous,

J'ai mis en pièce jointe le fichier avec les positions exactes de mes cellules sur le vrai fichier.
si possible au lieu de mettre les lettres sur une même ligne j'aimerais qu'ils soient étalés sur 7 colonnes et sur 15 lignes.
Merci

 

Pièces jointes

• Extraction de valeurs identiques V_3.xlsx

  15.3 KB · Affichages: 5

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 7 Avril 2020

• #10

Bonjour

Cf. en pièce jointe. Pas trop difficile à partir de la formule de mon post #7.

@ plus

 

Pièces jointes

• Extraction de valeurs identiques V_3.xlsx

  18.6 KB · Affichages: 10

Dernière édition: 7 Avril 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2020

• #11

Bonjour Caninge et les autres,

Voyez le fichier .xlsm joint et cette macro :

VB:

Sub Récupérer()
Dim tablo, i&, j&, n&, resu$(), ncol%, nn&
tablo = [T6].CurrentRegion.Resize(, 7) 'matrice, plus rapide, à adapter
For i = 2 To UBound(tablo)
    If tablo(i, 6) = "Non placé" Then
        For j = 1 To Val(tablo(i, 7))
            n = n + 1
            ReDim Preserve resu(1 To n)
            resu(n) = tablo(i, 1)
        Next j
    End If
Next i
'---restitution---
With [AC23:AI37] 'à adapter
    tablo = .Value 'matrice, plus rapide
    ncol = UBound(tablo, 2)
    For i = 1 To UBound(tablo)
        For j = 1 To ncol
            nn = nn + 1
            If nn > n Then tablo(i, j) = "" Else tablo(i, j) = resu(nn)
    Next j, i
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
    .Value = tablo
End With
If nn < n Then MsgBox "Le tableau de restitution n'est pas assez grand..."
End Sub

J'ai mis une MFC sur AC23:AI37.

A+

 

Pièces jointes

• Extraction de valeurs identiques(1).xlsm

  25.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 8 Avril 2020

• #12

Bonjour Job75, CISCO, Danixdb, st007

J'ai essayé toutes les solutions que vous m'avez suggéré. Toutes fonctionnent.
Maintenant je vais mettre en pratique tout cela et pouvoir jouer au scrabble.
Surtout en ce moment avec le confinement beaucoup de parties sont prévues.
Bon courage à vous tous et merci.

CANINGE

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 9 Avril 2020

• #13

Bonjour @ tous,
on peut le faire avec Power Query
Voir PJ
Après l'ajout ou la modification des données dans ton tableau, fais un clic droit dans une cellule du tableau Orange puis Actualiser.

NB :
Excel2010 : il faut télécharger et installer l'adin Power Query
Excel2013 : Il faut aller l'activer dans les compléments si ce n'est pas encore fait.
Excel2016 et Excel2019 : Power Query est une fonction native

Pour les versions antérieures comme Excel2007 et Excel2003, le fichier ne sert à rien.


Cordialement

 

Pièces jointes

• Caninge_Extraction.xlsx

  22.5 KB · Affichages: 5

Dernière édition: 9 Avril 2020

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 9 Avril 2020

• #14

Bonjour à tous,

je suis un peu à l'ancienne, je possède EXCEL 2007. Je voudrais bien me procurer la dernière version. Il doit y avoir plusieurs façons de l'acheter. Vous avez peut-être une petite idée ?
Merci.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 9 Avril 2020

• #15

Bonjour @ tous,
Tu peux acheter la version Excel2019 ou Office365 en ligne.

Sur mon premier fichier je me suis basé sur ton Tableau avec la première colonne contient juste des lettres, mais si jamais ce n'était qu'un exemple, voici une nouvelle version qui fonctionne même si la colonne lettre contient des mots au lieu de lettres.


Cordialement

 

Pièces jointes

• Caninge_Extraction_V2.xlsx

  23.3 KB · Affichages: 5

Vote positif 0 Vote négatif