Récupérer une variable d'une worksheet dans une UserForm

[jiritsu]

Salut,

Voici ce que je souhaite faire :

J'ai une feuille Excel avec 3 CommandButton et une userform avec une listview.

Lorsque je clic sur un bouton, j'ouvre l'userform et lors de son initialisation, je remplis la listview.

Je souhaiterai récupérer une variable qui se trouve dans un des CommandButton.

Voilà mon Code dans la feuille Excel:

Sub CommandButton_Click()
    Dim N As Integer
    N = 11
    UserForm.Show
    UserForm_Initialize (N)
End Sub

Le code dans l'UserForm

Sub UserForm_Initialize(ByVal N As Integer)
...
End Sub

Mais j'ai une erreur de compilation. Quelqu'un peu m'aider svp?

Merci

 

[jp14]

Re : Récupérer une variable d'une worksheet dans une UserForm

Bonjour

Salut,

Le code dans l'UserForm
Sub UserForm_Initialize(ByVal N As Integer)

Mais j'ai une erreur de compilation. Quelqu'un peu m'aider svp?
Merci

Généralement c'est le concepteur de la procédure qui indique les paramètres nécessaire au bon fonctionnement de la macro.
ByVal N As Integer me semble bizarre.
De plus un userfom ne peut avoir comme nom Userform, car on a un conflit entre le nom et les procédures associées à un userform.


Pour envoyer des données d'un Usf vers une autre destination il faut utiliser une variable publique.

JP

 

[tora]

Re : Récupérer une variable d'une worksheet dans une UserForm

Salut,

Voici ce que je souhaite faire :

J'ai une feuille Excel avec 3 CommandButton et une userform avec une listview.

Lorsque je clic sur un bouton, j'ouvre l'userform et lors de son initialisation, je remplis la listview.

Je souhaiterai récupérer une variable qui se trouve dans un des CommandButton.

Voilà mon Code dans la feuille Excel:

Sub CommandButton_Click()
    Dim N As Integer
    N = 11
    UserForm.Show
    UserForm_Initialize (N)
End Sub

Le code dans l'UserForm

Sub UserForm_Initialize(ByVal N As Integer)
...
End Sub

Mais j'ai une erreur de compilation. Quelqu'un peu m'aider svp?

Merci

ajoute 1 module a ton projet vba:
_____________________________________

Public N As Integer
_____________________________________

donc ton bouton ou ta sub fait N=11
ensuite dans ton userform tu fait ce que tu veux de N
plus besoin de Dim N

msgbox N

textbox.value=N

N=N+10
.....

Bref N est accessible/modifiable partout

réponse validée ?

 

[jiritsu]

Re : Récupérer une variable d'une worksheet dans une UserForm

Merci, cela fonctionne parfaitement lorsque je déclare la variable dans le module en public

De plus un userfom ne peut avoir comme nom Userform, car on a un conflit entre le nom et les procédures associées à un userform.

Effectivement, mon UserForm se nomme UsfListview. J'ai mis userform en pensant que ce serait plus clair dans mon exemple.

Merci de votre aide. 🙂