Comment s'assurer qu'on a qu'une feuille de sélectionnée ?

 
Pour un classeur de 10 feuilles vides, sélection manuelle des feuilles 3 à 7
=> 5 feuilles sélectionnées (groupe de travail).

Worksheets("Feuil1").Select : sélection d'une feuille en dehors de la sélection
=> cette feuille est sélectionnée (feuille 1), et les autres désélectionnées.

Worksheets("Feuil5").Select : sélection d'une feuille au sein de la sélection
=> cette feuille est sélectionnée (feuille 5), et les autres désélectionnées.

Donc dans les 2 cas, on est sur une seule feuille, et la feuille sélectionnée
est la feuille active.
 

Merci Albkan pour ton aide, mais je pense qu'on ne se comprend pas.

Signe qu'en plus de n'être pas doué pour la programmation, je ne le suis pas non plus pour me faire comprendre :-)

Voici les 2 procédures évènementielles que j'utilise et qui me vont très bien tant que l'utilisateur ne sélectionne pas 2 feuilles avant de saisir une valeur.

Si une fois les 2 feuilles sélectionnées, il modifie la cellule active avant de saisir une valeur, la commande "SH.select" dans Workbook_SheetSelectionChange désélectionne l'ensemble des feuilles sélectionnées pour n'en garder qu'une et la saisie ne s'effectue alors par la suite que sur une feuille sélectionnée.


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'si le classeur est Protégé,
If ThisWorkbook.ProtectStructure = True Then
's'assurer de n'avoir qu'une feuille de sélectionnée
Set Sh = ActiveSheet
Sh.Select
'Vide le Presse-papier
Application.CutCopyMode = False 'Clear clipboard
End If

End Sub



Par contre : Si l'utilisateur se positionne directement sur la cellule qu'il souhaite modifier
puis qu'il sélectionne x feuilles supplémentaires, et qu'ensuite il saisisse une valeur dans la cellule active. La saisie se reporte sur chacune des autres feuilles sélectionnées sans que j'arrive à empêcher l'évènement de se produire.

Peut-être que je n'utilise pas le bon évènement pour insérer mon code, ou pas le bon code.
Quand je trace le code, une fois la procédure liée à l'évènement Workbook_SheetChange exécuté, l'évènement se reproduit autant de fois qu'il y avait de feuilles sélectionnées. Sh changeant bien sûr de nom à chaque fois.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim MoisdeDépart As Date

'Tester si le Classeur est Protégé
If ThisWorkbook.ProtectStructure = True Then

' 's'assurer de n'avoir qu'une feuille de sélectionnée
' Set Sh = ActiveSheet
' Sh.Select

'Vide le Presse-papier
Application.CutCopyMode = False

End If

'test si le changement est intervenu sur une des 13 premières feuilles du classeur
'dans la colonne 2 (Menus) ou la colonne 153 (Catégories)
If Target.Column = 2 Or Target.Column = 153 And Sh.Index < 14 Then

'copier la nouvelle valeur de la cellule modifiée
Target.Copy

'Boucler sur tous les mois suivant
For I = Sh.Index To 13
'Pour Inscrire la valeur sur les mois suivants
Worksheets(I).Range(Target.Address).PasteSpecial Paste:=xlPasteValues
Next I

'vider le contenu du presse papier
Application.CutCopyMode = False

End If

End Sub

Bonjour Bartez_Cool,

Si tu veux empêcher la sélection de plusieurs feuilles, essaye ce
qui est dans ce message #5228061 de Frédéric Sigonneau.

Je rappelle que plusieurs feuilles = un groupe de travail.
Note bien que c'est à faire dans ThisWorkbook.

J'espère que ça marchera. À te lire.  :)

Bonsoir Albkan,

hé bien non, ça ne fonctionne pas. c'est ce que j'explique plus haut à savoir que si on ne change pas de cellule une fois qu'on a sélectionnées plusieurs feuilles, l’événement Workbook_SheetSelectionChange ne se produit pas car il ne se produit que lorsqu'on change de cellule.

Je pense que ce ne doit pas être possible.

Merci quand même pour ton aide et ton temps passé sur mon problème et je te souhaite de passer de bonnes fêtes de fin d'année.

@+