[VBA-E]Target pr cell fusionnée/Worksheet_BeforeDoubleClick

(Re)Bonjour à tous !

Lors du double-click sur une cellule, je récupère le Name de celle-ci et j'affiche des informations en fonction du Name.

Sur une cellule normale, tout fonctionne très bien mais lorsque je double-clique sur une cellule fusionnée, j'ai l'impression que le Target ne donne aucune valeur.

Voici le bout de code très simple mis en cause :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_BeforeDoubleClick([b]ByVal Target As Range[/b], Cancel As Boolean)   Dim sSql, sName As String   On Error Resume Next   sName = Target.Name.Name   Cancel = True   On Error GoTo 0   End Sub

---

Je n'ai collé que ce qui était nécessaire et j'ai mis en gras là où je pense que ca foire.
J'en suis même sur car avec le step-by-step je vois pas que rien ne passe dans Target quand je double click sur une cellule fusionnée.

Que faire ?

Merci d'avance

Edit: apparemment les balises [b] ne passent pas dans du code, je les laisse quand même pour indiquer où ca foire !

si target renvoie quelque chose, mais l'appel Target.Name n'est pas valide sur une plage fusionné.
il faut lire avec la forme

Code:

---

Target.Cells(1).Name.Name

---

Citation:

---

Envoyé par bidou

si target renvoie quelque chose, mais l'appel Target.Name n'est pas valide sur une plage fusionné.
il faut lire avec la forme

Code:

---

Target.Cells(1).Name.Name

---

---

8O

:applo:

Merci beaucoup :D

En passant, est-il possible de créer un lien hypertexte dans une msgbox ?
Ce lien redigerait vers une autre msgbox

Je ne pense pas que ce soit possible. A ma connaissance, les seules interactions possibles avec les MsgBox sont les boutons fournis.

Ceci étant, mes connaissances sont peu fournies, aussi, il vaut mieux attendre les réponses de personnes plus qualifiées que moi ^^

Je suis d'accord avec toi, Xan.
Mais il est possible de substituer un msgbox à un formulaire créé par toi, et auquel tu peux donner les possibilités que tu cherches.

bonjour à tous

tu peux tester

Code:

---

1 2 3

Dim Reponse As String Reponse = MsgBox("Voulez vous activer le lien ?", vbYesNo) If Reponse = vbYes Then ThisWorkbook.FollowHyperlink "http://<a href="http://www.developpez.com"," target="_blank">www.developpez.com",</a> , True

---

bonne journée
michel

Je vais devoir faire un formulaire alors car ce que je cherche, c'est :

Dans ma db, j'ai la liste des cellules nommées de mon programme avec l'aide et la formule correspondant.

Si dans l'aide, un nom de cellule apparait, j'aimerais mettre un lien hypertexte vers l'aide de ce nom.

Par exemple:

Noms de cellules : Matricule, Age.

Je double click sur Matricule : "Le matricule dépend de l'âge de la personne à son arrivée"

Là, je veux un lien sur âge qui redirige vers le même formulaire qu'affiché pour Matricule mais évidemment, avec un contenu différent.