Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien grace au
référence (Outils->références).
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien grace au
référence (Outils->références).
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien grace au
référence (Outils->références).
Bonjour,
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
Cordialement.
--
LSteph
On 7 fév, 10:43, raphael-diaz wrote:Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document
:
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") =
"O" Then
MsgBox "Fonction
appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e
avec
le nom défini "marqueur" est égale à
"O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi
on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien
grace au
référence (Outils->références).
Bonjour,
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
Cordialement.
--
LSteph
On 7 fév, 10:43, raphael-diaz wrote:
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document
:
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") =
"O" Then
MsgBox "Fonction
appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e
avec
le nom défini "marqueur" est égale à
"O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi
on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien
grace au
référence (Outils->références).
Bonjour,
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
Cordialement.
--
LSteph
On 7 fév, 10:43, raphael-diaz wrote:Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un document
:
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") =
"O" Then
MsgBox "Fonction
appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cellul e
avec
le nom défini "marqueur" est égale à
"O". Cependant quand j'execute le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma cro
FonctionActive comme si Call ne prenait pas en considération la conditi
on If...
Pour info la macro FonctionActive est dans un autre fichier lié au mien
grace au
référence (Outils->références).
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is Nothing Then
>> If ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier & " est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la macro...
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is Nothing Then
>> If ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier & " est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la macro...
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is Nothing Then
>> If ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier & " est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") =
>> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
LSteph a écrit le 07/02/2011 à 12h37 :...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") >>> >> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier
estvalidé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
Pour "activesheet" c'est ok, j'ai comprit ton idée et je te remercie mais
cela
ne résout malheuresement pas mon probleme de fond...
Pour ta question j'ai en effet plusieurs procédures évenementielles:
Worksheet_BeforeRightClick, Worksheet_Change et Worksheet_Deactivate.
Elles appellent tous avec "CALL" et un parametre la meme référence
présente
dans le fichier séparé C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.
Mon but et de chercher à savoir si le fichier de référence est présent
dans le
répertoire (avec un marqueur indicateursur la feuille ou comme je l'ai
présenté
avec Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla"). Si le fichier n'est pas présent
(par
exemple quand je donne le fichier à des clients) je n'appel pas call comme
ca
ils n'ont pas le beug excel et le message d'erreur ERREUR DE COMPILATION :
Projet ou bibliotheque introuvable.
Cependant et quelques soit les conditions de test, le message d'erreur
revient
comme si call passait en 1er alors que mes conditions s'ont bonnes quand
je les
tests avec des MsgBox.
J'espere avoir été clair. Merci beaucoup pour le temps que tu passes pour
m'aider.
Sincérement
LSteph a écrit le 07/02/2011 à 12h37 :
...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:
LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") >>> >> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier
est
validé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
Pour "activesheet" c'est ok, j'ai comprit ton idée et je te remercie mais
cela
ne résout malheuresement pas mon probleme de fond...
Pour ta question j'ai en effet plusieurs procédures évenementielles:
Worksheet_BeforeRightClick, Worksheet_Change et Worksheet_Deactivate.
Elles appellent tous avec "CALL" et un parametre la meme référence
présente
dans le fichier séparé C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.
Mon but et de chercher à savoir si le fichier de référence est présent
dans le
répertoire (avec un marqueur indicateursur la feuille ou comme je l'ai
présenté
avec Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla"). Si le fichier n'est pas présent
(par
exemple quand je donne le fichier à des clients) je n'appel pas call comme
ca
ils n'ont pas le beug excel et le message d'erreur ERREUR DE COMPILATION :
Projet ou bibliotheque introuvable.
Cependant et quelques soit les conditions de test, le message d'erreur
revient
comme si call passait en 1er alors que mes conditions s'ont bonnes quand
je les
tests avec des MsgBox.
J'espere avoir été clair. Merci beaucoup pour le temps que tu passes pour
m'aider.
Sincérement
LSteph a écrit le 07/02/2011 à 12h37 :...je redmets au cas où la question soit bien celle du premier message
''''''''''
Attention en déactivate ainsi écrit activesheet est celle sur
laquelle
tu arrives et non pas celle dont tu pars!!!!
Sinon.
N'aurais tu pas quelquepart ailleurs dans ce projet une autre
procèdure évennementielle
'''''''''''
....ton second post évoque un autre sujet dans un contexte
légèrement
différent et ne donne pas de retour sur cette première
suggestion.
Point commun toutefois les éléments connexes sont tout aussi
opaques
FonctionActive ou CreateVersionListOnBeforeRightClickEvent(Target)
@+ si tu en dis plus et si le sujet ne change pas .
Cordialement.
--
LSteph
On 7 fév, 11:53, raphael-diaz wrote:LSteph a écrit le 07/02/2011 à 11h29 :
> Bonjour,
> Attention en déactivate ainsi écrit activesheet est celle
sur
> laquelle
> tu arrives et non pas celle dont tu pars!!!!
> Sinon.
> N'aurais tu pas quelquepart ailleurs dans ce projet une autre
> procèdure évennementielle
> Cordialement.
> --
> LSteph
> On 7 fév, 10:43, raphael-diaz wrote:
>> Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un
docum ent
>> :
>> Private Sub Worksheet_Deactivate()
>> If Not ActiveSheet.Range("marqueur") Is
Nothing Then
>> If
ActiveSheet.Range("marqueur") >>> >> "O" Then
>> MsgBox "Fonction
>> appelée"
>> Call FonctionActive
>> End If
>> End If
>> End Sub
>> Mon but est d'activer la macro FonctionActive() seulement quand la
cel lul e
>> avec
>> le nom défini "marqueur" est égale à
>> "O". Cependant quand j'execute le code, le
>> programme m'affiche bien le MsgBox quand les conditions sont remplies
mai s
>> execute dans tous les cas et qu'elle que soit la valeur de marqueur
la ma
cro
>> FonctionActive comme si Call ne prenait pas en considération
la cond iti
>> on If...
>> Pour info la macro FonctionActive est dans un autre fichier
lié au m ien
>> grace au
>> référence (Outils->références).
Comme je le disais ma macro fonctionne dans le sens où les conditions s
ont
validées et testées avec une MsgBox.
En fait dès que j'utilise la macro "Call" elle est
appelée en 1er, au démarrage
de Worksheet_Deactivate . C'est un probleme lié au fichier qui sert de
référence. Si celui ci est absente j'ai le message d'erreur
suivant : "Erreur de
complilation : Projet ou bibliotheque introuvable".
Cela est embetant car mon but est justement de tester si le fichier est
existant et si il est existant j'active ma macro. L'existance du fichier
estvalidé par la cellule "marqueur "mais je viens de me rendre
compte que j'aurais
pu etre utiliser ce code :
Private Sub Worksheet_Deactivate()
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla")
If Fichier <> "" Then 'le fichier existe
Call
CreateVersionListOnBeforeRightClickEvent(Tar get)
Else
MsgBox "Le fichier " & Fichier &
" est inexistant" 'le fi chier n'existe
pas
End If
End Sub
Dans tous les cas mon Call est appelé dès le début de la
macro...
Pour "activesheet" c'est ok, j'ai comprit ton idée et je te remercie mais
cela
ne résout malheuresement pas mon probleme de fond...
Pour ta question j'ai en effet plusieurs procédures évenementielles:
Worksheet_BeforeRightClick, Worksheet_Change et Worksheet_Deactivate.
Elles appellent tous avec "CALL" et un parametre la meme référence
présente
dans le fichier séparé C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.
Mon but et de chercher à savoir si le fichier de référence est présent
dans le
répertoire (avec un marqueur indicateursur la feuille ou comme je l'ai
présenté
avec Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreference.xla"). Si le fichier n'est pas présent
(par
exemple quand je donne le fichier à des clients) je n'appel pas call comme
ca
ils n'ont pas le beug excel et le message d'erreur ERREUR DE COMPILATION :
Projet ou bibliotheque introuvable.
Cependant et quelques soit les conditions de test, le message d'erreur
revient
comme si call passait en 1er alors que mes conditions s'ont bonnes quand
je les
tests avec des MsgBox.
J'espere avoir été clair. Merci beaucoup pour le temps que tu passes pour
m'aider.
Sincérement
LSteph a écrit le 07/02/2011 à 12h37 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
'Verifie si le fichier referentiel est bien présent
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreferentiel .xla")
LSteph a écrit le 07/02/2011 à 12h37 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
'Verifie si le fichier referentiel est bien présent
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreferentiel .xla")
LSteph a écrit le 07/02/2011 à 12h37 :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
'Verifie si le fichier referentiel est bien présent
Dim Fichier As String
Fichier = Dir("C:Program FilesMicrosoft
OfficeOFFICE11XLSTARTreferentiel .xla")
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docume nt :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cell ule avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execu te le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies m ais
execute dans tous les cas et qu'elle que soit la valeur de marqueur la macro
FonctionActive comme si Call ne prenait pas en considération la condi tion If...
Pour info la macro FonctionActive est dans un autre fichier lié au mi en grace au
référence (Outils->références).
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docume nt :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cell ule avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execu te le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies m ais
execute dans tous les cas et qu'elle que soit la valeur de marqueur la macro
FonctionActive comme si Call ne prenait pas en considération la condi tion If...
Pour info la macro FonctionActive est dans un autre fichier lié au mi en grace au
référence (Outils->références).
Bonjour, J'ai posé ce code dans un onglet(classeur) actif d'un docume nt :
Private Sub Worksheet_Deactivate()
If Not ActiveSheet.Range("marqueur") Is Nothing Then
If ActiveSheet.Range("marqueur") = "O" Then
MsgBox "Fonction appelée"
Call FonctionActive
End If
End If
End Sub
Mon but est d'activer la macro FonctionActive() seulement quand la cell ule avec
le nom défini "marqueur" est égale à "O". Cependant quand j'execu te le code, le
programme m'affiche bien le MsgBox quand les conditions sont remplies m ais
execute dans tous les cas et qu'elle que soit la valeur de marqueur la macro
FonctionActive comme si Call ne prenait pas en considération la condi tion If...
Pour info la macro FonctionActive est dans un autre fichier lié au mi en grace au
référence (Outils->références).