VBA problème

patouki -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 24 avril 2011 à 16:23

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 !

A voir également:

VBA problème
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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

Réponse 2 / 4

patouki

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é

Réponse 3 / 4

informaticienSAP Messages postés 119 Date d'inscription Statut Membre Dernière intervention 20

t'as cherché sur Google ?

For Each my_var In ... 
MsgBox my_var.Value 
Next

Réponse 4 / 4

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires