Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Magic_Doctor

XLDnaute Barbatruc
Bonjour,

Dans un Worksheet_BeforeDoubleClick quand je double clik sur une cellule fusionnée la macro plante, alors qu'elle marche parfaitement quand les cellules ne sont pas fusionnées. Comment contourner le problème ?
L'exemple ci-joint est nettement plus parlant.

Merci pour une solution.

Bonne fin d'après-midi.
 

Fichiers joints

nolich

XLDnaute Occasionnel
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Bonsoir MMagic_Doctor, bonsoir à toutes et à tous :)

Je ne dispose pas d'XL en ce moment, mais pour avoir eu à gérer un cas similaire, transforme Target en Target.Item(1) dans ta procédure événementielle.

@+
 

ROGER2327

XLDnaute Barbatruc
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Bonjour Magic_Doctor
Essayez la modification en rouge.
Code:
[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim selection As String
   If Not Application.Intersect(Target, Union([Sigma1], [Sigma2], [Sigma3], [Sigma4], [Sigma5], [Sigma6])) Is Nothing Then
   Application.ScreenUpdating = False
   selection = "Sigma" & UniquementChiffres(Target[B][COLOR="Red"].Cells(1, 1)[/COLOR][/B].Name.Name)
   [Resultat].Value = selection
   End If
   Cancel = True
   Application.ScreenUpdating = True
End Sub[/COLOR]
ROGER2327
_
__________________
Bonjour nolich. Je suis un peu lent... ...et Item(1) est plus court.
 
Dernière édition:

nolich

XLDnaute Occasionnel
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Re Magic_Doctor, bonsoir ROGER2327 :)

Envoyé par ROGER2327
Bonjour nolich. Je suis un peu lent... ...et Item(1) est plus court.
Pas de souci de mon côté, d'autant que les deux permettent d'arriver au même résultat :)

@+
 

youky(BJ)

XLDnaute Barbatruc
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Bonjour le fil,
Petit complément
Dim selection As String
"selection" est un mot réservé donc de préférence utiliser un autre nom
A+
 

nolich

XLDnaute Occasionnel
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Re, bonsoir youky(BJ) :)

Comme je n'ai pas accès au fichier de notre ami "forumeur", je n'ai pu le voir, mais tu fais bien de mettre en évidence ce fait.

@+
 

Brigitte

XLDnaute Barbatruc
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Bonsoir,

Moi je viens juste saluer tout le monde et particulièrement notre ami Nolich (lio) qui a une capacité d'adaptation exemplaire : faire de l'excel sans excel, c'est énorme !!!

Bravo et ca prouve aussi ta grande gentillesse : essayer de trouver des solutions alors même que tu n'as pas grands moyens.

Merci à toi.
 

nolich

XLDnaute Occasionnel
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Re, bonsoir Brigitte :)

Envoyé par Brigitte
Moi je viens juste saluer tout le monde et particulièrement notre ami Nolich (lio) qui a une capacité d'adaptation exemplaire : faire de l'excel sans excel, c'est énorme !!!

Bravo et ca prouve aussi ta grande gentillesse : essayer de trouver des solutions alors même que tu n'as pas grands moyens.
Tu es trop gentille mais je suis touché. Heureusement que j'avais déjà rencontré un cas similaire :p

Bonne soirée à tous
Bises à toi, Brigitte

@+
 

Magic_Doctor

XLDnaute Barbatruc
Re : Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

Merci Nolich & Roger.

Maintenant ça marche parfaitement bien (+ selection écrit en espagnol...)

Bonne soirée à tous
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas