excecuter une macro si une cellule est active

[@lex]

Bonjour,

Voila je cherche a faire un traitement lorsqu'une cellule est active
A5
A10
A15...
Toujours dans la 1er colonne mais les multiple de 5.

Quelqu'un peut il m'aider
(je suis parti sur cette piste :
Private Sub Worksheet_Change(ByVal Target As Range)
m = ActiveCell.Row Mod 5
If m = 0 Then
....
)

Merci d'avance

 

[pierrejean]

Re : excecuter une macro si une cellule est active

bonjour @lex

pas si mal comme depart

a tester:

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.column=1 Then
m = Target.Row Mod 5
If m = 0 Then
....
End if
End if

 

[Gorfael]

Re : excecuter une macro si une cellule est active

Bonjour,

Voila je cherche a faire un traitement lorsqu'une cellule est active
A5
A10
A15...
Toujours dans la 1er colonne mais les multiple de 5.

Quelqu'un peut il m'aider
(je suis parti sur cette piste :
Private Sub Worksheet_Change(ByVal Target As Range)
m = ActiveCell.Row Mod 5
If m = 0 Then
....
)

Merci d'avance

Salut
ce que tu traite dans Target de WorkSheet_Change, c'est les cellules modifiées, pas la cellule active.
Donc, le fait d'activer une cellule ne lance pas la macro

De même si si tu utilises Worksheet_SelectionChange, target ne s'occupe pas de la cellule active, seulement de la sélection
Si tu sélectionnes une plage est que tu te déplace dans cette plage à l'aide de <Tab>, la macro ne se lance pas.

À ma connaissance, l'activation d'une cellule ne déclenche aucune macro en automatique. Il ne reste qu'à trouver un palliatif pouvant répondre à ton besoin, mais pour ça, il faudrait avoir une idée de ton but

A+

 

[@lex]

Re : excecuter une macro si une cellule est active

Merci
En fait, la il m'execute lorsque j'ai renseigné la cellule A5, A10...
Moi, je voudrais pouvoir excuter la macro lorsque avec la souris je viens cliquer sur les cellule A5...A55..
Je me suis surement mal exprimé.

Merci d'avance si vous pouvez m'aider

 

[pierrejean]

Re : excecuter une macro si une cellule est active

re
Salut Gorfael

teste la même chose dans selection_change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
m = Target.Row Mod 5
If m = 0 Then
.......
End If
End If
End Sub