Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Empêcher le changement de feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gvives
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gvives

XLDnaute Occasionnel
Bonjour à tous,

Une petite question...

Comment peux t'on bloquer le changement d'onglet en VBA tant qu'une cellule n'est pas remplie sachant que j'ai des liens hypertextes vers d'autres feuilles sur cette feuille.

Merci d'avance pour votre aide...
 
Trier par date Trier par votes
Re : Empêcher le changement de feuille

Bonsoir gvives,

Voici un fichier exemple de ce qu'il est possible de faire.

Sur Feuil3, la cellule A1 est actuellement vide et le lien hypertexte en cellule D1 est d&sactivé. Si tu écris "oui" en A1, le lien s'active et un clic dessus affiche Feuil1.

Ceci reste bien entendu à adapter à ton fichier, mais je pense que tu as là les éléments nécessaires pour y parvenir.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Empêcher le changement de feuille

Bonsoir,
Au plus simple
Dans thisWorkbook
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "feuil1" And Feuil1.Range("A1") = "" Then
Feuil1.Activate
End If
End Sub

edit : bonsoir papou 🙂 et bonne année

A+
kjin
 
Vote positif 0 Vote négatif
Re : Empêcher le changement de feuille

RE :

Oups, désolé, en me relisant je viens de m'apercevoir que j'ai répondu à côté de la plaque.

Voici donc le fichier modifié. Tant que Feuil3.A1 est différent de "oui", le clic sur l'onglet d'une autre feuille est annulé.

Bien qu'ils ne devraient plus être utiles dans ce cas, j'ai laissé l'action sur les hyperliens.

Cordialement.


Edit :

Bonsoir kjin, tous mes voeux également, et les plus sincères.
Bien ta solution, moi je n'ai pas pensé à utiliser le Workbook_SheetActivate du module ThisWorkbook. Ca évite de répéter le code sur chacune des feuilles. Et pourtant, je connais bien cette procédure.

Bonsoir David84, meilleurs voeux pendant qu'on y est.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Empêcher le changement de feuille

Bonsoir,
à placer dans le module de la feuille :
Code: 
Dim NomFeuille As String

Private Sub Worksheet_Activate()
NomFeuille = ActiveSheet.Name
End Sub

Private Sub Worksheet_Deactivate()
If Range("A1").Value = vbNullString Then
    MsgBox "cellule A1 vide !"
    Worksheets(NomFeuille).Activate
End If
End Sub
A+
Edit : bonsoir papou-net
ReEdit : désolé kjin, je ne t'avais pas vu !
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
901
NONO14
N
  • Question Question
XL 2016 ajouter, une nouvelle feuille avec le contenu d'une cellule
Réponses
7
Affichages
338
job75
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
353
desmonts
D
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
248
Didierpasdoué
D
D
  • Résolu(e)
Microsoft 365 Récupérer la data de plusieurs feuille
Réponses
10
Affichages
260
job75
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
326
PRy
P
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
520
TooFatBoy
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
545
Steph733
S
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
692
jeff1494
N
  • Question Question
Microsoft 365 recopie de valeur cellule avec decalage
Réponses
14
Affichages
206
job75
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
2 K
Alamyr
A
Z
  • Question Question
XL 2016 Automatisation transfert données dans un autre fichier
Réponses
1
Affichages
247
C'est papy Mougeot !
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
121
Eric 888
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
693
MANU64360
M
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
575
Gégé-45550
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
433
gbinforme
G
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
386
mapomme
F
  • Résolu(e)
XL 2019 VBA : revenir à la feuille précédente ActiveSheet.Previous.Select
Réponses
12
Affichages
759
Fabien.Romo
F
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
653
sylvanu
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
382
dgil37
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…