lancer vba quand on clique sur une cellule

[setsix]

Bonjour


Je voudrais que lorsque je clique sur la cellule B2 cela lance la macro ABCD, je suis sûr que c'est tout simple mais j'arrive pas à trouver.

Merci d'avance,

Setsix

 

[thomlau]

Re : lancer vba quand on clique sur une cellule

Bonjour Setsix

Voici le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B2")) Is Nothing Then

Module1.Tamacro
    
End If

End Sub

 

[setsix]

Re : lancer vba quand on clique sur une cellule

merci Thomlau mais çà marche pas

voici le code

Sub colorie_rouge()


'
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("c2")) Is Nothing Then

Module1.colorie_rouge

End If

End Sub

 

[ccpapy]

Re : lancer vba quand on clique sur une cellule

bonjour à tous

clic droit sur l'onglet interessé / visualiser le code et
essaye de mettre ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection = Range("c2") Then Call colorie_rouge
End Sub

à+

 

[Pierrot93]

Re : lancer vba quand on clique sur une cellule

Bonsoir à tous,

mais de toute évidence, se sera toujours la cellule C2 qui sera coloré... Si la macro se déclenche sur sélection de C2... et que tu colorie la sélection... Sans doute quelque chose m'a échappé...

bonne soirée
@+

 

[ccpapy]

Re : lancer vba quand on clique sur une cellule

re,
bonjour Pierrot93, effectivement, j'en étais arrivé à la même conclusion que toi... attendons l'explication 😉
bonne journée, je vais rouler à+

 

[Roland_M]

Re : lancer vba quand on clique sur une cellule

bonjour à tous
tu places ce code dans la feuille qui t'interresses
tu "double clic" sur la cellule que tu souhaites
tout le code est réunit dedans

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
 .Font.ColorIndex = 2
 .Interior.ColorIndex = 3
 .Interior.Pattern = xlSolid
End With
Cancel = True
End Sub

Roland