Discussion :

[juguy]

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

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 :

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
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..

[Docmarti]

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 :

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

1
2
3
4
Range("AL" & L).Value = Montant
        Range("AL" & L).Value = Montant1
        Range("AL" & L).Value = Montant2
        Range("AL" & L).Value = Montant4

[juguy]

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 :

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
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