XL 2019 Copier les données d'une colonne vers une ligne

ZENHA ENT

XLDnaute Nouveau
Bonjour,

J'aimerais avoir une formule qui me permet de chercher le produit qui se trouve dans la colonne A et les copier sur différents colonnes de la première ligne du classeur
Le résultat souhaité est coloré en jaune dans le fichier ci-joint

Merci pour votre aide
 

Pièces jointes

  • Classeur2.xlsx
    8.8 KB · Affichages: 3

JHA

XLDnaute Barbatruc
Bonjour à tous,

Pour moi, cela est nouveau aussi. Ce n'est pas très compliqué pour faire ces actions.
Tu sélectionnes une cellule du tableau vert, puis dans le ruban, onglet "requête" puis "modifier"
Sur la droite tu as toutes les étapes.

JHA
 

Deadpool_CC

XLDnaute Accro
Bonjour,
juste pour le Fun avec une macro qui pourrait être optimisée :)
...

VB:
Sub SplitAndTransposeData()
'
' SplitData Macro
'
Dim nb As Integer
Dim Cellule As Range
nb = 0
'
' #### Attention à la range "A2:A4" ci dessous (j'ai pris celle de ton exemple

ActiveSheet.Range("A2:A4").TextToColumns Destination:=Range("AB2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True


For Each Cellule In Range("AB2").CurrentRegion
    If Cellule.Value <> "" Then
        Cells(1 + nb, 27).Value = Cellule.Value
        nb = nb + 1
    End If
Next

Range(Range("AA1"), Range("AA20000").End(xlUp)).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=Range("Z1"), _
    Unique:=True

Range("B1:Y1").ClearContents

Range(Range("Z1"), Range("Z1").End(xlDown)).Copy
Range("B1").PasteSpecial _
    Paste:=xlPasteValues, _
    Operation:=xlPasteSpecialOperationNone, _
    SkipBlanks:=True, _
    Transpose:=True

Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

Range(Range("B1"), Range("B1").End(xlToRight)).Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Selection, _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

Range("Z1").CurrentRegion.ClearContents
  
End Sub
 

Pièces jointes

  • Classeur Zenha cherche estnum_deadpool.xlsm
    23.1 KB · Affichages: 1

Cousinhub

XLDnaute Barbatruc
Bonjour,
Je vais prendre des gants avec ma réponse, vu les termes que tu emploies envers d'autres contributeurs sur un autre site...(réponse d'ailleurs destinée à ce site, comme ton dernier message l'indique)
Sache que ces forums ne sont animés que par des bénévoles, qui prennent de leur temps pour répondre et aider les personnes ayant des difficultés à arriver à leurs fins...
Il n'y a aucune notion d'urgence (conformément à la charte, point 2.2, et point 2.10 pour le multi-postage)
Donc, sois patient, 1 heure, c'est un peu rapide, pour une relance.
Bon courage
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG