Autres Extraire valeurs identiques d'une même colonne

Caninge

XLDnaute Accro
Bonsoir à tous,

c'est dingue ce soir je n'arrive pas à tourner une question comme il faut.
Pourriez-vous me donner un coup de main s'il vous plait.
Je voudrais extraire des données sur un tableau.
Je ne sais pas si vous comprendrez
J'ai essayé avec Index Équivalence mais...
(peut-être le confinement qui me joue des tours lol)

Merci
 

Pièces jointes

  • Extraction de valeurs identiques.xlsx
    11.4 KB · Affichages: 19

Caninge

XLDnaute Accro
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

job75

XLDnaute Barbatruc
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

Danixdb

XLDnaute Nouveau
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

Caninge

XLDnaute Accro
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

job75

XLDnaute Barbatruc
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

Caninge

XLDnaute Accro
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
 

R@chid

XLDnaute Barbatruc
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:

R@chid

XLDnaute Barbatruc
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

Discussions similaires

Statistiques des forums

Discussions
312 204
Messages
2 086 198
Membres
103 155
dernier inscrit
lombrik