[VBA-E] PROBLEME de recherche entre colonnes

Question

Post&#233; le: Mar F&#233;v 07, 2006 16:29   Sujet du message: [VBA-E] PROBLEME de recherche entre colonnes,
 ,
----

<HR>,
----

Il s&#146;agit d&#146;un probl&#232;me &#224; mon avis tr&#232;s simple pour des experts VB.
J&#146;ai deux tableaux Excel : le premier est compos&#233; des colonnes pdts, dates, prix de vente et le second seulement des colonnes pdts et dates. Le but est d&#146;attribuer &#224; chaque pdt pour chaque date du second tableau un prix de vente en allant chercher l&#146;info dans le premier tableau.
Voil&#224; le code que j'ai &#233;crit mais qui ne fonctionne pas! Merci pour votre aide!

[code]
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
[code]

CTAC · Answer

Bonjour,

Le premier tableau sur la feuille 1 avec sur la première ligne
les intitulés pdts, dates, prix.
Sélectionner le tableau,
Insertion Noms Créer Cocher ligne du haut.
Le second tableau sur la feuille 2 avec sur la première ligne
les intitulés pdts, dates, prix
Les pdts et les dates étant renseignés
prix étant en C1
C2 =INDEX(prix;EQUIV(A2&B2;pdts & dates;0))
Valider matricielle Ctrl Maj Entrée
Tirer C2 vers le bas jusqu'a la fin du tableau.

ctac

[VBA-E] PROBLEME de recherche entre colonnes

1 réponse

Discussions similaires