XL 2010 Récupérer et transposer des données d'1 col à l'autre

[mfb]

Bonjour,
Comme l'indique le titre du message je cherche à récupérer des données contenues dans une colonne et les transposer dans une autre.
Un petit fichier vaut mieux qu'un long discours alors je joint en PJ.
A dispo pour + infos
Par avance merci
Daniel

 

[djidji59430]

Bonjour,

 

[mfb]

Re,
Merci djidji.
je dois être dans le brouillard car j'ai fouillé la PJ j'ai rien vu.
Es ce un oubli ou une pierre dans mon jardin ?
A+
Daniel

 

[vgendron]

Hello
un essai avec macro
(Je n'arrive pas à trouver la formule matricielle qui va bien.. suis sur qu'elle n'est pas sii compliquée que ca. mais je sèche)

Sub RefColor()
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .Range("A:B").ClearContents 'on efface les colonnes A et B
    .Range("H:H").ClearContents 'ainsi que la colonne H que j'utilise pour afficher le résultat
    fin = .Range("K" & .Rows.Count).End(xlUp).Row 'récupère la dernière ligne sur la colonne K
    For i = 3 To fin 'pour chaque ligne
        If .Range("K" & i) <> "" And .Range("J" & i) <> "" Then 'si on a un couple Ref / Couleur
            .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = .Range("J" & i) 'on le recopie en colonne A B
            .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) = .Range("K" & i)
        End If
    Next i
    Set zone = .Range("A2").CurrentRegion.Resize(, 1) 'on set la zone des couples Ref Couleur
   
    For i = 3 To fin 'sur chaque ligne
        On Error Resume Next 'une erreur intervenant lorsque la couleur n'est pas affectée à la moindre référence
        If .Range("k" & i) <> "" Then .Range("H" & i) = WorksheetFunction.Index(zone, WorksheetFunction.Match(.Range("K" & i), Range("B2:B7"), 0))
    Next i
End With

Application.ScreenUpdating = True
End Sub

 

[mfb]

Re,
Merci vgendron,
j'ai installé le code dans le bouton 2.
lors du test il m'a été demandé de déclarer " i , fin et zone" .
pour i et fin apparemment c'est ok avec Integer
Mais pour zone j'ai pas trouvé.
alors encore un petit tuyau.
A+
Daniel

 

[vgendron]

essaie : dim zone as range

 

[mfb]

Re,
C'est tout bon.
Alors GRAND merci
et A + peut être pour d'autre sujet.
Daniel