Additionner click commandbutton vers textbox

Bonjour,

Mon petit soucis est tous bête je suppose.

J'aimerais quand je clic sur mon commandbutton dans mon textbox son résultat soit 1 (Pour cela pas de soucis)

Cependant, quand je clic une deuxième fois dessus, j'aimerais que le résultat soit 2

si je clic une troisième fois dessus, le résultat soit 3

et ainsi de suit

J'espère m'être bien fait comprendre

En vous remerciant

Bonjour,

Peut-être ainsi ...

Private Sub CommandButton1_Click()
    If Me.TextBox1 = "" Then
        Me.TextBox1 = 1
        Exit Sub
    End If
    Me.TextBox1 = CInt(Me.TextBox1) + 1
End Sub

ric

Bonjour Ric,

Merci de prendre du temps à mon soucis.

J'ai essaye est ça marche super bien.

Est-ce que je peux abuser de votre temps.

J'ai rajouter une listbox, quand que fais la rajoute ça marche super bien.

Cependant, ça me marque les étapes est-ce que je pourrais avoir le résultat final seulement dans ma listbox.

Je m'explique:

si je clic une fois, dans ma listbox sa écrit: 1 test

si je clic deux fois, dans ma listbox sa écrit: 1 test puis 2 test

si je clic trois fois, dans ma listbox sa écrit: 1 test, 2 test puis 3 test

est-possible que ça me marque seulement le résultat final

si je clic 3 fois par exemple, dans ma listbox, sa me marque seulement 3 test

En vous remerciant

Bonjour,

Un essai ...

Private Sub CommandButton1_Click()

    If Me.TextBox1 = "" Then                ' si vide ... inscrit 1
        Me.TextBox1 = 1
    Else
        Me.TextBox1 = CInt(Me.TextBox1) + 1 ' sinon, ajoute 1
    End If

    'Insertion donnée dans listbox
    Me.ListBox1.Clear                       ' vide la listbox
    Me.ListBox1.AddItem                     ' inscrit les données
    ListBox1.List(0, 0) = TextBox1.Value
    ListBox1.List(0, 1) = TextBox2.Value
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox2 = "Test"
End Sub

ric

Bonjour,

Oui super ça marche

Bête question, j'ai rajouter un commandbutton2

Est-ce possible que lorsque je clic sur l'autre commandbutton2, il me face la même chose mais en gardant les infos du commandbutton1

En vous remerciant

Bonjour,

Un essai ...

Tu peux commencer avec un bouton ou l'autre indifféremment ...

ric

Bonsoir Ric,

C'est super merci.

Si je comprend bien, si je veux rajouter des boutons, je devrais rajouter autant de textbox alors

Merci

Bonjour,

J'avoue que j'ai suivi bêtement ta demande et je n'ai pas tester l'option d'avoir plusieurs boutons et seulement 2 textbox ...

Je regarde ce que je peux faire ...

ric

Re,

Merci de regarder

Car à mon avis j'aurais beaucoup plus que 2 commandboutton, ça pourrais aller jusqu'à 20 même plus.

C'est vrai que ça serais plus facile avec un seul textbox mais si faut ajouter autant de textbox que de commandbutton, tampis

Je me répète, mais encore mille merci pour votre temps et patience à mon égard

xFlox a écrit :

Bonjour,

Oui super ça marche

Bête question, j'ai rajouter un commandbutton2

Est-ce possible que lorsque je clic sur l'autre commandbutton2, il me face la même chose mais en gardant les infos du commandbutton1

En vous remerciant

Bonjour,

Quelle serait l'utilité de plusieurs autres boutons ? Peux-tu développer s.t.p. ?

Vu que l'on peut gérer plusieurs items différents dans le textbox2 et chacun leur quantité dans le textbox1 ...

L'on peut aussi rappeler un item dans les textbox en cliquant dans la listbox ... puis, cliquer sur le bouton afin d'en incrémenter le nombre ...

Pour ajouter un nouvel item, simplement saisir son nom dans le textbox2 ... puis, cliquer sur le bouton ...

Regarde ceci ...

ric

Bonsoir,

J'aimerais faire une sorte de caisse enregistreurse.

Ton raisonnement est super.

