XL 2016 Double clique dans plage de cellule impossible

[christ77000]

Bonsoir à tous je reviens vers vous pour de l'aide sur cette macro qui fonctionne bien mais :

Mes cellules de D18 à D57 sont en réalité des cellules que je devrais fusionner par exemple D18:F18 mais je n'arrive pas à modifier ce code pour que cela fonctionne. Ce qui fait que mon double clique fonctionne bien mais le texte reste en D18. Si je fusionne D18:F18 il reste D18 mais le code ne fonctionne plus. Merci pour votre aide

Double click TF EVE SRE
Dim MonDossier As String, MonFichier As String
  Cancel = True '---évite d'entrée en mode edition dans la cellule---
  If Not Application.Intersect(Target, Range("D18:D57")) Is Nothing Then
    MonDossier = Range("B211").Value '---adaptez le nom du Dossier---répertoire boulot---
      If Right(MonDossier, 1) <> "\" Then MonDossier = MonDossier & "\" '---vérifier l'anti-skash de fin---
      If Len(Dir(MonDossier, vbDirectory)) > 0 Then '---vérifier l'existence du dossier---
      MonFichier = ChoixFichier(MonDossier, "Choisir le fichier", "*.*,*.*")
      If MonFichier <> "" Then '---si MonFichier n'est pas vide---
        ' S'il s'agit d'un lecteur réseau, inutile de mettre "file://"
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=MonFichier, TextToDisplay:=Selection.Value
      End If
    End If
  End If

 

[christ77000]

Re
la seule astuce que j'ai trouvé pour le moment est de laisser la macro comme cela et de fusionner en suite les cellules, mais cela ne risque t'il pas un jour de planter...

 

[sylvanu]

Bonjour Christ,
Je ne comprend pas votre problème. On peut très bien détecter un clic dans des cellules fusionnées, en calculer l'adresse et en calculer la première colonne, et le nombre de cellules fusionnées.
Avec tout ça vous devez être capable de vous en sortir. Voir ex en PJ

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D18:M18")) Is Nothing Then
        MsgBox "Vous avez cliqué en " & Target.Address & Chr(10) & _
                "La première colonne est : " & Target.Column & Chr(10) & _
                "Nombre de cellules fusionnées : " & Target.Count
    End If
End Sub

 

[christ77000]

Bonsoir et merci pour votre aide je regarde le fichier et je reviens. Je précise que je débute en VBA donc déjà ce code n'est pas de moi. j'en ai compris une partie mais pas tout, d'où ma question. Et je suis loin de connaître toutes les subtilités du VBA. Mais j'apprend grâce a tous ce que je lis sur ce site.

 

[sylvanu]

Bonjour,
Pouvez vous envoyer un fichier test ? Ce serait plus simple pour comprendre.

 

[christ77000]

Bonjour Sylvanu et merci pour ton aide ton code fonctionne a merveille. Bonne journée à vous