BeforeDoubleClick

Bonjour,

Je me permets de vous faire part de mon impuissance face à cette fonctionnalité il m'indique une erreur 1004.

Impossible de trouver la cause de ce problème

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

temp = Array("X", "")

If Not Application.Intersect(Target, Application.Union(Range("R12:R19"), Range("S12:S19"),Range("R30:R40"),Range("S30:S40"),Range("R54:R57"),Range("S54:S57"),Range("R70:R71"),Range("S70:S71"),Range("R79:R82"),Range("S79:S82"),Range("R92:R99"),Range("S92:S99"),Range("R109:R112"),Range("S109:S112"),Range("R123:R124"),Range("S123:S124"),Range("R129"),Range("S129"),Range("R133"),Range("S133"),Range("R158:R171"),Range("S158:171"),Range("R184:R204"),Range("S184:S204"),Range("R216:R226"),Range("S216:S226"))) Is Nothing Then

With Target

p = Application.Match(Target, temp, 0)

If Not IsError(p) Then

If p = UBound(temp) + 1 Then p = 0

Else

p = 0

End If

Target = temp(p)

Cancel = True

End With

End If

End Sub

Si quelqu'un pouvait m'indiquer le problème et une façon de pouvoir y remédier cela serait vraiment sympa.

Merci par avance

Bonjour,

peut-être le R manquant ?

If Not Application.Intersect(Target, Application.Union(Range("R12:R19"), Range("S12:S19"),Range("R30:R40"),Range("S30:S40"),Range("R54:R57"),Range("S54:S57"),Range("R70:R71"),Range("S70:S71"),Range("R79:R82"),Range("S79:S82"),Range("R92:R99"),Range("S92:S99"),Range("R109:R112"),Range("S109:S112"),Range("R123:R124"),Range("S123:S124"),Range("R129"),Range("S129"),Range("R133"),Range("S133"),Range("R158:R171"),Range("S158:R171"),Range("R184:R204"),Range("S184:S204"),Range("R216:R226"),Range("S216:S226"))) Is Nothing Then

Si l'erreur est bien sur cette ligne

A+

Oh que je me sens honteux.....

Cela fait 2 jours que je suis dessus... Désolé pour ma négligence et vraiment merci beaucoup !!!

Encore merci pour ta rapidité et ta sympathie

Stan,

Bonsoir,

juste je passe par là...

Si votre UNION reste inchangé, pourquoi ne pas lui donner un nom sous Excel et ainsi en faire référence dans votre code :

Nom de votre UNION sous Excel : Plage

Votre code VBA :

If Not Application.Intersect(Target, [Plage]) Is Nothing Then

Enfin écrit comme cela je pense que cela marche et c'est plus clair, non ?

Il est également possible sur votre post de la passer comme résolu en cliquant sur l'un des "petit V" en haut à droite des messages

@ bientôt

LouReeD