Non affectation d'une variable de type string

Bonjour tout le monde,

Voici mon problème. Je lance un UserForm dans lequel l'utilisateur indique son nom. Après avoir cliqué sur Valider (et vérifié que le champ n'est pas libre), le processus suivant se lance comme tel :

Code:

---

confirmation(name) 'ou name correspond au nom de l'utilisateur (ayant peu d'utilisateurs, j'utilise des if imbriqués et je sais donc précisément de quel utilisateur il s'agit)

---

En détail (processus situé dans une macro) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim realname As String 'variable globale   Sub confirmation (ByRef name As String) realname = name   'code...   realname = ""   End Sub

---

Le problème est que lorsque je fais MsgBox de realname, juste avant et juste après son affectation, je récupère la même chose à savoir rien (ou si vous préférez "") !

Je ne comprends pas la cause de cette erreur. J'espère que vous pourrez m'aider ! :)

Edit: Je remarque par ailleurs qu'en ajoutant un MsgBox name juste après le lancement de confirmation, je récupère "" ce qui signifie que le problème est déjà présent à ce moment là !

Il semblerait qu'au lieu de prendre name = argument de confirmation, excel prenne name = ""

Bonsoir Forum, bonsoir le forum,

C'est toujours difficile de comprendre un problème sans fichier exemple et encore plus avec uniquement des bouts de code... À première vue je dirais qu'il faut déclarer ta variable publique dans un module standard (pas dans une UserForm ni un composant onglet (Feui1(Feuil1) par exemple).
Essaie, en première ligne du module Module1 (ou éventuellement juste en dessous de Option Explicit), de déclarer ta variable comme ça :

Code:

---

Public name As String

---

et bien sûr, supprime l'ancienne déclaration Dim. Dès lors ta variable, une fois initialisée (dans l'UserForm) garde sa valeur et est accessible par n'importe quel composant de ton projet VBA. Une macro dans un module standard, une procédure événementielle d'un composant onglet, ThisWorkbook, etc. Pense quand même a la réinitialiser à la fin (name = "") pour éviter les mauvaises surprises.
J'espère que ça va te permettre d'avancer dans ton projet. Sinon je te conseille de mettre un fichier exemple ou, au moins, le code en entier...

bonsoir,

ben avec ta ligne 8 :

realname = ""Il n'y as rien d'étonnant au fait que ta variable realname soit vide ..

Citation:

---

realname = ""Il n'y as rien d'étonnant au fait que ta variable realname soit vide ..

---

Mais cela est normal car cette ligne est placé à la toute fin de mon code, je vide cette variable. Mais normalement les MsgBox d'avant devrait me renvoyer la valeur.

J'ai finalement trouvé mon erreur, une mauvaise utilisation de la fonction UCase !

Merci à vous :)

Bonsoir

Citation:

---

Envoyé par forum2015

Mais cela est normal car cette ligne est placé à la toute fin de mon code, je vide cette variable. Mais normalement les MsgBox d'avant devrait me renvoyer la valeur...

---

a quoi bon passer cette variable par référence si c'est pour la 'vider' ensuite ?

Je vois pas de Msgbox dans ton code .. cela nous aurez aider a t'aider !