Discussion :

[seblap47]

Bonjour,

Le but de ce fichier (fonctionnel) est de comptabiliser en fin de journée le nombre de plateaux (de fraise) que chaque "ramasseur" a fait.
Chaque ramasseur colle un code barre qui lui est propre sur chacun de ses plateaux.
En fin de journée, on scanne l'ensemble des plateaux des ramasseurs.
Sur la feuille "Accueil" dans la colonne C il y a le total des plateaux qui est incrémenté au fur et à mesure que l'on scanne les plateaux.
On scanne les code barre (ou on rentre manuellement la valeur) dans la colonne B4 de la feuille "Accueil".
Je ne vais pas m'étendre sur les boutons "Préparer impression", "Enregistrer en PDF" et "Voir PDF" qui fonctionnent et dont l'explication n'apportera rien à ce post.

Les boutons 1 à 10 sont là uniquement à des fins de tests.
Je n'ai pas de lecteur de code barre sous la main.
Pour éviter de saisir manuellement la valeur du code barre, je clique sur les boutons de 1 à 10 pour incrémenter dans la colonne C les plateaux des ramasseurs de 1 à 10.

Au fur et à mesure que l'on scanne les plateaux, une liste ce forme en feuille "Totaux".

Dans la feuille "Ramasseurs" il y a 3 colonnes.

A : Les ramasseurs de 1 à 50

B : soit on laisse comme ça soit je peux mettre le nom propre de la personne qui ramasse.
C'est ce nom qui se reporte dans la colonne B de la feuille "Accueil"

C : la valeur du code barre

Jusque-là tout marche.

Si jamais je me trompe pendant le scan des codes-barres, je dois pouvoir corriger ça.
Pour ce faire il y a le bouton "Correction" sur la page "Accueil"

Explication :

Je clique sur le bouton "Correction"
Je rentre ou je scanne le code barre dans la zone code barre.
Je clique sur "Modifier"
Je vois la valeur actuelle.

Je voudrais pouvoir incrémenter ou décrémenter la valeur en cours à l'aide des boutons + et -

Merci

Cordialement



code_barre.xlsm

[clementmarcotte]

Va voir là:

http://www.developpez.com/actu/82467...rs-intentions/

et là:

http://www.developpez.net/forums/d84...s-discussions/

[gnain]

Bonjour,
pour incrémenter

Code :

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

1
2
3
4
5
 
Private Sub CommandButton5_Click()
TextBox2.Text = TextBox2.Text + 1
ActiveSheet.Range("B4") = Sheets(3).Cells(li - 9, 3)
End Sub

pour décrémenter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton6_Click()
    TextBox2.Text = TextBox2.Text - 1
    Sheets("Totaux").Select
    Err.Clear
    On Error Resume Next
    Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    If Err.Number Then
        Err.Clear
        On Error GoTo 0
    Else
        Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp
    End If
    On Error GoTo 0
    Sheets("Accueil").Select
End Sub

[seblap47]

Tout est dans le titre !

MERCI c'est super sympa à vous deux !

Bonne soirée

Sébastien

[seblap47]

Comment faire pour verrouiller la saisie du code barre en B4 de la feuille "Accueil" ?
Actuellement on peut malencontreusement ce déplacer en B5

Et enfin, comment faire pour qu'il y ait une demande de confirmation quand on presse le bouton "RAZ" ?

Bonne soirée

Sébastien

[gnain]

Comment faire pour verrouiller la saisie du code barre en B4 de la feuille "Accueil" ?
Actuellement on peut malencontreusement ce déplacer en B5

Edit:voir message suivant

Et enfin, comment faire pour qu'il y ait une demande de confirmation quand on presse le bouton "RAZ" ?

Code :

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

1
2
3
4
5
6
7
Public Sub RAZ()
 
    If MsgBox("Etes-vous sur de.....", vbQuestion + vbYesNo) = vbYes Then
        Sheets(2).Range("A2:B100") = "" 'efface tableau des totaux dans feuille Totaux
    End If
 
End Sub

[gnain]

Comment faire pour verrouiller la saisie du code barre en B4 de la feuille "Accueil" ?
Actuellement on peut malencontreusement ce déplacer en B5
Sébastien

C'est parce que la cellule B5 n'est pas verrouillé.
premièrement enlever la protection de la feuille,
ensuite pour verrouillé la cellule B5

-activé la cellule B5
-faite un click droit
-format cellule
-coché verrouillé

remettre la protection de la feuille

[seblap47]

Et bien, merci une fois de plus. J'ai gagné beaucoup de temps grâce à toi !
C'est vraiment sympa de ta part !
Je te souhaite une bonne soirée.