Discussion :

[CLAUDE19]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

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

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

[parmi]

Au tout début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sh.Name = "Menu" Then exit sub

[CLAUDE19]

Bonjour

Et merci beaucoup, c'est exactement cela.


Cordialement