Excel 2013 : Comment modifier le contenu d’une cellule sur double clic sur Excel VBA en moins de 5 min.

Excel 2013 : Comment modifier le contenu d'une cellule sur double clic sur Excel VBA en moins de 5 min.

Excel 2013 : Comment modifier le contenu d’une cellule sur double clic sur Excel VBA en moins de 5 min.

 

EXCEL_2013_VBA_DOUBLE_CLIC_CELLULE

Problématique :

Je souhaite avoir la possibilité de changer une cellule et son contenu par un simple double clic avec une réponse pré-écrite, au lieu d’avoir menu déroulant où autre.

Comment faire?

Excel 2013 : Comment modifier le contenu d'une cellule sur double clic sur Excel VBA en moins de 5 min.

Excel 2013 : Comment modifier le contenu d’une cellule sur double clic sur Excel VBA en moins de 5 min.

Solution :

Plusieurs étapes :

Excel 2013 : Comment modifier le contenu d'une cellule sur double clic sur Excel VBA en moins de 5 min.

Excel 2013 : Comment modifier le contenu d’une cellule sur double clic sur Excel VBA en moins de 5 min.

Déclaration de variable et utilisation de la procédure événementielle BeforeDoubleClick; condition avec intersect sur la plage C6:C13 si c’est le cas  alors boucle avec attribution de valeur.

Target est le nom d’une variable Range.
Lors de certains événements (sélection, double-clic, …) excel te passe Target en paramètre que tu saches quel range a déclenché cet événement, que tu puisses agir en conséquence.

If Not Intersect([C6:C13], Target) Is Nothing Then Target.Value = IIf(Target.Value = “Non”, “Ok”, “Non”)

Code source VBA :

Excel 2013 : Comment modifier le contenu d'une cellule sur double clic sur Excel VBA en moins de 5 min.

Excel 2013 : Comment modifier le contenu d’une cellule sur double clic sur Excel VBA en moins de 5 min.

Détail important :

RAS

Version Youtube :

En cours..

Tuto :

Recevoir la newsletter

Inscrivez-vous maintenant et recevez un e-mail les fois où je publie du contenu.

I agree to have my personal information transfered to AWeber ( more information )

Je hais les spams. Vous pouvez vous désinscrire à tout moment.

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *