Utiliser la commande "OnDoubleClick" sur quelques cellules

Bonjour,

J'utilise la commande "OnDoubleClick" comme suit pour afficher un message box :

Code:

---

1 2 3 4

Sub auto_open() Sheets("En cours").OnDoubleClick = "AppelNumeroSemaine" end sub

---

la procédure "AppelNumeroSemaine" affiche des données en fonction de la position du double-clic (dans mon cas entre les colonnes 11 et 53). Je souhaiterais pouvoir, lorsque je double-clic hors de cet intervalle, avoir accès en modification direct dans la cellule mais je n'ai pas la main.
Auriez-vous une solution à ce problème ?

Je vous remercie par avance
Ma config :Windows XP & Excel 2003

MichaSarah

Peut etre en utilisant les événements des feuilles de calcul
dans le code de ta feuille

Code:

---

1 2 3

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

---

Tu utilise target pour tester la zone du double clique

Après je n'ai pas compris ta phrase, mais pour savoir si on clique hors d'une zone

Code:

---

if intersect(target, range("A1:D5") is nothing then

---

J'espère que cela te conviendra.
Bonne soirée

Salut MichaSarah et le forum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Intersect(Target, Range(Cells(1, 11), Cells(65536, 53))) Is Nothing) Then 'si ça concerne l'interval des colonnes 11 à 53 (incluses), alors Cancel = True 'annule le passage en mode édition Call AppelNumeroSemaine 'appelle la macro Exit Sub 'on sort End If 'traitement hors des colonne 11 à 53 End Sub

---

Ce qu'a dit Krovax, en plus explicite (à mettre dans le module lié à la feuille "En cours" - Clic-droit sur nom de l'onglet>>Visualiser le code).
A+

Bonjour Krovax & Gorfael,
Encore merci pour votre aide celà fonctionne. Pourriez vous m'éclairer à nouveau de vos lumières pour compléter la procédure. Je souhaiterais en plus du déclenchement du double-clic dans l'intervalle (colonnes 11 à 53 ) pouvoir l'utiliser par exemple sur la colonne 1 et la 60. Comment puis-je intégrer ces 2 paramètres ?
Pour info ci-dessous la procédure "AppelNumeroSemaine"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub AppelNumeroSemaine() Sheets("En cours").Select libesoins = ActiveCell.Row 'range cobesoins = ActiveCell.Column   If libesoins < 3 Then Exit Sub   If (cobesoins > 11 And cobesoins < 53) And Cells(libesoins, cobesoins) = "Date1" And Cells(libesoins, 8) = "" Then Call Numero_de_Semaine1 ElseIf cobesoins = 1 And Cells(libesoins, 8) = "" Then Call Numero_de_Semaine1 ElseIf (cobesoins > 11 And cobesoins < 53) And Cells(libesoins, cobesoins) = "Date1" And Cells(libesoins, 8) <> "" Then Call Numero_de_Semaine2 ElseIf cobesoins = 1 And Cells(libesoins, 8) <> "" Then Call Numero_de_Semaine2 End If   End Sub

---

Numero_de_Semaine1 & Numero_de_Semaine2 affichent une msgbox avec des dates

merci
salutations

MichaSarah

Salut MichaSarah et le forum
Pas sûr de bien comprendre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If Not (Intersect(Target, Range(Cells(1, 11), Cells(65536, 53))) Is Nothing) Then 'si ça concerne l'interval des colonnes 11 à 53 (incluses), alors Cancel = True 'annule le passage en mode édition 'le traitement des colonnes 11 à 53 End If IfNot (Intersect(Target, Range(Cells(1, 1), Cells(65536, 1))) IsNothing) Then Cancel = True 'traitement de la colonne 1 EndIf IfNot (Intersect(Target, Range(Cells(1, 60), Cells(65536, 60))) IsNothing) Then Cancel = True 'traitement de la colonne 60 EndIf

---

A+

Bonjour Gorfael,

Super, c'est ce que je cherchais.

encore merci

Bonne fin de WE

MichaSarah