Événement DoubleClick + Select Case

[jeanBaptiste]

Bonjour le forum,

Comme il est dit dans le titre je cherche à lancer une macro lorsque je fais un double clique sur une cellule. Et que selon cette cellule elle m'affiche la valeur d'une cellule en particulier.
En gros je cherche à faire par exemple pour B16 lorsque je double clique dessus.

=Feuil1!A1

J'ai réussi à le faire sur un classeur test le problème est que le classeur que j'utilise contient des cellules fusionnées et la je n'arrive pas à faire en sorte que ça marche.

Je joins un classeur avec ce que je cherche à avoir et le code que j'ai fais pour l'instant qui fonctionne si les cellules ne sont pas fusionnées

Cordialement
jeanBaptiste

 

[job75]

Re : Événement DoubleClick + Select Case

Bonsoir jeanBaptiste,

Vous avez écrit :

'---
    Case Is = Range("B12")
        Target = Sheets("Data recorder").Range("B7")

Alors le double-clic traitera toute cellule de la feuille dont la valeur est égale à celle de B12.

En fait vous voulez probablement ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Address(0, 0)
    Case "B12"
        Target = Sheets("Data recorder").Range("B7")
    Case "E12"
        Target = Sheets("Data recorder").Range("B7")
'---

Pour les cellules fusionnées il faut bien sûr mettre la bonne adresse...

A+

 

[job75]

Re : Événement DoubleClick + Select Case

Re,

Avant d'ouvrir de nouvelles discussions il faudrait terminer les précédentes :

https://www.excel-downloads.com/threads/vba-ouvrir-un-nouveau-classeur-si-pas-ouvert.20002243/

Sinon c'est le meilleur moyen de n'avoir plus de réponse, de moi ou des autres.

Bonne nuit.

 

[jeanBaptiste]

Re : Événement DoubleClick + Select Case

Bonjour job,

Excuse moi je pensais avoir répondu je le fais tout de suite merci de me l'avoir fait remarqué.

Pour la solution que tu viens de me donner il faut obligatoirement que je mette un "=" ou "<" ou tout autre signe de comparaison.

mais si je mets

Case Is = "B12"

il va encore traité les cellules qui ont la même valeur que B12.

De plus pour les cellules fusionnées je met "B12" ou "B12:C12"

Cordialement
jeanBaptiste

 

[job75]

Re : Événement DoubleClick + Select Case

Bonjour jeanBaptiste, le forum,

Pour la solution que tu viens de me donner il faut obligatoirement que je mette un "=" ou "<" ou tout autre signe de comparaison.

Si vous êtes un adepte de "plus c'est long plus c'est bon", pourquoi pas.

mais si je mets

Case Is = "B12"

il va encore traité les cellules qui ont la même valeur que B12.

Pas du tout, il suffit de tester.

De plus pour les cellules fusionnées je met "B12" ou "B12:C12"

Devinez.

Bonne journée.

 

[jeanBaptiste]

Re : Événement DoubleClick + Select Case

RE,

Je viens de comprendre mon erreur j'avais laissé le "Is" et quand il y en a un on est obligé de mettre "=".

J'ai réussi à le faire fonctionner je te remercie. Cette méthode pour me guider est très bien ça ma permis de bien chercher mon problème tout en me guidant merci Job