lancer une macro automatiquement

[simba59]

Bonojour a tous,

Je suis confronté a un petit problème, j'aimerai savoir si il serait possible de réaliser le lancement d'une macro lorsque la cellule A1 de la feuille est supérieure à 5 sachant que A1 est la somme des cellules A3 et A4 et que seules les valeurs de ces dernières peuvent être modifier...

Merci d'avance

 

[petipeton]

Je ne suis pas super calée en vba... toujours à la recherche moi même de progression, mais j'avais résolu ce problème en nommant ma macro Private Sub Worksheet_Change(ByVal Target As Range). Tu obtiens ceci dans les menus déroulants ainsi : menu 1 = worksheet, menu 2 = change.


Quelqu'un veut bien entériner et approfondir ???

 

[pierrejean]

bonjour simba59
bonjour petipon (attention à l'orthographe !!)

testez cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) > 5 Then
MsgBox ('A1 vaut' & Cells(1, 1))
End If
End Sub

 

[PascalXLD]

Bonjour

Exact Petitpeton

Alors voici le code a placer dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('A3:A4')) Is Nothing Then
If Range('A1') > 5 Then MsgBox 'coucou'
End If
End Sub

 

[petipeton]

pierrejean écrit:

bonjour petipon (attention à l'orthographe !!)

Yesss ! Gaffe à l'orthographe, j'y tiens !!!


Ravie de voir que je progresse... si j'arrive à répondre à des questions VBA, c'est que je ne suis pas définitivement perdue !

Bon courage, Simba et merci à PierreJean et à Pascal pour leur réponse !

 

[simba59]

Merci a vous petipeton, pierrejean et Pascal76

Ca me parait si simple a présent...

Merci encore pour vos précieux renseignement...