RESOLU: Rendre obligatoire plusieurs cellules avant enregistrement

[targa]

Bonjour le Forum!!

J'ai trouvé un code pour obliger les utilisateurs à remplirs certaines cases avant enregistrement.

je l'ai adapté à mon besoin, cela fonctionne pour une cellule, mais le problème est que j'ai deux cellules qui ont la même fonction, et l'on peut rentrer une données soit dans l'une, soit dans l'autre.

Comment dois-je introduire dans mon code le nom de la deuxième cellule à contrôler?
J'ai essayé le code ci-dessous, mais cela ne fonctionne pas
Qui a-t'il de faux? le OR?

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

' Controle si la cellule délai de réalisation est remplie
    If Range("Feuil1!B4").Value or ("Feuil1!D4").Value = "" Then
    MsgBox "Remplir le(s) champ(s) de Durée de réalisation!"
    Cancel = True
    End If

End Sub

Merci d'avance pour votre aide!

 

[Victor21]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonjour targa.

Essayez :

Private Sub Workbook_Beforeclose(Cancel As Boolean)
' Controle si la cellule  est remplie
    If Range("Feuil1!B4").Value = "" Or Range("Feuil1!d4").Value = "" Then
    MsgBox "Remplir obligatoirement la cellule B4 ou D4, merci"
    Cancel = True
    End If
End Sub

 

[st007]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonjour, Tagra, Victor

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

' Controle si la cellule  est remplie
    If Range("Feuil1!B4") = "" And Range("Feuil1!D4") = "" Then
    MsgBox "Remplir obligatoirement la cellule B4 ou D4, merci"
    Cancel = True
    End If

End Sub

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonjour Victor21,

Aaah oui d'accord!! je vois ce qui me manquait!!
Merci beaucoup Victor21!

Mais maintenant, je me suis fait prendre à mon propre jeu, lorsque je dois enregistrer mon fichier en tant que modèle .xltm, je n'arrive plus à l'enregistrer, car il me pose biensur l'alarme!!
Y aurait il une solution pour que j'arrive à enregistrer au format .xltm?

Merciii

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonjour st007,

Un grand merci à toi aussi pour ta solution!!

Mais saurais-tu répondre à mon second problème?
Arrive-t'on à accéder au code VBA de la feuille même si le fichier n'est pas ouvert dans Excel?

merci pour votre aide !
Cordialement

 

[st007]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

J'en doutes fort, et victor en pense quoi ...

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bon, je suis coincé alors...

Mais pour aller au fond de mon problème initial, je me suis aperçu aussi en testant vos deux codes, si une des deux cellules est vide, il ne me permet pas non plus d'enregistrer.
Ce qui devrait être le contraire puisque la condition est remplie: permettre l'enregistrement si une des deux cellules est remplie.

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

J'ai une proposition à faire!!
Peux-t'on rajouter dans le code, que si on enregistre au format .xltm, il surpasse la règle?
Et comment corriger le code pour permettre l'enregistrement si une des deux cellules sont remplies?

Merci pour votre aide précieuse les gars!

 

[Victor21]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Re, bonjourst007.

Ouvrez votre fichier sans activer les macros, et enregistrez-le comme modèle sans avoir renseigné les cellules en question.

 

[st007]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

ah, il me semble fonctionné avec ce fichier pourtant

 

[Staple1600]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonsoir à tous

Une variante pour le fun et pour le plaisir de croiser mes petits camarades de jeu

Private Sub Workbook_Beforeclose(Cancel As Boolean)
' Controle si la cellule  est remplie
With Feuil1
    If Application.CountA(.[B4], .[D4]) = 0 Then
        MsgBox "Remplir obligatoirement la cellule B4 ou D4, merci"
        Cancel = True
    End If
End With
End Sub

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

ah, il me semble fonctionné avec ce fichier pourtant

oui en effet, avec le fichier que j'avais mis en pièce jointe on y arrivait car il devait avoir un bug, je m'en suis aperçu en le testant, car on aurait jamais dû pouvoir enregistrer, sinon à quoi bon mettre ce code
Alors je l'ai refait et cela-lui là est bon, je n'arrive pas à enregistrer si une cellule est vide.

Mais c'est parfois bizarre, si je clique sur la disquette pour enregistrer ou enregistrer sous j'ai pas d'alarme, mais si j'appuie sur la croix pour fermer le programme j'ai l'alarme !!!????
Mystère, mystère de Excel....

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Bonsoir Staple1600,
Merci pour ta réponse, avec ton code cela fonctionne bien si je remplie qu'une cellule sur 2, c'est parfais! Merciii

Par-contre j'ai le même soucis qu'avec l'autre fichier mis à dispo, si je clique sur la disquette pour enregistrer ou enregistrer sous j'ai pas d'alarme, mais si j'appuie sur la croix pour fermer le programme j'ai l'alarme !!!????

ça doit être un bug Excel.

Merci

 

[Staple1600]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Re

targa

Private Sub Workbook_Beforeclose

Before veut dire avant
Close veut dire Fermer
WorkBook veut dire Classeur

Je te laisse deviner alors quand s'affiche le MsgBox ...

Et même genre de devinette avec cet procédure
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


End Sub

Tu vois où je veux en venir ?

 

[targa]

Re : Rendre obligatoire plusieurs cellules avant enregistrement

Hello Victor,

Merci pour ta solution

En effet, si je n'active pas les macros au lancement cela fonctionne. lol

J'avais mis l'option d'activer les macros automatiquement pour mes fichiers, et comme on est tellement pris dans son affaire, que l'on oublie de les désactiver pour certaines solutions!!

Affaire résolue !! Merciiii c'est cool.