Déclaration de variable qui sert dans plusieurs macro

Bonjour,

j'essaye d'avoir une variable qui contient une chaine de caractere (le nom d'un onglet) qui servirait pour plusieurs macros différentes

j'ai donc mit en haut de module

Code:

---

Public Fournisseur As String

---

et dans la premiere des macros, j'ai mit ce code

Code:

---

Fournisseur = InputBox("Nom de l'onglet ?")

---

mais ce qui me chagrine, c'est que ca marche par intermitence seulement

J'utilise ma macro 1, j'indique le nom de l'onglet dans la fenetre qui pop, je lance ma macro 2, ca fonctionne, il se rappelle de la valeur de la variable.
Et puis je lance ma macro 3 a répétition (je travaille dessus et donc je modifie un truc et puis je teste) et a un moment, ca se met a planter parce qu'il a oublié la valeur de ma variable 8O

Qu'est-ce que je fais qui peut occassionner cette perte de la valeur dema variable?
Est-ce qu'il y aurait quelque chose a faire pour éviter ca?

Tu n'as pas "re déclaré" ta variable à l'intérieur de la macro en question?

Bonjour,


Je n'aime pas trop utiliser les variables publiques pour ces raisons, tu peux déclarer une variable (plage nommée) ou sauver la valeur dans une cellule.

Un exemple perso d'uiltisation d'une plage nommée :

Code:

---

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

' Boucle sur les names pour vérifier l'existence de Rep1 For Each xname In Names If xname.NameLocal = "Rep1" Then Rep1Existe = True xname.RefersToR1C1 = "mavaleurasauvegarder" exit for End If Next   ' Si la Variable n'existe pas on la crée If Not Rep1Existe Then ActiveWorkbook.Names.Add Name:="Rep1", RefersToR1C1:="mavaleurasauvegarder" End If   Msgbox [Rep1]

---

non, je ne l'ai déclarée qu'une seule fois, en haut de moduel :?

si je l'avais redéclarée, j'aurai un probleme constant non? (ca ne marcherait pas du tout au lieu de marcher par intermitence ou j'ai mal compris?)

aalex_38, donc ca t'arrive aussi de perdre la valeur stockée?
Actuellement, pour éviter de tout faire crasher, j'ai mis un petit

Code:

---

1 2 3

If Fournisseur = "" Then Fournisseur = InputBox("Nom de l'onglet ?") End If

---

Au début de mes autres macros, donc ca ne plante plus misérablement, mais je ne comprend pas ce qu'il fait qu'il efface sa valeur :(

revois toutes tes macros, si par hasard tu n'as pas re déclaré ta variable dans certaines macros
la variable publique déclarée dans un module général ne perdra pas sa valeur toute seul
sauf si tu ferme ton classeur

En fait, j'aime bien maitriser ce que je fais et j'utilise rarement une variable publique en VBA, un lien ici : http://excel.developpez.com/faq/?page=VBA#VariablePubliqueVidee


Edit : il existe d'autres solutions de sauvegarde des données, dans une plage nommée, comme je l'indique ci-dessus, dans une feuille (une feuille d'infos qui peut être masquée), ou alors en passant la valeur entre les procédures par exemple.

Je suis sure que je ne la déclare qu'a un seul endroit mercatog

La macro va etre utilisée pour standardiser des fichiers de prix qui le sont assez peu. Donc l'onget concerné va changer a chaque fichier j'ai besoin de le changer en une seule manoeuvre
Je peux effectivement la ranger aussi sec sur une des feuilles que je crée, là je suis sure qu'il va rester, mais ca ne me semblait pas tres propre

Et puis surtout, je ne comprend pas comment ca peut marcher parfois oui parfois non alors que je ne ferme pas mon classeur

Si tu peux expliquer davantage
ta variable publique est déclarée dans un module public?
tu travailles sur plusieurs fichiers?
..etc

Je reviens à la charge avec les plages nommées, l'interet en plus c'est que tu peux même fermer et reouvrir le classeur ta variable est sauvegardée.

Edit : j'ai corrigé le lien dans mon précédent post