Discussion :

[stefano]

bonjour a tous,

Pouvez vous m'aide s'il vous plait à resoudre mon problème de variable, j'a bien tester les différentes solution donnée dans

http://mhubiche.developpez.com/Access/variables/
http://silkyroad.developpez.com/VBA/LesVariables/#LIII

mais ça marche pas enfin j'y arrive pas

j'ai plusieurs variable de type string dans le classeur excel dont une qui me donne l'adresse de la cellule sélectionnée.
Pour recuperer l'adresse de la cellule j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
 
 
Set KeyCells = Range("D:G")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
n = Target.Address

ce bout de code étant dans la feuil2 avec l'evenement change

afin de pouvoir appeler avec d'autre evenement certain processus j'ai mis dans Module1 le reste des procedures.

Le problème c'est que la variable n perd sa valeur quand je passe de la feuille sur le module

comment palier a ce problème ?

[jfontaine]

Bonjour,

Une solution consiste à passer la valeur de ta variable dans l'appel de la procédure

Code :

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

1
2
3
4
5
6
 
Sub Test (Adresse as string)
 
triatement
 
End Sub

et pour l'appel de la procedure

Code :

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

Test (n)

[Philippe Tulliez]

Bonjour,

Bonjour,
Une solution consiste à passer la valeur de ta variable dans l'appel de la procédure

Code :

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

1
2
3
Sub Test (Adresse as string)
triatement
End Sub

et pour l'appel de la procedure

Code :

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

Test (n)

Attention : l'appel de la procédure c'est soit Test n soit call Test(n)

[jfontaine]

Bonjour corona

Code :

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

Test (n)

fonctionne aussi

[Philippe Tulliez]

Bonjour Jérôme,
Toutes mes excuses, il m'avait semblé avoir eu un jour un message d'erreur en utilisant cette syntaxe.
Je pensais que c'était dans le cas où on l'utilisait comme fonction.
Cela m'apprendra de ne pas vérifier avant d'affirmer des choses.

[stefano]

salut,
Merci de m'aider c'est sympa car je tourne en rond depuis un temps certain ou un certain temps je sais plus lol
si je fais comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range, n As Range)
Dim KeyCells As Range
 
 
Set KeyCells = Range("D:G")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
n = Target.Address

j'ai une erreur de compilation

Le déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom

C'est où que j'ai fait la boulette dans le schmilblick ??