Action sur clic cellule excel

Question

Bonjour, 

Ce que je vais exposer est simple mais j'ai un gros trou de mémoire et je n'ai pas mes notes VBA pour maco Excel avec moi :( ! 

J'ai un tableau excel dans lequel j'ai une liste de choix dans une cellule. 
Je souhaiterai affiche un message lorsque dans cette cellule je choisi une valeur bien précise. 

Cas précis : dans la colonne "G", je choisi entre "OK" et "KO". Lorsque je choisi "KO", je veux afficher un message précisant qu'il faut ajouter un détails dans la cellule suivante (si celui ci n'est pas renseigné controle à prévoir) ! 

Mon problème c'est que je ne sais plus dans quelle procédure de la macro je dois mettre le controle ni comment faire ça en dynamique car le contrôle doit se faire entre la plage G6 à G300 (je ne souhaite pas faire 300 macros :) ) 

On m'a indiqué : 
A gauche de l' IDE (éditeur de code) dans la partie explorateur de projet il y à Thisworkbook. 

Dans le code de ThisWorkbook tu ajoutes . 

Code Visual Basic :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'ici ton code

End Sub


> Pour la partie code, je souhaite que le chiffre de de ma ligne soit dynamique ( Ex : G6  je mets ("G" & valeur de la ligne active )

=> ensuite pour mon test je dois donc faire un 
      If Feuil1.Range("G"& valeur de la ligne active) = "KO" then ?
           MsgBox "texte"
      endif
Désolé je n'ai plus fait de VBA depuis 10 ans :) !

Merci d'avance

Cédric GERARD

cs_Jack · Answer

Salut

Dans la procédure Workbook_SheetChange, la variable Target te fournira un Range correspondant à la (ou les) cellule(s) impactée(s) par le changement.
A toi de filtrer selon la colonne et/ou le texte contenu.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Action sur clic cellule excel

1 réponse

Votre réponse

Discussions similaires