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

Sauvegarde si cellules remplies

  • Initiateur de la discussion Initiateur de la discussion la mouette
  • 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 !

L

la mouette

Guest
Bonjour Forum 🙂

Voilà mon p'tit problème, après plusieurs tentatives infructueuses je cherche à faire en sorte que mon fichier excel ne puisse être sauvegardable que si toutes les cellules que j'ai choisies sont remplie.

J'ai tésté plusieurs façons de le faire dont celle-ci :

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If IsEmpty(Range("B10")) And IsEmpty(Range("M16")) And IsEmpty(Range("O22")) And IsEmpty(Range("027"))  Then
Cancel = True
MsgBox "SAUVEGARDE IMPOSSIBLE ! Toutes les cellules doivent être renseignées."
End If

End Sub

Le problème c'est qu'il suffit juste de remplir une seule de ces cellules pour pouvoir sauvegarder (et pas toutes comme je le voudrais🙁... ).

Merci de m'apporter vos lumières 😉
 
Re : Sauvegarde si cellules remplies

Youhou, c'est encore moi. 😱

J'avais oublié un léger détail (légèrement comique) qui m'embêttait un peu...
Une fois le code mis en place, comment je fait pour enregistrer ma feuille vierge de base ?

Car les cellules sont à l'origine vides quand les utilisateurs ouvrent le fichier.

Y'a peut être un moyen de contourner le code pour que je puisse enregistrer le fichier avec les cellules vides (juste pour la réalisation de la feuille de base quoi).

Merci.
 
Re : Sauvegarde si cellules remplies

Re,

Soit tu te fais un petit bout de code pour enregistrer le fichier :
Sub Administrateur()
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True
End Sub

Soit tu mets le code sur Workbook_BeforeClose plutot que Workbook_BeforeSave.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
Réponses
1
Affichages
582
M
  • Question Question
Réponses
0
Affichages
1 K
Mirguy23
M
F
Réponses
4
Affichages
4 K
F
C
Réponses
0
Affichages
626
cdlmars5
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…