Bonjour,
N'arrivant pas à trouver de réponse à ma question sur les divers forums que je consulte régulièrement, je viens solliciter votre aide en direct.
Voici mon problème :
J'ai des utilisateurs qui créent involontairement des groupes de travail par de mauvaises manipulations (Ctrl ou Shift associé au Clic de souris).
Dans le cas de groupe de travail, le problème c'est que quand ils saisissent ensuite des valeurs sur la feuille visible, les valeurs sont inscrites sur l'ensemble des feuilles le composant et c'est justement ce que je voudrais empêcher.
Question n°1 : Existe-t-il un moyen pour éviter qu'un utilisateur crée un groupe de travail ?
j'ai mis en place la vérification suivante, qui fonctionne très bien dans le cas ou l'utilisateur change de cellule active après avoir créé le groupe de travail et avant de saisir une valeur dans cette cellule, mais qui ne fonctionne pas s'il ne change pas de cellule active car l'évènement ne se produit pas.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
's'assurer de n'avoir qu'une feuille de sélectionnée
Sh.Select
End Sub
Question n°2 : Existe-t-il un moyen palier à ce problème ?
D'avance, un grand MERCI pour votre aide.
N'arrivant pas à trouver de réponse à ma question sur les divers forums que je consulte régulièrement, je viens solliciter votre aide en direct.
Voici mon problème :
J'ai des utilisateurs qui créent involontairement des groupes de travail par de mauvaises manipulations (Ctrl ou Shift associé au Clic de souris).
Dans le cas de groupe de travail, le problème c'est que quand ils saisissent ensuite des valeurs sur la feuille visible, les valeurs sont inscrites sur l'ensemble des feuilles le composant et c'est justement ce que je voudrais empêcher.
Question n°1 : Existe-t-il un moyen pour éviter qu'un utilisateur crée un groupe de travail ?
j'ai mis en place la vérification suivante, qui fonctionne très bien dans le cas ou l'utilisateur change de cellule active après avoir créé le groupe de travail et avant de saisir une valeur dans cette cellule, mais qui ne fonctionne pas s'il ne change pas de cellule active car l'évènement ne se produit pas.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
's'assurer de n'avoir qu'une feuille de sélectionnée
Sh.Select
End Sub
Question n°2 : Existe-t-il un moyen palier à ce problème ?
D'avance, un grand MERCI pour votre aide.