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

[ZENHA ENT]

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

 

[JHA]

Bonjour à tous,

A essayer

=SI(ESTNUM(CHERCHE("*"&B$1&"*";$A2));"x";"")

JHA

 

[ZENHA ENT]

Merci mais ce que je veux c'est pas ca , je veux rajouter les cases coloré en jaune dans la ligne 1 à partir de la colonne A
Un deuxième exemple est ci-joint

 

[JHA]

Bonjour à tous

Je pense qu'il faut passer par VBA.
Ci-joint un début de piste avec power query.

JHA

 

[ZENHA ENT]

Merci beaucoup mais c'est très difficile à mettre en place pour moi car je ne connais pas du tot power querry

 

[JHA]

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

 

[ZENHA ENT]

j'ai fait la même chose mais cela ne répond pas à mon besoin
Merci en tt cas

 

[Deadpool_CC]

Bonjour,
juste pour le Fun avec une macro qui pourrait être optimisée 🙂
...

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

 

[ZENHA ENT]

Merci cela marche bien,j'ai essayé de faire la meme chose en colonne c mais j'ai eu des problémes pouvez vous m'aider svp !

 

[ZENHA ENT]

quelqu'un peut m'aider sur le sujet svp !

 

[Cousinhub]

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

 

[ZENHA ENT]

je me suis excusé c'était une erreur