Cependant, j'aimerais rajouter plusieurs commandbutton (pour les produits) pour ne pas écrire à chaque fois celui-ci dans le textbox2

Donc je pensais, mettre un style textbox2.value = commandbuttonX.caption

Merci

Re,

j'ai réussi qu'avec les commandbutton sa marche.

Maintenant j'ai un peu pousser, l'encodage des chiffres en y ajoutant un pavé numérique (si je dois encoder par ex 10 coca, pour ne pas cliquer 10 fois sur coca)

Quand je clic sur le pavé sa marche mais après je dois sélectionner le produits et la, ca me remet à 1

Je suppose qu'il faudrait un style de code au si textbox1 est égal à rien on effectuerais ton code et si le textbox1 est supérieur à 1 (car déjà encoder avec le pavé) faudrait que ton code marche mais sans le textbox1 et qu'il affiche dans ma listbox le nombre encodé avec la commandbutton.caption simplement.

Qu'en pense-tu?

Merci

Bonjour,

Un essai ...

Tous les boutons fonctionnent ... le bouton <  recule d'un caractère dans le textbox1 ... le bouton <<<  vide le textbox1 ...

Le rappel d'un item en cliquant dans la listbox utilise le textobox2 > sinon, c'est le caption du bouton qui fait fois d'article à ajouter ...

ric

Bonjour Ric,

Je te remercie

C'est parfait comme d'habitude

Bonjour Ric,

Est-ce que je peux abuser de tes connaissances stp

J'ai rajouter un textbox PU (Prix unitaire)

J'arrive à faire la recherche de l'article sur la feuille pour me l'afficher sur mon textbox3

Cependant avec ton code je suis perdu, j'ai réussi à inscrire dans ma listboxt mon rajout mais je cale pour remettre en ordre mon textbox1 et 2

En espèrant de pas abuser

Un grand merci

Bonjour,

Un essai ...

J'ai ajouté quelques commentaires pour comprendre le fonctionnement ...

ric

Bonjour Ric,

Un grand merci pour ta réponse

Je vais lire attentivement tous tes commentaires afin de comprendre correctement le fonctionnement.

Cependant, j'ai remarqué qqchose directement:

1) Quand je fais un test via le bouton développeur (tous marche super bien)

2) Cependant, quand je fais le test via la feuil1 et la macro (tous marche sauf le commandbutton1)

Je m'explique:

Tous les boutons fonctions (elle me marque bien les 3 renseignements que je demande), cependant quand je clic sur le commandbutton1 (elle me marque que les 2 premier renseignement)

J'ai fais un test en supprimant les codes dans le commandbutton1 donc reste que les 2 autres boutton opérationnel et la, pareil le premier va pas (normal), le deuxième me marque que les 2 premier renseignements et le 3 ème tous marche.

En te remerciant

Bonjour,

Activesheet peut poser problème > l'on a un exemple ici ...

Tant que c'est possible, il est préférable d'utiliser le nom de la feuille.

Corrige les 3 commandbutton ... et ça va bien fonctionner ...

Private Sub CommandButton1_Click()
    'Inscrit Article
    TextBox2.Value = CommandButton1.Caption

    'Recherche PU de l'article dans onglet PU
    TextBox3.Value = ""

    For i = 1 To Worksheets("PU").Range("A65535").End(xlUp).Row   ' << modif
        If TextBox2.Value = Worksheets("PU").Cells(i, "A") Then   ' << modif
            TextBox3.Value = Worksheets("PU").Cells(i, "B")     ' << modif
            Exit For     ' dès que trouvé, sortir de la boucle (plus rapide si l'on a beaucup de produits)
        End If
    Next

    If Me.TextBox1 = "" Then Me.TextBox1 = 1    ' si vide, inscrit 1
    LeProduit = CommandButton1.Caption  ' mémorise le produit
    Call CompteEtEcrit      ' appelle l'écriture
End Sub

ric

Bonjour,

J'ai bien fait les modification que tu me dis en modifiant le code et en changant Commandbuttonx.caption avec le boutton

Cependant, il me marque toujours le premier bouton

Est-ce normal

Merci

Re,

Désolé j'ai été trop vite pour répondre, j'ai trouvé mon erreur

Encore désolé,

Merci