Il s’agit d’un problème à mon avis très simple pour des experts VB.
J’ai deux tableaux Excel : le premier est composé des colonnes pdts, dates, prix de vente et le second seulement des colonnes pdts et dates. Le but est d’attribuer à chaque pdt pour chaque date du second tableau un prix de vente en allant chercher l’info dans le premier tableau.
Voilà le code que j'ai écrit mais qui ne fonctionne pas! Merci pour votre aide!

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
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim b As Integer
Dim k As Integer
'Dim x As Long
 
i = 3
a = 2
 
Do
 
If Worksheets("PVHT").Cells(i, 1) = Worksheets("BDD").Cells(a, 4) Then
i = k
Else
i = i + 1
End If
 
k = i
    If Worksheets("PVHT").Cells(k, 7) = Worksheets("BDD").Cells(a, 40) Then
    Worksheets("BDD").Cells(a, 42) = Worksheets("PVHT").Cells(k, 5)
            Else
            k = k + 1
    End If
 
a = a + 1
 
Loop Until Worksheets("BDD").Cells(a, 40) = ""
 
End Sub