Passage de Feuil à Feuil "cellule pas remplie"

[PetitClaude]

Bonsoir le forum

J'ai plusieurs Feuil que je remplis au fur à mesure , je voudrait que quand je clique sur l'onglet d'une Feuil .
Si le cellule A1 n'est pas remplie ,
quelle me dise 'Feuil pas complète' et impossibble d'aller sur cette feuil.

Merci de votre aide

Petitclaude

 

[andré]

Salut PetitClaude,

J'ai quelque peu attendu avant de te répondre, car je croyais avoir mal compris la question.

Comme il n'y a pas encore de réponse, ...

Ne voudrais-tu pas réaliser la quadratrure du cercle ?
En effet, si tu veux empêcher l'ouverture d'une feuille tant que la cellule A1 est vide, comment vas-tu t'y prendre pour écrire quelque chose en A1 afin de pouvoir ouvrir cette feuille ?

Ândré.

 

[@Christophe@]

bonjour,

Voici une possibilité:

Code à mettre dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Range('A1').Value = '' Then MsgBox 'Feuil pas complète': Sheets(1).Select
End Sub

bonne chance

 

[@Christophe@]

Bonjour André,

Dsl, je t'avais pas vu.

J'ai pensé la même chose que toi, et je me suis dis qu'il voulait peux être ajouter le code dans un fichier non fini qu'il distribue. Maintenant, je sais pas, mais il peux toujours désactiver les macros, s'il veux acceder à la feuille.

Il est vrai qu'un peux plus de clarté serait intéressant.

Bon week end

 

[andré]

Salut @Christophe@ et jmps,

La question aurait donc du être :

Comment empêcher la sélection d'une autre feuille d'un classeur tant que la cellule A1 de la feuille active est vide.

Je reste dubitatif !

Attendons la précision de PetitClaude !

Ândré.

 

[PetitClaude]

Bonjour André, Christophe, Jmps et le forum

L'ouverture de ma feuil se feras avec l'aide d'un USF

qui rempliras en priorité la cellule A1

Mon code

Private Sub Worksheet_Activate()
If Range('A1').Value = '' Then
MsgBox 'Feuil pas complète.'
Sheets('Départ').Select
Exit Sub
Sheets('Feuil1').Select
End If
End Sub


Merci beaucoup de votre aide

PetitClaude