Macro double clic sur cellules fusionné

[queryz]

Bonjour a tous,

J'ai réussi a créer une macro qui lorsque je double clic sur une cellule , une boite de dialogue s'affiche avec ce que contient la cellule , voici le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim contenu
Set plage = Range("A1:A10")
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
contenu = Target.Value
If contenu <> "-" Then MsgBox (contenu)
Cancel = True
End If
End Sub

Le probléme est que cela ne marche pas sur les cellules fusionné , comment puis je faire pour que cela marche

Merci d'avance de vos réponses

 

[eriiic]

Re : Macro double clic sur cellules fusionné

Bonjour,

Remplace Target par Target.Resize(1, 1)

Du coup ton .cells.count ne sert plus à rien (en même temps sur un double-clic c'est dur d'avoir plusieurs cellules sélectionnées... ;-) )

eric

 

[mécano41]

Re : Macro double clic sur cellules fusionné

Bonjour,

Comme cela, ça fonctionne mais sache qu'utiliser des plages fusionnées en VBA est déconseillé...parfois cela fonctionne et parfois pas ... EXCEL est susceptible (comme avec les lettres accentuées...)

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim contenu
Dim Plage As Range
Set Plage = Range("A1")
If Not Intersect(Target.Cells(1), Plage) Is Nothing Then
contenu = Target.Cells(1).Value
If contenu <> "-" Then MsgBox (contenu)
Cancel = True
End If
End Sub

Cordialement

 

[queryz]

Re : Macro double clic sur cellules fusionné

Ok merci beaucoup a vous deux 😉
Ca marche trés bien 🙂