Discussion :

[lorie52]

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

[DeaD78]

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 :

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

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 :

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

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 !

[Gorfael]

Salut lorie52 et le forum

Code :

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

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 :

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

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