utilisation des variables

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:

---

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 ?

Bonjour,

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

Code:

---

1 2 3 4 5 6

Sub Test (Adresse as string)   triatement   End Sub

---

et pour l'appel de la procedure

Code:

---

Test (n)

---

Bonjour,

Citation:

---

Envoyé par jfontaine

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

Code:

---

1 2 3

Sub Test (Adresse as string) triatement End Sub

---

et pour l'appel de la procedure

Code:

---

Test (n)

---

---

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

Bonjour corona

Code:

---

Test (n)

---

fonctionne aussi

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.

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:

---

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 ??

Bonjour,
A la première lecture, je vois deux erreurs
Private Sub Worksheet_Change(ByVal Target As Range)
Cette procédure événementielle n'a qu'un seul argument c'esttarget il ne faut pas en ajouter un.
Ensuite, Target étant un objet Range il ne faut pas écrire Range(Target.Address)) mais If Not Application.Intersect(KeyCells, Target) Is Nothing Then

Je viens de proceder à la modif comme tu me le dit

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range     Set KeyCells = Range("D:G") If Not Application.Intersect(KeyCells, Range) _ Is Nothing Then n = Target.Address

---

j'obtiens une erreur de compilation argument non facultatif

et pour ce qui est de la déclaration de la variable interprocess il vaux mieux que je mette

Code:

---

1 2 3

Sub variable(n as string) n=target.adress End Sub

---

avant de passer sur le code au dessus ou apres ?

Bonjour,
Si tu relis ce que j'ai écrit, tu verras que ta ligne 7 est incorrecte. Ce n'est pas Range mais Target qu'il faut écrire

oups désoler