modifier double click

Bonjour à tous,

je reviens sur ce forum pour le probleme suivant.

Dans un classeur, j'ai 2 feuilles nommées "Classe 1" et "Classe 2" une 3ieme feuille nommée "Fiche prepa" et une 4ieme nommée "Menu".

Les lignes ci-dessous me permettent de rapatrier des lignes des deux feuilles "Classe 1" et "Classe 2" vers la feuille "Fiche prepa".

Code:

---

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

Private sub Worbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As RAnge, Cancel As Boolean) Dim NewLig As Long If sh.Name <>"Fiche Prepa" Then Application.ScreenUpdating = False Cancel = True If Not Intersect(Target.EntireRow, h.UsedRange) Is Nothing Then With Sheets ("Fiche Prepa")   NewLig = Range ("A6").CurrentRegion.Rows.Count + .Range("A6") .CurrentRegion.Row If NewLig < 7 Then NewLig = 7 End With With Intersect (Target.EntireRow, sh.UsedRange) .Copy Sheets ("Fiche Prepa").Range ("A" & NewLig) .Font.Color = -1149280 End With End If End If End Sub

---

Placées sur ThisWoorkbook" ce double click fonctionne sur l'ensemble des feuilles.

Je souhaiterais l'interdire sur la feuille "Menu"

Pouvez vous m'aider à résoudre ce probleme.
D'avance je vous remercie

Cordialement

Bonjour,

modifiez la condition de la ligne n° … Ah zut, y a pas les numéros de lignes !

:tagcode: comme indiqué dans les règles du forum ! …

Au tout début

Code:

---

If Sh.Name = "Menu" Then exit sub

---

Bonjour

Et merci beaucoup, c'est exactement cela.
:D

Cordialement