tableau excel qui s'actualise

bonjour,

je suis débutante en vb et j'aimerai creer une application en vb qui me permet de retrouver ma valeur(quantité du produit par exemple) dans mon tableau excel en entrant le nom du produit (par exemple) et la date
pour le tableau les données s'actualisent d'une semaine à lautre

Merci pour votre aide

Bonjour,

Pour entrer les données recherchées, regarde du côté des InputBox, il y a plein de tutos, posts et FAQ traitant du sujet.

En gros :

Code:

---

1 2 3 4 5

Dim nom as string Dim dat as string 'On va pas se fatiguer avec des types "date"   nom = InputBox(...) 'Cherche la syntaxe sur le fofo ou sur les tutos associés dat = InputBox(...)

---

Une fois cela fait, admettons que les noms soient dans la colonne A, les dates dans la colonne B et la valeur recherchées dans la colonne C :

Code:

---

1 2 3 4 5 6 7

For i = 1 to Range("A1").End(xldown).row If cells(i,1).value = nom then If cells(i,2).value = dat then Msgbox cells(i,3).value 'On affiche dans une fenêtre de dialogue la valeur trouvée End if End if Next

---

Bien entendu, tout ceci est soumis à amélioration.

Bonne chance !

Salut lorie52 et le forum

Code:

---

je suis débutante en vb

---

Soit présice dans tes questions : tu vas vraisemblablement avoir à adapter les réponses. Plus tu auras fourni de données précises, plus vite tu les retrouveras dans le code fourni et tu comprendras à quoi s'applique telle ou telle partie du code. Un petit code pour m'amuser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Nom_Prod As String Dim Date_Prod As Date Dim Plage_Recherche As Range, Cel As Range Nom_Prod = Application.InputBox("nom du produit", "recherche de produit", , , , , , 2) Date_Prod = Application.InputBox("Date du produit (d/m/aa)", "recherche de produit", , , , , , 1) Set Plage_Recherche = Application.InputBox("Adresse de la plage de recherche", "recherche de produit", , , , , , 8) MsgBox "Plage de la recherche : " & Plage_Recherche.Address(0, 0) & Chr(13) & Chr(13) & _ "Nom du produit : " & Nom_Prod & Chr(13) & Chr(13) & _ "Date du produit : " & Format(Date_Prod, "DD / MM / YYYY"), , "Recherche de produit" End Sub

---