VBA problème
patouki
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
Je voudrais que l'utilisateur entre une valeur X et que le programme cherche dans une colonne Y si la valeur X existe,
si oui, on se déplace de deux colonnes et on remplace sur la ligne de la valeur, la valeur entrée par l'utilisateur.
J'ai fait une inputbox pour la valeur X
un FOR EACH pour scanner la colonne
suivis d'un SI pour tester la valeur est trouvée.
Après je voudrais récupérer la ligne où la valeur a été trouvé et la colonne
Puis ajouter la valeur X à la cellule voulue.
Merciii !
Je voudrais que l'utilisateur entre une valeur X et que le programme cherche dans une colonne Y si la valeur X existe,
si oui, on se déplace de deux colonnes et on remplace sur la ligne de la valeur, la valeur entrée par l'utilisateur.
J'ai fait une inputbox pour la valeur X
un FOR EACH pour scanner la colonne
suivis d'un SI pour tester la valeur est trouvée.
Après je voudrais récupérer la ligne où la valeur a été trouvé et la colonne
Puis ajouter la valeur X à la cellule voulue.
Merciii !
4 réponses
-
Bonjour, beh oui.. quel est le problème ?
Montre le code qui va pas.
A+ -
EXCEL:
PRODUIT | DETAILS | QUANTITE | PRIXSub produit() i = 3 j = 2 10 nom = InputBox("Entrez le nom de votre produit :") plus = InputBox("Enrez le détail du produit(50 cl, 1L,...)") quantite = InputBox("Entrez la quantité achetée du produit") prix= InputBox("Entrez le prix du produit") Worksheets("data").Cells(i, j) = nom j = j + 1 Worksheets("data").Cells(i, j) = plus j = j + 1 Worksheets("data").Cells(i, j) = quantite j = j + 1 Worksheets("data").Cells(i, j) = prix j = j - 3 Answer = MsgBox("Recommencer?", vbQuestion + vbYesNo, "???") If Answer = 6 Then i = i + 1 GoTo 10 Else GoTo 11 11 MsgBox ("Merci et aurevoir") End If End Sub
ce code permet d'ajouter une ligne avec les nouvelles données
mais je voudrais que cela soit ajouter une ligne si le produit n'existe pas, soit il met à jour la colonne quantité -
t'as cherché sur Google ?
For Each my_var In ... MsgBox my_var.Value Next
-
Bonjour,
Entre la demande initiale et ce qui est demandé dans le dernier post ce n'est déjà pas la même chose.
Merci, avant de poster, de définir exactement le besoin pour obtenir une réponse cohérente.
A bon entendeur.
