Discussion :

[moimemessssssssss]

Bonjour

Voici le code

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
sub test1()
 
dim nnom as string
 
'lignes de codes ou apparait lavariable nnom
 
call test2
end sub 
 
'2eme procedure
sub test2()
 
'lignes de codes ou je reutilise ma variable nnom
 
end sub

mais il y aune erreur : il me dit qu'il connait pas la varibale nnom dans test2()

comment faut il faire pour que cela marche sans recopier toute la définition de la variable nnom ?

merci

[Le Pierre]

bonjour

il faut déclarer ta variable en "Public" avant les routines de code
par exemple :

Code :

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

1
2
3
4
5
Public nnom as string
 
sub test1()
 
'dim nnom as string

à plus

[moimemessssssssss]

Bonjour,

j' ai declaré nnom comme une variable publique avant toutes les procédure mais cela ne change rien : il y a toujour l'erreur
savez vous pourquoi?
merci

[ucfoutu]

Bonsoir,

Que nous racontes-tu donc ?

Essaye (nouveau projet avec un bouton de command Command1 sur ta Userform)

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private nnom As String
Private Sub Command1_Click()
  nnom = "coucou"
  test1
End Sub
Private Sub test1()
  MsgBox "je suis dans test1 " & nnom & " et nnom = " & nnom
  test2
End Sub
 
Private Sub test2()
  MsgBox "je suis dans test2 " & nnom & " et nnom = " & nnom
End Sub

Clique Command1 et tu verras bien ce qui se passe ...

Ceci étant dit, tu pourrais également te passer d'une variable générale et écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Command1_Click()
  Dim nnom As String
  nnom = "coucou"
  test1 nnom
End Sub
Private Sub test1(nnom As String)
  MsgBox "je suis dans test1 " & nnom & " et nnom = " & nnom
  test2 nnom
End Sub
 
Private Sub test2(nnom As String)
  MsgBox "je suis dans test2 " & nnom & " et nnom = " & nnom
End Sub

[moimemessssssssss]

Bonjour,

J'ai copié et collé les 2 méthodes et ça marche nikel.
par contre, quand je les aplique à mon code, j'ai toujours la meme erreur ...

[Invité]

Bonjour,

Ne serait-ce pas parce qu'ici :

Code :

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

1
2
3
4
5
6
7
Sub test1()
 
dim nnom as string
 
'lignes de codes ou apparait lavariable nnom
 
call test2

Vous redéfinissez la variable "nnom" en variable locale avec Dim ?

[moimemessssssssss]

Bonjour,

J'ai enlevé

Code :

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

1
2
 
dim nnom as string

pour ne plus definir la variable en locale et le problème persiste...

[ucfoutu]

Bon...

Quel est donc ton code exact ?

Et pas de fichier joint, s'il te plait (regarde ma signature) ...

[Heureux-oli]

Peut-être un peu de lecture ici ?

[ouskel'n'or]

Bonjour,

J'ai enlevé

Code :

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

1
2
 
dim nnom as string

pour ne plus definir la variable en locale et le problème persiste...

Si tu as déclaré ta variable en public, il est impossible que VBA te réclame cette variable sauf... si tu ne l'as pas déclarée au bon endroit.

Si tu as un userform, tu dois bien l'ouvrir par une procédure qui se trouve dans un module standard.

Si tu utilises ta variable aussi bien dans ce module que dans l'userform, c'est dans le module standard que tu dois déclarer ta variable en Public.

Si tu mets Option Explicit dans l'userform, alors tu dois la déclarer dans l'userform. Mais il ne sera pas accessible depuis le module.

Si tu en as besoin également dans le module, alors passe ta variable en paramètre ainsi que te l'indique ucfoutu dans son deuxième exemple.

Si tu as lu jusqu'ici, tu devrais comprendre quelle est la solution qui te convient
A toutes fins utiles

[moimemessssssssss]

Bonsoir,

j'ai n'ai pas userform et je ne sais pas pourquoi ca ne marche pa
je croi que je vais peut etre la redefinir au sein de chaque procédure....