Discussion :

[july92]

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

[DarkVader]

SVP
Veuillez éditer
votre titre afin qu'il soit clair et précis, ainsi que
le contenu de votre post (absence de balises de code *)
afin de vous conformer aux régles d'utilisation des forums.

Prière de lire les régles d'utilisation avant de poster.

Merci

* Mode d'emploi du BBCode

[repié]

Si ton problème n'est qu'une question de correspondance entre des colonnes, tu ne veux pas plutot essayer d'utiliser la fonction "RechercheV" et de la copier pour toutes les cellules du tableau 2?

[faroukvazaha]

Je pense que si tu fais un tri avec en critère numéro 1 la colonne pdts et en critère numéro 2 la colonne date, tu devrais arriver au résultat voulu. tu n'auras plus qu'à copier-coller dans une autre feuille le tableau que tu viens de trier.
Bon courage.

[repié]

concernant la fonction recherchev, c ce que je comptais utiliser mais vu que je me base sur deux critères de recherche (date+pdt), cette fonction ne marche pas... enfin c ce que je pense, tu confirmes?

Il y a déja eu des réflexions à ce sujet et la solution était de comparer non pas les deux colonnes mais une troisième qui concaténait les deux premières.
Avantage : la mise à jour est automatique donc t'as pas besoins de relancer la macro.

Sinon j'ai testé ton code et, lors du premier passage dans la boucle, tu testes

if i = k

alors que k n'a aucune valeur et ensuite tu mets k en numéro de colonne alors que k est égal à 0