Discussion :

[Robycoco]

Bonjour,

Je reviens vers vous pour quelque chose qui me fait fumer le cerveau !

J'ai plusieurs colonnes avec des informations.
Dans la colonne Destpos , j'ai des numéros qui doivent correspondre aux adresses du tableau résultat.
Dans la colonne A afficher dans la tableau, j'ai les informations que je veux voire apparaître dans le tableau en fonction de la colonne Destpos.

Je vous joins une capture d'écran pour que ce soit plus facilement compréhensible.



Pour résumer, selon la capture d'écran, je veux que le premier Coca de la colonne B soit affiché en A1 du tableau.
Je veux que le premier Soda de la colonne B soit affiché en A2 du tableau.
Pour le deuxième Eau de la colonne B, je veux qu'il soit affiché en D2 car position 12.

(H1 correspond à 8 et H2 correspond à 16)

J'espère avoir été clair, et je vous remercie pour votre aide !

[ARTURO83]

Bonjour,,

Essayez ceci:
Pièce jointe 596702

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Transfert()
    Dim i As Long, j As Long, Dec_Col As Long, DerLig As Long
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
 
    For i = 1 To 12
        Dec_Col = (i - 1) * 8
        For j = 1 To 8
            Cells(j + 2, i + 9) = "=IFERROR(IF(VLOOKUP(ROW()-2+" & Dec_Col & ",R1C1:R" & DerLig & "C2,2,0)="""","""",VLOOKUP(ROW()-2+" & Dec_Col & ",R1C1:R" & DerLig & "C2,2,0)),"""")"
        Next j
    Next i
End Sub

Cdlt

[Robycoco]

Re-bonjour,

Merci beaucoup Arturo83, ça fonctionne parfaitement ! J'ai juste eu à décaler les lignes car les résultats s'affichaient au dessus de mon tableau. (j+2 devient j+12 et row()-2 devient row()-12)

Encore merci et bravo !

Bonne journée.