Discussion :

[louminor]

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 :

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

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 :

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

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

[Pascal Lob]

Code :

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

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.

[louminor]

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 :

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

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 :

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

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