Discussion :

[Rixou]

Bonjour,

j'ai un formulaire a faire sous excel et je peine un peu... Je ne sais pas vraiment si je suis au bon endroit, mais s'il vous plait aidez moi.
Je dois au final avoir un fichier excel, qui servira de model.
Avec des zones de saisie obligatoires.

Ce que j'aimerais faire c'est d'une, bloquer l'enregistrement sur le model (ca j'y suis a moitié arrivé ) afin de ne pas écraser l'original.
Et empecher tout enregistrement (même sous) tant que les zones demandés ne sont pas renseignés.
C'est la que ca bloque, je ne vois pas du tout comment proceder (mais je peux vous assurer que j'ai cherché) et je suis débutant en programation. ( ca se trouve la création d'un module n'est même pas nécessaire)

merci d'avance

[Rixou]

Ca peut dépendre du format de fichier?
Peut être que je me suis mal exprimé

Je reformule ma question :

Comment bloquer l'enregistrement total d'un fichier excel, tant que celui ci n'est pas completé?

(la sortie du programme restant active biensur)

[Rixou]

Bon je cherche toujours...

J'ai créer une macro qui s'execute correctement à premiere vu, mais j'ai des doute quand à certaine donnée que j'ai inseré ( save and save as)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Static Sub name()
 
If Range("K38") = Empty Then
    Save = False
    SaveAs = False
    msg = "erreur"
    MsgBox msg
 
End If
End Sub

Maintenant j'aimerai executer cette maccro automatiquement quand la personne tente d'enregistrer, j'ai débuter quelque chose sur "thisworkbook", mais je ne sais même pas si c'est bien la qu'il faut inserer la commande.

Si quelqu'un peut m'aider... merci

de toute maniere je continu à chercher et informerai de l'évolution

[Invité]

C'est pas mal du tout, il faut bien mettre ton code dans "ThisWorkbook" !

Dans l'évènement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub

Gros problème c'est que ça va t'empècher toi également d'enregistrer les modifications si tu n'as pas remplie les cellules

Sinon pour tester si certaines cellules sont bien remplies, voilà ce que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set TabVal = Application.ActiveWorkbook.Sheets("Params").Range("ValObl")
  ' Vérification de la saisie
  For Each Cel In TabVal  ' Pour chaque cellule obligatoire
    If Sheets("NomFeuilleATester").Range(Cel).Value = 0 Then
      ' Si la valeur de la cellule est égale à VIDE, on affiche un message d'erreur
      Sheets("NomFeuilleATester").Range(Cel).Select
      Msgbox "Cette cellule n'est pas remplie !"
      Cancel = True
      ' On sort de la procédure
      Exit For
    End If
  Next

J'ai également une feuille "Params" cachée, dans laquelle J'ai saisie les unes en dessous des autres toutes les références obligatoires.
Cette zone de cellules obligatoires est nommée "ValObl"

Voilà

[Rixou]

Ahhh je te remerci
Je viens de tester ton fichier et effectivement c'est exactement ce que je veux

Mais pour le moment je n'arrive pas à le faire fonctionner dans le miens, il m'affiche un message d'erreur ("erreur d'execution 1004....") et le debog me surligne ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set TabVal = Application.ActiveWorkbook.Sheets("Params").Range("ValObl")

Je vais (essayer) voir pkoi.

Encore merci

[Rixou]

Bon je me suis permi de copier/coller ma feuille a la place de celle des zones obligatoire dans ton fichier.

Le systeme marche, mis a part le fait qu'il m'affiche toujours une erreur, mais la procedure ne s'arrete pas pour autant....

Je commence à voire la lumiere au bout du tunnel
Je ne vois pas, par contre, à quoi correspond la commande "Sheets(1)" ...
Si je me permet à penser, je dirai que c'est le moyen de définir la feuille, mais vraiment pas sur :/