Discussion :

[gilou41]

Bonjour à tous
Je suis de nouveau confronté à un léger problème.
Je veux récupérer une valeur dans un tableau vertical (col1 = N° et col2 = quantité) et la mettre dans un second tableau horizontal (Ligne1 = N° et Ligne2 = quantité).
Afin d'être plus parlant, je joint un fichier avec un exemple de mes 2 tableaux.
Je vous remercie d'avance pour les solutions que vous pourriez m'apporter.
Cordialement

[goldstar]

Bonjour

Un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Sub maj_tab()
 
Dim cpt As Integer
Dim num As Integer, qte As Integer
 
For cpt = 4 To Sheets("Feuil1").Range("s" & Rows.Count).End(xlUp).Row
    num = Sheets("Feuil1").Cells(cpt, 19)
    qte = Sheets("Feuil1").Cells(cpt, 20)
 
    'Recherche du n° sur la ligne 3
    Set R = Sheets("Feuil1").Range("B3:K3").Find(num)
 
    If Not R Is Nothing Then
        Sheets("Feuil1").Cells(4, R.Column) = qte
    End If
 
Next cpt
 
End Sub

Cordialement,

[gilou41]

Merci beaucoup pour ta proposition qui non seulement fonctionne bien mais répond parfaitement à mon besoin.
Je te souhaite une bonne journée