Lancer la macro si la cellule active est B5

[blord]

Bonjour à tous,

Je cherche à lancer une macro, en cliquant sur un bouton, seulement si la cellule active est B5 par exemple.

Là ou j'accroche est dans la récupération de l'adresse de la cellule :


Sub test()
If ActiveCell.Address = B5 Then
'macro....
End If
End Sub

Merci de votre aide

 

[myDearFriend!]

Re : Lancer la macro si la cellule active est B5

Bonsoir blord,

Pour faire simplement, tu peux essayer comme ça :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] test()
    [COLOR=NAVY]If[/COLOR] ActiveCell.Address = "$B$5" [COLOR=NAVY]Then[/COLOR]
        [COLOR=GREEN]'macro....[/COLOR]
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

OU comme ça :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] test()
    [COLOR=NAVY]If[/COLOR] ActiveCell.Address([COLOR=NAVY]False[/COLOR], [COLOR=NAVY]False[/COLOR]) = "B5" [COLOR=NAVY]Then[/COLOR]
        [COLOR=GREEN]'macro....[/COLOR]
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

 

[blord]

Re : Lancer la macro si la cellule active est B5

Bonsoir Didier,

Merci beaucoup pour l'information, je n'avais pas pensé à mettre l'adresse de la cellule entre " "...

Merci !

 

[Spitnolan08]

Re : Lancer la macro si la cellule active est B5

Bonsoir Blord, myDearFriend,

Une proposition un petit peu plus évoluée pour éviter le bouton :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$5" Then Macro
End Sub

S'il n'est pas indispensable pour une raison particulière...

Cordialement

 

[myDearFriend!]

Re : Lancer la macro si la cellule active est B5

Bonsoir Spitnolan08,

C'est une question de point vue, moi je n'ai pas interprété l'objectif de blord comme tu le fais...

Cordialement,

 

[Spitnolan08]

Re : Lancer la macro si la cellule active est B5

Re myDearFriend,

Nous sommes d'accord...c'est pourquoi j'ai précisé :

S'il n'est pas indispensable pour une raison particulière...

Bien cordialement🙂