VBA problème Fermé

Question

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 !







Configuration: Windows Vista / Firefox 3.6.16

lermite222 · Answer

Bonjour, beh oui.. quel est le problème ?
Montre le code qui va pas.
A+

patouki · Answer

EXCEL:


PRODUIT  |   DETAILS  | QUANTITE   | PRIX









Sub 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é

informaticienSAP · Answer

t'as cherché sur Google ? 

For Each my_var In ... 
MsgBox my_var.Value 
Next

Polux31 · Answer

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.

VBA problème

4 réponses

Discussions similaires