Manipulation VBA et Excel

Bonjour à tous
Voila je débute totalement en VB et j'ai à effectuer une gestion de stock sur Excel à l'aide de code barre.
Bon j'ai déja fait un UserForm avec mes divers labels et TextBox.
J'ai donc un textbox qui me permet d'afficher le texte du code barre lu et lance la recherche dans le classeur excel correspondant. Ceci fonctionne.
j'ai utilisé la fonction suivante :

Code:

---

1 2	Sheets("STOCK").Columns(1).Cells.Find(What:=SCANNE.Text).Activate

---

Donc la reférence du produit se trouve en colonne A (1) et le text scanné s'affiche dans la textBox SCANNE.

Mon problème est que je souhaite décrémenter la quantité correspondant au produit qui se trouve sur la meme ligne mais colonne B.

Je ne sais donc pas comment réaliser ceci.
J'ai essayé :

Code:

---

1 2	Range(Cells(ActiveCell, 2)) = Range(Cells(ActiveCell, 2)) - 1

---

mais un message d'erreur s'affiche et surtout le plus embêtant c'est que le code lu s'arrete à 1 caractere.

Pourriez vous s'il vous plait m'orienter, j'ai vraiment du mal à gerer tout ceci

En vous remerciant par avance

Code:

---

1 2	Sheets("Feuil1").Cells(ActiveCell.Row, 2).Value = Sheets("Feuil1").Cells(ActiveCell.Row, 2).Value - 1

---

Sheets() pour sélectionner la feuille
Cells()pour choisir la cellule
Activecell.row numero de ligne de la cellule active
2 colonne voulue
.value pour travailler sur la valeur.

ah oui d'accord,
bon je pouvais encore chercher un moment !!!

Merci beaucoup

Mon autre probleme vient de ceci :

J'ai ce code qui correspond à la recherche dans le classeur du texte écrit dans la textBox "SCANNE". A savoir que ma douchette fait la fin de ligne en simulant l'appui sur la touche entrée.

Code:

---

1 2 3 4 5

Private Sub SCANNE_Change()   Sheets("STOCK").Columns(1).Cells.Find(What:=SCANNE.Text).Activate ' recherche la chaine de char   End Sub

---

J'aurai en fait voulu réaliser la décrémentation de la colonne 2, donc du code que m'a gentiment envoyé Pascal Lob, une fois que la douchette a renvoyé la touche "entrée"

parce que pour l'instant si j'applique les deux codes comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub SCANNE_Change()   Sheets("STOCK").Columns(1).Cells.Find(What:=SCANNE.Text).Activate ' recherche la chaine de char   ' fonction de remplacement de la qté Sheets("STOCK").Cells(ActiveCell.Row, 2).Value = sheets("STOCK").Cells(ActiveCell.Row, 2).Value - 1   End Sub

---

Et bien cela fonctionne mais je fait -1 à chaque caractère, c'est à dire que si j'ai 17 pieces restantes, et que mon code est par exemple RESISTANCE, alors il va m'en rester 7 car RESISTANCE possède 10 lettres....

Merci beaucoup encore par avance

Citation:

---

Et bien cela fonctionne mais je fait -1 à chaque caractère, c'est à dire que si j'ai 17 pieces restantes, et que mon code est par exemple RESISTANCE, alors il va m'en rester 7 car RESISTANCE possède 10 lettres....

---

Ce doit être parceque tu a choisi l'événement "Change" de ta text box.
Essaye avec un "Validate" surtout si ton lecteur envoie une touche entrée à la fin.

Merci beaucoup Pascal Lob, mais je suis vraiment mauvais !
En haut à droite j'ai une liste avec les diverses fonctions du genre Enter, Change, Terminate etc. mais pas de validate.
Effectivement mon problème vient de là, tu as mis le doigt pile dessus, pour cela je t'en remercie, je sais où chercher,mais peux tu juste m'indiquer où chercher le Validate ?
Merci par avance

Excuse moi, c'est en VB6 qu'on a le validate. Sous Excel tu peux essayer avec Exit.

:mouarf: merci beaucoup cela fonctionne !!!!!
Enfin !!

Merci beaucoup pour ton aide !
:ccool::ccool:

Maintenant je vais essayer de coder la "mise en stock..."
;)

Merci encore