OVH Cloud OVH Cloud

Macro quand cellule selectionée

7 réponses
Avatar
aife1
Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je comprend
pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche pas)

Si quelqu'un pourrait m'aider ...

Merci d'avance.

7 réponses

Avatar
isabelle
bonjour aife1,

If ActiveCell.Address = "$M$1" Then Macro2

isabelle


Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je comprend
pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche pas)

Si quelqu'un pourrait m'aider ...

Merci d'avance.


Avatar
Jean-Claude
Salut,
Utilise l'évènement SelectionChange
A insérer dans le code de la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$1" Then MsgBox "ok"
End Sub


"aife1" a écrit dans le message de
news:%
Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je comprend
pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche pas)

Si quelqu'un pourrait m'aider ...

Merci d'avance.




Avatar
aife1
Bonjour Isabelle !

Merci pour ton aide, mais ça ne marche pas, lorsque je clique sur la cellule
en question, rien ne se passe.

Merci encore.

"isabelle" a écrit dans le message de
news:
bonjour aife1,

If ActiveCell.Address = "$M$1" Then Macro2

isabelle


Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je
comprend


pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche
pas)



Si quelqu'un pourrait m'aider ...

Merci d'avance.




Avatar
aife1
Bonjour Jean-Claude !

Merci, mais le problème est que cette feuille a déjà du code "Private Sub
Worksheet_Activate()", saurais-tu comment faire en commençant par ce code ?

Merci pour ton aide.

"Jean-Claude" a écrit dans le message de
news:ON%
Salut,
Utilise l'évènement SelectionChange
A insérer dans le code de la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$1" Then MsgBox "ok"
End Sub


"aife1" a écrit dans le message de
news:%
Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je
comprend


pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche
pas)



Si quelqu'un pourrait m'aider ...

Merci d'avance.








Avatar
Jean-Claude
"aife1" a écrit dans le message de
news:%
Bonjour Jean-Claude !

Merci, mais le problème est que cette feuille a déjà du code "Private Sub
Worksheet_Activate()", saurais-tu comment faire en commençant par ce code
?


Re
Ce n'est pas le même évènement donc tu rajoutes le code que je t'ai envoyé à
la suite du code déjà présent.
J'espère avoir répondu à ton interrogation.

Avatar
isabelle
bonjour aife1,

veut tu que la macro s'exécute su l'événement Worksheet_Activate
ou sur l'événement Worksheet_SelectionChange ?
ces événements n'arrive pas au même moment

peut être serait t'il mieux d'utiliser un événement de ThisWorkbook: Workbook_SheetSelectionChange

Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Feuil1" And _
ActiveCell.Address = "$M$1" Then macro2
End Sub

isabelle



Bonjour Isabelle !

Merci pour ton aide, mais ça ne marche pas, lorsque je clique sur la cellule
en question, rien ne se passe.

Merci encore.

"isabelle" a écrit dans le message de
news:
bonjour aife1,

If ActiveCell.Address = "$M$1" Then Macro2

isabelle


Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule définie est
sélectionée. Voila le code que j'ai mis dans la feuille, mais je
comprend


pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1 s'écécute (ok ça
marche), et quand cellule M1 sélectionée la Macro2 s'execute (marche
pas)



Si quelqu'un pourrait m'aider ...

Merci d'avance.






Avatar
dadda
Dans un module de feuille tu mets le code suivant:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$M$1" Then
macro1
End If
End Sub

Tu mets la macro1 dans un module standard

Cordialement
Dadda

-----Message d'origine-----
Bonjour !

J'aimerais qu'une macro s'execute lorsqu'une cellule
définie est

sélectionée. Voila le code que j'ai mis dans la feuille,
mais je comprend

pas pourquoi ça marche pas :

Private Sub Worksheet_Activate()
Macro1
If Range("M1").Select Then Macro2
End If
End Sub

Explication : quand la feuille est activée, la Macro1
s'écécute (ok ça

marche), et quand cellule M1 sélectionée la Macro2
s'execute (marche pas)


Si quelqu'un pourrait m'aider ...

Merci d'avance.


.