incrémenter / décrémenter

Version imprimable

15/03/2015, 17h39
seblap47

1 pièce(s) jointe(s)

incrémenter / décrémenter

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

Pièce jointe 171754
15/03/2015, 18h39
clementmarcotte

Va voir là:

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

et là:

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

Bonjour,
pour incrémenter

Code:

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:

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

15/03/2015, 20h16
seblap47

Merci

Tout est dans le titre !

MERCI c'est super sympa à vous deux !

Bonne soirée

Sébastien
15/03/2015, 20h36
seblap47

Deux dernières questions hors sujet

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

Citation:

Envoyé par 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

Edit:voir message suivant

Citation:

Envoyé par seblap47

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

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

15/03/2015, 21h07
gnain

Citation:

Envoyé par 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
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
15/03/2015, 21h30
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.