Discussion :

[boosty]

(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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Cells(1).Name.Name

[boosty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Cells(1).Name.Name

Merci beaucoup

[boosty]

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

[Xan]

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 ^^

[Megaxel]

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.

[SilkyRoad]

bonjour à tous

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boosty]

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.