Soustraire à l'aide de macro dans listbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

18/02/2018, 23h13
_flori_

Soustraire à l'aide de macro dans listbox

Bonjour,

Mon soucis est le suivant:

j'ai un userform, dans celui-ci ce trouve deux listbox et un commandbutton.

1) dans ma première listbox j'ai deux colonne (article et quantité)
2) à l'aide de mon bouttoncommande je fais juste un transfert
exemple:
1ère listbox
coca 15
fanta 10

en sélectionnant coca et après en cliquant sur mon bouton, la ligne coca 15 va dans ma listbox 2
Donc le résultat et le suivant
listbox 1 (fanta 10) et listbox 2 (coca 15)

Pour cela, pas de soucis.

Cependant, j'aimerais soustraire le nombre d'article dans la listbox 2
exemple:
Dans ma listbox 1 j'ai
coca 10
fanta 10
quand je sélectionne coca et après avoir cliqué sur mon bouttoncommand, j'aimerais qu'il ne transfert pas toute la ligne (coca 10) mais qu'il soustrait un article.
Exemple
listbox1
coca 10
fanta 10
Je selectionne coca puis je clic sur mon boutton
J'aimerais que le résultat dans ma listbox2 soit coca 1 et non coca 10
et si je le re sélection une deuxième fois mon résultat soit coca 2 et ainsi de suite

En vous remerciant

Bonjour,

Esaie comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
    Dim I As Long
    Dim Trouve As Boolean
 
    If ListBox1.ListIndex = -1 Then Exit Sub
 
    For I = 0 To ListBox2.ListCount - 1
        If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then
            ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
            Trouve = True
        End If
    Next
    If Not Trouve Then
        ListBox2.AddItem
        ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
        ListBox2.List(ListBox2.ListCount - 1, 1) = 1
        ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
    End If
End Sub
 
Private Sub UserForm_Initialize()
    ListBox1.AddItem
    ListBox1.List(0, 0) = "Coca"
    ListBox1.List(0, 1) = 10
    ListBox1.AddItem
    ListBox1.List(1, 0) = "Fanta"
    ListBox1.List(1, 1) = 10
 
End Sub

En passant, il y a un forum dédié aux macros...

Bonjour Parmi,

Je te remercie pour ta réponse,

C’est exactement ce que je cherchais,

Un énorme merci.

Est-ce que je peux abuser de ta gentillesse.

Si oui j’ai un autre petit soucis.

Je t'explique ce que j'ai.

J'ai un bouton dans ma feuille Excel.
Quand je clic sur le bouton celui-ci m'ouvre un userform.
Dans celui-ci j'ai un bouton et un textbox.

J'aimerais quand je clic sur le bouton, qu'il additionne le nbre de clic que je fais.
Exemple
Si je clic 2 fois ça me marque 2 dans mon textbox.
Si je clic 5 fois ça me marque 5 dans mon textbox.
Et ainsi de suite

Suite à la réponse d’un membre qui été :

Code:

TextBox2 = Val(TextBox2) + 1

J'ai essayé ceci:

a) T
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 extBox1 = "Eau" TextBox2 = Val(TextBox2) + 1 If TextBox1 = "" Or TextBox2 = "" Then MsgBox "Vous devez impérativement remplir le mode de paiement, le nom du client, la quantité et l'article avant de valider", vbInformation Exit Sub End If dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd) With Sheets("Temp") dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1 .Range("a" & dlf) = Date .Range("b" & dlf) = ComboBox2 .Range("c" & dlf) = CDbl(TextBox2) .Range("d" & dlf) = TextBox1 .Range("e" & dlf) = ComboBox1 .Range("f" & dlf) = .Range("c" & dlf) * Application.WorksheetFunction.VLookup(.Range("d" & dlf), Table, 2, 0) End With ListBox1.AddItem (TextBox2 & " " & TextBox1) TextBox1 = "" TextBox2 = ""
b) j'ai aussi essayé avec textbox2 = "" en moins, je m'étais dit que c'était peut-être ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 TextBox1 = "Eau" TextBox2 = Val(TextBox2) + 1 If TextBox1 = "" Or TextBox2 = "" Then MsgBox "Vous devez impérativement remplir le mode de paiement, le nom du client, la quantitée et l'article avant de valider", vbInformation Exit Sub End If dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd) With Sheets("Temp") dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1 .Range("a" & dlf) = Date .Range("b" & dlf) = ComboBox2 .Range("c" & dlf) = CDbl(TextBox2) .Range("d" & dlf) = TextBox1 .Range("e" & dlf) = ComboBox1 .Range("f" & dlf) = .Range("c" & dlf) * Application.WorksheetFunction.VLookup(.Range("d" & dlf), Table, 2, 0) End With ListBox1.AddItem (TextBox2 & " " & TextBox1) TextBox1 = ""
Cependant ça ne marche pas,
Ca m’affiche sur plusieurs ligne (si je clic deux fois, deux fois 1 Eau et ainsi de suite)

