Up ! :^)

Bonjour,

Si c'est possible, il faut simplement déclarer ta variable comme variable globale en public. C'est à dire qu'il faut la déclarer en premier dans un module avant toutes procédures ou fonctions. Ensuite, il suffit pour la lire de faire (si la variable est dans le module1) : myVariable = Module1.maVariable ... ce n'est pas très propre mais ça marche

Pour faire quelque chose de plus propre, il faut déclarer la variable en private et faire des accesseurs en lecture et écriture :

Private maVariable As String

Public Sub setMaVariable(ByVal str as String)   'En écriture
    maVariable = str
End Sub
Public Function getMaVariable() As String       'En lecture
    getMaVariable = maVariable
End Function

Tu peux soit créer un module indépendant de ta userform avec ta variable globale ou alors sauvegarder la donnée sur une feuille cachée de ton classeur Excel ... mais la façon propre est le module indépendant qui traite les données ...

;o)

polux

Je t'ai mis un petit exemple sur ce lien http://cjoint.com/?eipdeDIX2K ... pour te montrer comment utiliser une variable dans un module indépendant.

;o)

polux

Bonjour,

Le nom de ta variable et de ta procédure d'écriture portent le même nom ... d'où le conflit .... le programme ne sais pas si tu fais référence à la variable ou à la procédure ... nomme ta procédure d'écriture setSous_Res, ça devrait aller mieux ensuite ...

;o)

polux

Aieaieaie...je n'y arrive toujours pas, je ne comprends pas la logique de ces variables etendues ...

Dans le début du script global :

Private sous_res As String

Public Sub setsous_res(ByVal str As String)
sous_res = str
End Sub

Public Function getsous_res() As String

    getsous_res = sous_res
End Function

Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  
  
  Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long

    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
    End If
    
End Sub

Private Sub sr251_click()
Call Doc.setsous_res("251")
Unload Me
End Sub
Private Sub sr252_click()
Call Doc.setsous_res("252")
Unload Me
End Sub
Private Sub sr253_click()
Call Doc.setsous_res("253")
Unload Me
End Sub

Oulala .... il faut déclarer Option Explicit dans tous les modules .... je ne sais pas si ça peut venir de là, mais le fait de déclarer les variables permet de mieux les gérer. Ce n'est pas indispensable pour des petits programmes, tel qu'une macro en Excel, mais dès que l'on veut manipuler des variables il est necessaire de toutes les déclarer. Je ne commence jamais un module sans Option Explicit. Tu as vu mon exemple, ça fonctionne. Il n'y a aucune raison que ça ne marche pas chez toi ...

polux

Tu veux sans doute dire un tableau de données variables, ici avec 429 éléments de type String.
Il faut le déclarer comme ça :

Private conf(429) As String

Public Sub setConf(ByVal i As Integer, ByVal str As String)
    conf(i) = str
End Sub
Public Function getConf(ByVal i As Integer) As String
    getConf = conf(i)
End Function

Tu es en VBA sous Excel ? ... Où se trouve ton code ? dans un module que tu as créé ? ou derrière un UserForm ? parce que là je ne vois pas où il peut y avoir problème ... il faudrait que je puisse voir la configuration complète du fichier

Bon je te l'envoie, par contre j'ai supprimé tout les conf1, conf2, conf3 etc...car il y a des informations sensibles dedans :)

http://cjoint.com/?eklLKOYCmK

J'ai pas enlevé le option explicit pour que tu vois les erreurs :)

Bonjour,

D'un premier coup d'oeil et sans entrer dans les détails, je pense qu'il ne faut pas coller le code derrière le Doc ... je ne pense pas que ça accepte Option Explicit. Il serait préférable de faire un module pour gérer les actions sur les différents contrôles posés sur la feuille word. Il suffit ensuite de faire appel aux procédures dans le module. De plus, pour chaque bouton ratio, les mêmes variables ou presque sont utilisées. Il suffit de les mettre en variables globales dans le module séparé et de faire une procédure d'initialisation pour chaque appel de procédures. J'ai vu aussi que tu utilisais le Goto ... il vaut mieux éviter au tant que possible, pas très clean et sujet à des beugs très souvent. Mais là n'est pas le problème. Je vais te refaire un module en ne faisant qu'un copier/coller de ce que tu as déjà fait. On verra si ça règle le problème.
Je n'ai pas pu tester, j'ai un message qui apparaît m'informant qu'il manque quelque chose pour que ça fonctionne. Ce n'est pas vraiment un problème pour ce que je veux faire. Dès que j'ai fini, je t'envoie le fichier. Tu n'auras plus qu'à adapter le reste et le tester.

;o)

polux

Voilà le lien : http://cjoint.com/?eknMwz5VfG

J'espère que ça passera comme ça.

Tiens moi au courant ...

bon courage

;o)
Polux

Re,

Bon, j'ai copié collé tes débuts de scripts pour chacun des private sub, que j'ai passé en public, c/c tous les scripts au début, passé le script principal de Doc vers modul1, que j'ai renommé ModDoc, et je commence à avoir un message d'erreur au niveau de conf1 avec "variable non définie"...

J'ai essayé sur ton fichier et cela ne marche pas non plus, donc il y aurait un problème au niveau de :

Public Sub setConf(ByVal i As Integer, ByVal str As String)
    conf(i) = str
End Sub

Public Function getConf(ByVal i As Integer) As String
    getConf = conf(i)
End Function

conf1 = "blabla"

conf2 = "blibli

...

conf400 = "bloblo"


conf = conf1 & conf2 & conf3 & conf4 ... & conf400

Ok, mais à vrai dire je ne sais pas ce que représente : conf ... donc difficile d'anticipé.
Dans le fichier que tu m'as passé il n'y avait que 40 conf déclaré dans un tableau. Pour faire ce que tu veux, il faudrait faire :
Déclarer en variable globale dans le ModDoc :

Private nbConf As Integer

nbConf = 1

Call setConf(nbConf, "blabla")
nbConf = nbConf + 1

For i = nbConf to 400
    conf = conf & conf(i)
Next i