Discussion :

[graniery]

Bonjour,

Depuis mon programme VBA dans un module, j'appelle un Userform, je coche la case qui m'intéresse et ça crée une variable dans mon Userform puis je retourne dans mon module avec un "unload me". Mon problème est que la variable ne fonctionne pas dans mon module.. Je pense qu'elle n'est pas reconnaissable.
Donc si quelqu'un a une idée de comment faire pour retrouver ma variable dans le module je suis preneur!
Merci

Yoann

[casefayere]

Bonjour,

ça crée une variable dans mon Useform

qu'appelles-tu variable dans ce cas ?
Montres ton code car explications imprécises

[graniery]

Je suis sur mon portable le je vais essayer plus clairement.

- dans mon Userform je dit par exemple :

Code :

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

Var = cells(1,5).Value

Et quand je fait dans mon module :

Code :

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

Msgbox Var

Mon msgbox est vide, j'en conclut que la variable n'est pas reconnu

[casefayere]

Déjà, utilises-tu "Option Explicit", ensuite ou est déclarée ta variable, dans le même module ?, dans la même procédure ?, en "Public" en haut d'un module quelconque ?, d'ailleurs, est-elle déclarée si, à tout hasard tu n'utilises pas justement "Option Explicit", sans ton code, que te dire ?

[graniery]

Merci de m'aider,

Du coup j'ai rajouté "option explicit" avant private sub checkbox_click()
Et dans mon éditeur VBA j'ai un userform1 dans le dossier feuille et un module1 dans le dossier modules.

Maintenant, ça me dit que la variable n'est pas déclaré. J'ai déjà fait un bon bout de programme avec des variables et j'ai jamais eu à les déclarer, je comprend pas vraiment.

Merci

J'ai regardé du coup j'ai mis "Dim Var as integer" dans le userform1, du coup ça me demande plus de déclarer la variable mais j'ai toujours rien dans ma msgbox

[joe.levrai]

Bonjour,

visiblement, tu ne maîtrise pas les notion de "portée" de variables

tu as une variable qui a une portée "procédure" ou peut être une portée "Userform1" suivant si tu l'as déclarée dans une procédure où en haut du module du userform

tu souhaites ensuite interroger sa valeur en dehors du userform, ça ne peut pas marcher

tu as deux solutions, voici la plus simple : utiliser une variable publique qui sera manipulable partout

AVANT TOUTE CHOSE, lis et assimile bien ceci : http://silkyroad.developpez.com/VBA/LesVariables/#LV

[graniery]

Super! Ça marche!
Je te remercie beaucoup!
Je ne connaissai effectivement pas la notion de mettre en "public" une variable.

[joe.levrai]

Cool,

du coup, voici la seconde méthode possible (et y'en a encore d'autres !)

la démonstration par l'exemple.

nous avons deux modules.

Dans le premier, on écrit cette macro :

Code :

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

1
2
3
Sub MacroModule2(ByVal Valeur As Long)
    MsgBox Valeur
End Sub

Cette procédure va donc afficher la "valeur" de la valeur Valeur qu'on passe en paramètre.


Dans le second module, on écrit cette macro :

Code :

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

1
2
3
4
5
Sub MacroModule1()
Dim i As Long
    i = 1
    Call MacroModule2(i)
End Sub

On a une variable dont la portée ne dépasse pas la procédure ... pourtant MacroModule2 affichera bien la valeur de i.

Cela réside dans le fait qu'on transmet la valeur de la variable, et non la variable elle-même. Ceci grâce au "type de transmission" qui est effectué par valeur (ByVal) et non par référence (ByRef)

D'ailleurs, si on tente ByRef, on obtiendra une erreur.

Il est malin VBA, il te laissera pas la possibilité de modifier une valeur "réelle" de la variable au delà de sa portée . Il te laissera simplement la possibilité de manipuler une copie de cette valeur

Si cela t'intéresse vraiment, il te suffit de prolonger la lecture du lien que je t'ai donné, il y a une partie qui traite du passage par référence et valeur : http://silkyroad.developpez.com/VBA/LesVariables/#LIV