En te remerciant

20/02/2018, 11h24
parmi

J'ai de la difficulté à te suivre...
En passant, quand tu écris du code, sélectionne-le et clique le bouton # en haut du message pour le formater.

La façon d'incrémenter ta textbox est bien

Code:

TextBox2 = Val(TextBox2) + 1

Bien sûr, si tu veux conserver sa valeur, tu ne dois pas la mettre = "" ou fermer le Userform
Mais je ne vois pas pourquoi tu n'écrirais pas la valeur plutôt que de cliquer plusieurs fois sur un bouton (?)
11/03/2018, 23h24
_flori_

bonjour,

Suis vraiment désolé de répondre aussi tardivement, mais j'ai énormément de travail.

Je te remercie de m'avoir répondu.

Suivant ta réponse, c'est vrai que je pourrais juste inscrire le nombre et sélectionner l'article après.

Cependant, c'est juste pour une question de rapidité.

C'est juste pour cela.

Maintenant si ce n'ai pas possible d'additionner le nombre de clic ou lieu de les avoirs à la suite de l'autre, je ferais comme tu me dis.

En te remerciant de ta patience.
11/03/2018, 23h44
parmi

Où est-ce que tu cliques pour incrémenter ta textbox?
Sur un bouton?

Si oui, le code proposé fonctionne bien

Code:

TextBox2 = Val(TextBox2) + 1

Merci Parmi,

Je me doute bien que me donne la bonne réponse.

Je ne place pas correctement la réponse que tu m'as donnée.

Je me permets de remettre le code que j'effectue:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub CommandButton12_Click()
If TextBox2 = "" Then
 
    TextBox1 = "Eau"
    TextBox2 = Val(TextBox2) + 1            'Voilà ou j'ai placé ta réponse
 
    If TextBox1 = "" Or TextBox2 = "" Then
        MsgBox "Vous devez impérativement remplir le mode de paiement, le nom du client, la quantitée et l'article avant de valider", vbInformation
        Exit Sub
    End If
    dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row
    Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd)
    With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Range("a" & dlf) = Date
        .Range("b" & dlf) = ComboBox2
        .Range("c" & dlf) = CDbl(TextBox2)
        .Range("d" & dlf) = TextBox1
        .Range("e" & dlf) = ComboBox1
        .Range("f" & dlf) = .Range("c" & dlf) * Application.WorksheetFunction.VLookup(.Range("d" & dlf), Table, 2, 0)
    End With
    ListBox1.AddItem (TextBox2 & "   " & TextBox1)
    TextBox1 = ""
    TextBox2 = ""
 
Else
 
    TextBox1 = "Eau"
    TextBox2 = TextBox2
 
    If TextBox1 = "" Or TextBox2 = "" Then
        MsgBox "Vous devez impérativement remplir le mode de paiement, le nom du client, la quantitée et l'article avant de valider", vbInformation
        Exit Sub
    End If
    dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row
    Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd)
    With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Range("a" & dlf) = Date
        .Range("b" & dlf) = ComboBox2
        .Range("c" & dlf) = CDbl(TextBox2)
        .Range("d" & dlf) = TextBox1
        .Range("e" & dlf) = ComboBox1
        .Range("f" & dlf) = .Range("c" & dlf) * Application.WorksheetFunction.VLookup(.Range("d" & dlf), Table, 2, 0)
    End With
    ListBox1.AddItem (TextBox2 & "   " & TextBox1)
    TextBox1 = ""
    TextBox2 = ""
 
End If
 
 
 
     With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row
        If dlf > 1 Then
            For I = 2 To dlf
                Total = Total + .Range("f" & I)
            Next I
        End If
    End With
    TextBox4 = Format(Total, "Currency")
End Sub

En te remerciant encore et encore pour ton aide

12/03/2018, 01h28
clementmarcotte

À (sa)voir svp. Sinon la plupart des membres vont fuir tes messages

http://club.developpez.com/aidenouve...es/Balises.gif
12/03/2018, 01h47
parmi

Je ne comprends pas ta condition If... Else... End If
Je pense qu'il y a un problème de logique.

Bonjour Parmi,

Comme tu peux voir, je travail dessus :D

Je te remercie pour ta remarque et je me suis empressé d'enlever toute les conditions.

Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Private Sub CommandButton12_Click() TextBox1 = "Eau" TextBox2 = Val(TextBox2) + 1 dlf_bdd = Sheets("BDD").Range("a" & Rows.Count).End(xlUp).Row Set Table = Sheets("BDD").Range("b2:c" & dlf_bdd) With Sheets("Temp") dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1 .Range("a" & dlf) = Date .Range("b" & dlf) = ComboBox2 .Range("c" & dlf) = CDbl(TextBox2) .Range("d" & dlf) = TextBox1 .Range("e" & dlf) = ComboBox1 .Range("f" & dlf) = .Range("c" & dlf) * Application.WorksheetFunction.VLookup(.Range("d" & dlf), Table, 2, 0) End With ListBox1.AddItem (TextBox2 & " " & TextBox1) TextBox1 = "" With Sheets("Temp") dlf = .Range("a" & Rows.Count).End(xlUp).Row If dlf > 1 Then For I = 2 To dlf Total = Total + .Range("f" & I) Next I End If End With TextBox4 = Format(Total, "Currency") End Sub
Grace à ta remarque, ma problème est réglé à moitié (Pardon).

Je m'explique sur à moitié:

Le premier soucis:
quand je clic sur Eau
ça m'affiche bien 1 Eau
et quand je clic une deuxième fois
ça m'affiche ce que je voulais 2 eau
et quand je clic une troisième fois
ça m'affiche bien 3 Eau
C'est ce que je recherche
Cependant ça me laisse les infos avant et j'aimerais juste garder l'info du dernier clic

Je m'explique
si je clic une fois
ça me marque dans ma listbox
1 Eau
quand je clic une deuxième fois
ça me marque dans ma listbox
2 Eau mais au dessous de 1 Eau
quand je clic trois fois
ça me marque dans ma listbox
3 Eau mais au dessous de 2 Eau et 1 Eau

J'aimerais juste garder le nombre de clic que je fais
donc si je clic 3 fois
que ça me marque 3 Eau
et pas
1 Eau
2 Eau
3 Eau

Mon deuxième soucis et ça marcher avec la condition
Quand j'encode le nombre dans ma textbox
exemple 10
normalement ça me marqué 10 Eau
Maintenant ça me marque 11 Eau

En te remerciant encore

Re,

Ne trouvant toujours pas de solution à mon soucis, j'avance sur d'autre point.

Je reviens sur une question auxquels tu m'avais aidé et qui va super bien.

J'aimerais si c'est possible que quand le nombre de l'article arrive à 0 dans ma listbox1, cette ligne ce supprime.

Pour le moment avec le code que tu m'as donné si je continue à cliquer dessus, le nombre deviens négatif

Voici le code que tu m'avais donner:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
    Dim I As Long
    Dim Trouve As Boolean
 
    If ListBox1.ListIndex = -1 Then Exit Sub
 
    For I = 0 To ListBox2.ListCount - 1
        If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then
            ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
            Trouve = True
        End If
    Next
    If Not Trouve Then
        ListBox2.AddItem
        ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
        ListBox2.List(ListBox2.ListCount - 1, 1) = 1
        ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
    End If
End Sub
 
Private Sub UserForm_Initialize()
    ListBox1.AddItem
    ListBox1.List(0, 0) = "Coca"
    ListBox1.List(0, 1) = 10
    ListBox1.AddItem
    ListBox1.List(1, 0) = "Fanta"
    ListBox1.List(1, 1) = 10
 
End Sub

Je te remercie du temps que tu passe à mon égard

Il faut que tu vérifies la valeur avant de réduire de 1 ici

Citation:

ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
Code:

1 2 3 4 5 If CLng(ListBox1.List(ListBox1.ListIndex, 1)) <= 1 then Listbox1.RemoveItem Else ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1 End If

Re,

Aussi tôt demandé, aussi tôt fait.

Je te remercie.

J'ai essayé directement.

En mettant ListBox1.RemoveItem, j'ai un signal error (Erreur de compilation: Argument non facultatif)

J'ai essayé ceci est ça marche super bien hormis que je dois appuyer une seconde fois pour enlever la ligne.

Je m'explique:
exemple:
Au début j'ai par exemple
Coca 2
Fanta 2
je clic sur la flèche en ayant selectionner coca
résultat:
coca 1
fanta 2
je rappuis dessus
résultat:
coca 0
fanta 2

Pour que la ligne coca ce supprime je dois rappuyer sur la flèche pour qu'elle ce supprime
j'aimerais que la ligne coca ce supprime directement à zéro et quelle ne s'affiche pas coca 0

Je te montre le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub CommandButton1_Click() If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then ListBox1.RemoveItem (ListBox1.ListIndex) Else Dim I As Long Dim Trouve As Boolean If ListBox1.ListIndex = -1 Then Exit Sub For I = 0 To ListBox2.ListCount - 1 If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1 ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1 Trouve = True End If Next If Not Trouve Then ListBox2.AddItem ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0) ListBox2.List(ListBox2.ListCount - 1, 1) = 1 ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1 End If End If End Sub
Je te remercie

