Problème avec Worksheet_BeforeDoubleClick et cellules fusionnées

nolich

XLDnaute Occasionnel

• 5 Juillet 2009

• #2

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.

@+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 5 Juillet 2009

• #3

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: 5 Juillet 2009

Vote positif 0 Vote négatif

nolich

XLDnaute Occasionnel

• 5 Juillet 2009

• #4

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.

Cliquez pour agrandir...

Pas de souci de mon côté, d'autant que les deux permettent d'arriver au même résultat

@+

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Juillet 2009

• #5

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+

 

Vote positif 0 Vote négatif

nolich

XLDnaute Occasionnel

• 5 Juillet 2009

• #6

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.

@+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 5 Juillet 2009

• #7

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.

 

Vote positif 0 Vote négatif

nolich

XLDnaute Occasionnel

• 5 Juillet 2009

• #8

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.

Cliquez pour agrandir...

Tu es trop gentille mais je suis touché. Heureusement que j'avais déjà rencontré un cas similaire

Bonne soirée à tous
Bises à toi, Brigitte

@+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 5 Juillet 2009

• #9

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

 

Pièces jointes

• Exemple Double Clic (2).xls

  45 KB · Affichages: 75

Vote positif 0 Vote négatif