[Docmarti]

Bonjour joe

D'ailleurs, si on tente ByRef, on obtiendra une erreur.

J'ai tenté ByRef et je n'ai pas obtenu d'erreur.

[kiki29]

Salut, commencer par lire et assimiler : Utiliser les UserForm en VBA Excel
En complément il y aura : Utiliser les contrôles dans un UserForm, en VBA Excel

[joe.levrai]

Bonjour,

Docmarti, tu as raison, et après quelques tests j'ai compris pourquoi.

Je viens donc d'apprendre que si le type de l'argument passé en paramètre est différent du type spécifié dans la procédure, là on a un échec en passant par ByRef
j'ai toujours pensé que c'était relatif à la portée ... alors que c'était autre chose.

Merci du coup

Après l'identification du problème, ça devient évident en fait.
Puisque ByRef accès directement à l'adresse de la variable, le paramètre doit être typé de la même manière.
Par ByVal, lors de la copie de la variable, le type peut être différent ... dès lors que la valeur de la variable transmise est compatible avec le Type du paramètre

Lors de mes tests, i était bien déclaré en Long, alors que mon paramètre attendu était en Integer
Quand j'ai posté mon message, j'ai remis le paramètre en Long histoire que ça soit propre ... et voilà le résultat.

[Docmarti]

Ca me fait rigoler cette question de ByRef et ByVal parce que, pendant des années, je n'arrivais pas à me rappeler lequel modifiait la valeur d'origine et lequel ne la modifiait pas. Cette question était académique et inutile car si je ne veux pas modifier une valeur, je n'ai qu'à ne pas la modifier. C'est tout. Je n'ai donc pas besoin de savoir à quoi sert ByRef et ByVal. Ca me fait rigoler car je vois que je ne suis pas le seul à chercher comment utiliser une commande inutile.

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
21
22
23
24
25
26
27
28
29
30
31
Sub test()
 
m = 1234
 
a = m: Call CommentModifierA(a)
 
a = m: Call CommentNePasModifierA_1(a)
 
a = m: Call CommentNePasModifierA_2(a)
 
End Sub
 
Sub CommentModifierA(a)
 
 a = "La valeur de A dans la procédure appelante est modifiée"
 
End Sub
 
Sub CommentNePasModifierA_1(ByVal a)
 
 a = "Bonjour tout le monde"
 
End Sub
 
Sub CommentNePasModifierA_2(a)
'Si je ne veux pas modifier A, je ne le modifie pas.
 b = a
 
 b = "Bonjour tout le monde"
 
End Sub

[DeathZarakai]

Le soucis Joe c'est que dans ton exemple, il y a bien une portée procédurale MAIS la première qui définit i n'étant pas fini au moment où tu sollicites la seconde, l'adresse de stockage de i persiste et il n'y a aucun soucis.

ByRef et ByVal pour moi servent uniquement :
- ByRef on peut modifier la valeur c'est ce qu'on veut faire souvent, de plus on perd pas de mémoire à stocker via un ByVal (oui le pb mémoire est plus trop d'actu mais reste vrai)
- ByVal permet de travailler sur la variable en faire un calcul sans influencer les déroulements futur.

DeathZarakai.

P.S. : Si je me trompe, n'hésitez pas à me corriger et m'insulter j'apprendrais un truc (c'est mieux que d'être dans l'erreur)

[joe.levrai]

Pour moi ton explication tient parfaitement la route, et creuse encore le fossé entre la façon dont je schématisait les choses, et comment en réalité elles se passent

[Invité]

Bonjour,

Code userform :

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

1
2
3
4
5
6
7
8
9
10
 
Dim MyVar
Public Function Chargement(v)
MyVar=v
Me.Show vbmodal
Chargement =MyVar
End sub
Private Quite_click()
Me.hide
End sub

Code Module :

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

1
2
3
4
5
 
Sub teste()
Msgbox usfTest.Chargement("toto")
Unload usfTest
En sub