Petit copié coller de ma demande précédante avec les balises code comme on me le suggère (encore pardon)

Re,

Aussi tôt demandé, aussi tôt fait.

Je te remercie.

J'ai essayé directement.

En mettant ListBox1.RemoveItem, j'ai un signal error (Erreur de compilation: Argument non facultatif)

J'ai essayé ceci est ça marche super bien hormis que je dois appuyer une seconde fois pour enlever la ligne.

Je m'explique:
exemple:
Au début j'ai par exemple
Coca 2
Fanta 2
je clic sur la flèche en ayant selectionner coca
résultat:
coca 1
fanta 2
je rappuis dessus
résultat:
coca 0
fanta 2

Pour que la ligne coca ce supprime je dois rappuyer sur la flèche pour qu'elle ce supprime
j'aimerais que la ligne coca ce supprime directement à zéro et quelle ne s'affiche pas coca 0

Je te montre le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub CommandButton1_Click() If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then ListBox1.RemoveItem (ListBox1.ListIndex) Else Dim I As Long Dim Trouve As Boolean If ListBox1.ListIndex = -1 Then Exit Sub For I = 0 To ListBox2.ListCount - 1 If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1 ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1 Trouve = True End If Next If Not Trouve Then ListBox2.AddItem ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0) ListBox2.List(ListBox2.ListCount - 1, 1) = 1 ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1 End If End If End Sub
Je te remercie

Tu dois soustraire la valeur avant de vérifier si c'est rendu à 0 ou non
J'ai remis la ligne plus bas.

PS: Quand tu mets du code, utilise le bouton # comme mentionné par clementmarcotte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
    Dim I As Long
    Dim Trouve As Boolean
     
    If ListBox1.ListIndex = -1 Then Exit Sub
     
        For I = 0 To ListBox2.ListCount - 1
            If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then
                ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1
                ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
                Trouve = True
            End If
        Next
        
        If Not Trouve Then
            ListBox2.AddItem
            ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
            ListBox2.List(ListBox2.ListCount - 1, 1) = 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
            If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then ListBox1.RemoveItem (ListBox1.ListIndex)
        End If
    End If
 
End Sub

re,

J'ai changer comme tu me dis,

Cependant, ça me marque:
Erreur de compilation:
End if sans bloc if

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
  Dim I As Long
    Dim Trouve As Boolean
 
    If ListBox1.ListIndex = -1 Then Exit Sub
 
        For I = 0 To ListBox2.ListCount - 1
            If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then
                ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1
                ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
                Trouve = True
            End If
        Next
 
        If Not Trouve Then
            ListBox2.AddItem
            ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
            ListBox2.List(ListBox2.ListCount - 1, 1) = 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
            If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then ListBox1.RemoveItem (ListBox1.ListIndex)
        End If
    End If
 
End Sub

Merci

Re,

Voilà j'ai trouvé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
 
If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then
   ListBox1.RemoveItem (ListBox1.ListIndex)
    Else
    Dim I As Long
    Dim Trouve As Boolean
 
    If ListBox1.ListIndex = -1 Then Exit Sub
 
        For I = 0 To ListBox2.ListCount - 1
        If ListBox2.List(I, 0) = ListBox1.List(ListBox1.ListIndex) Then
            ListBox2.List(I, 1) = CLng(ListBox2.List(I, 1)) + 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
            Trouve = True
        End If
        Next
        If Not Trouve Then
            ListBox2.AddItem
            ListBox2.List(ListBox2.ListCount - 1, 0) = ListBox1.List(ListBox1.ListIndex, 0)
            ListBox2.List(ListBox2.ListCount - 1, 1) = 1
            ListBox1.List(ListBox1.ListIndex, 1) = CLng(ListBox1.List(ListBox1.ListIndex, 1)) - 1
    End If
End If
 
If CLng(ListBox1.List(ListBox1.ListIndex, 1)) = 0 Then ListBox1.RemoveItem (ListBox1.ListIndex)
 
End Sub

Un grand merci

12/03/2018, 13h31
_flori_

Re,

Je te remercie énormément du temps que tu me consacre.

En espérant qu'on trouvera mon premier soucis, concernant l'ajout de nbre par clic cité plus haut

Si je dois remettre le ou les codes, pourrais-tu me le dire

En te remerciant
12/03/2018, 14h53
parmi

Oui, c'est toujours plus simple de mettre le code où tu en es rendu, du moins celui qui concerne le problème...
S'il s'agit d'erreur, donne le message que tu reçois.
12/03/2018, 15h57
_flori_

Re,

C'est vrai que c'est plus facile.
Je prend bonne note et merci

Voir 40 message(s) de cette discussion en une page