Problème enregistrement avec un UserForm avec TextBox sur une même cellule

Bonjour à tous,

J'ai un Userform qui m'enregistre mes données sur une nouvelle ligne exce à chaque fois que je l'enregistre, jusque la tout va bien :lol:

Mon problème est que, je possède différentes multipages dans ce userForm, et ces multipages ont à peu près les mêmes textBox, (quantité, montant..)

J'aimerais, que quelque soit la page que je choisisse, mes textBox de quantité, par exemple, s'ajoute sur la même cellule

Voici mon code :

:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim L As Integer Dim Ws As Worksheet   If MsgBox("Confirmez-vous l’insertion de ce nouveau dossier ?", vbYesNo, "Demande de confirmation d’ajout ") = vbYes Then 'A compléter L = Sheets("VNC").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide Sheets("VNC").Select   Range("AL" & L).Value = Montant Range("AL" & L).Value = Montant1 Range("AL" & L).Value = Montant2 Range("AL" & L).Value = Montant4 Range("AM" & L).Value = Quantité Range("AM" & L).Value = Quantité1 Range("AM" & L).Value = Quantité2 Range("AM" & L).Value = Quantité3 Range("AM" & L).Value = Quantité4 Range("AN" & L).Value = RIBsociété Range("AN" & L).Value = RIBsociété1

---

J'ai laissé uniquement les lignes de mes multipages, les restes fonctionnent !
Mon problème est donc que ma quantité s'ajoute quand c'est la textbox quantité, mais quand c'est les autres textbox quantité1, quantité2, quantité3 et quantité4 rien ne s'ajoute dans le cellule...

Quelqu'un à une idée de comment je pourrais procéder?

EDIT : Finalement même pour la textBox quantité rien ne s'ajoute.. Pareil pour idem et RIBsociété. Par contre mon ma textBox RIBsociété1 s'ajoute, bizarre..

Citation:

---

Envoyé par juguy

J'aimerais, que quelque soit la page que je choisisse, mes textBox de quantité, par exemple, s'ajoute sur la même cellule

---

Pourquoi écris-tu les 4 Textbox Montant l'un par-dessus l'autre dans la même cellule?

Code:

---

1 2 3 4

Range("AL" & L).Value = Montant Range("AL" & L).Value = Montant1 Range("AL" & L).Value = Montant2 Range("AL" & L).Value = Montant4

---

Chacun des montants ou des quantités sont un textBox dans une des pages de mon Multipage.
En fonction du type de dossiers qu'il faut saisir je vais utiliser un type de page, et j'ai envie de quelque soit le type de page que j'utilise le textBox montant aille dans la même cellule (je sais pas si je suis clair !)


EDIT : J'ai trouvé la solution, il suffit d'utiliser Select Case en fonction de mon type de dossier (comboBox2)

Voici le code si ça peut interessé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Select Case Me.ComboBox2.Value Case "Entrées de VNC sur PEA" Range("AL" & L).Value = Montant Range("AM" & L).Value = Quantité Range("AN" & L).Value = RIBsociété Range("AO" & L).Value = VrtSteAfaire Case "Entrées de VNC sur PEA-PME" Range("AM" & L).Value = Quantité1 Range("AL" & L).Value = Montant1 Range("AN" & L).Value = RIBsociété1 Range("AO" & L).Value = CheckBox21 Case "Sortie de VNC sur PEA" Range("AL" & L).Value = Montant2 Range("AM" & L).Value = Quantité2 Case "Entrées de VNC" Range("AM" & L).Value = Quantité3 Case "Sorties de VNC" Range("AL" & L).Value = Montant4 Range("AM" & L).Value = Quantité4 End Select

---

Merci, je passe le sujet en résolu