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 ?