interdire enregistrement et /ou impression

[MARI74]

B) Bonjour a tout le monde

Meteo couvert 28° peteite pluie


Alors je souhaite un systeme pour interdire l'enregistrement et/ou
l'impression si une donné est manquante

Si possible une formule typée EXCEL en VBA je suis presque nul

Si joint mon fichier

Je vais manger a +


Merci d'avance

 

[PascalXLD]

Bonjour

Excuse mais cela ne sera possible que par macro

exemple d'impression et de sauvegarde impossible si cellule A1 de la feuille 1 vide

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If worksheets('Feuil1').Range('A1') = '' Then
MsgBox 'Il manque la donnée dans la cellule A1 de la feuille 1'
Cancel = True
End If


End Sub

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

If worksheets('Feuil1').Range('A1') = '' Then
MsgBox 'Il manque la donnée dans la cellule A1 de la feuille 1'
Cancel = True
End If

End Sub


Bon courage

 

[MARIE74]

B) salut PASCAL76 et tout le forum


Bon j'ai presque compris mais voila:

Explication simple car mon fichier fait 80ko

Ligne A22 verrouiller cellule D22 E22 E23 F22 F23 G22 G23
Ainsi de suite ligne A24...A26 jusqu'a A50

Donc en celulle A22 je saisie un code machine suivant ce code certaine des celulles sont a completer.

ta macro pour une cellule OK mais pour toutes les autres comment je fait

Peux tu me faire un exemple pour ma ligne A22


J'essai encore de joindre mon fichier


!!! je croix que j'ai trop manger!!!!

Merci d'avance

 

[PascalXLD]

Bon le fichier n'est pas pssé mais le principe est le même

Tu regardes si ta condition est remplie si non alors cancel=true

Bon courage et vide peut-être des données de ton classeur

 

[MARIE74]

Resalut PASCAL76


Bon j'essaie encore d'envoyer ce fichier

 

[MARIE74]

B) resalut PASCAL76


Sans commentaires ça arrive

Je reessaye Bon SANG

 

[MARIE74]

:evil: Resalut PASCAL



que ce passe t il

J reessaye
C'est un fichier ZIPE 28Ko

 

[PascalXLD]

fichier zip sans accent ni caractères spéciaux ni espace ni rien :woohoo:

 

[MARIE74]

B) resalut PASCAL76


Je reessaye une derniere fois

apres j'essaye ton exemple

 

[MARIE74]

resalut a tous

PASCAL76

Bon avec un peux labeur j'ai testé ton excemple et cela marche bien

Mais comment faut il modifier la formule pour l'étendre aux autres cellule de mon exemple


Merci

N'oublie pas en VBA je suis presque nul


Merci d'avance

j'ai mal a la tete 'vingt diou' sick:





Pour mon fichier je sais pas pourquoi le debogueur s'ouvre et bloque tout :

 

[PascalXLD]

Re

Bah tout dépend des conditions que tu dois mettre donc c'est difficile à dire comme cela

Lemieux ce serait que tu envoies le fichier

 

[_Thierry]

Bonsoir Pascal, Marie, le Forum

Rapidos, le plus simple est de nommer les cellules à contrôller (Touche 'CTRL' pour cellules non-adjacentes...) par exemple 'Toto'

Et ensuite ce genre de Code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Verrou As Boolean
Dim Cell As Range

For Each Cell In Range('Toto')
If Cell = '' Then Verrou = True
Next

If Verrou = True Then
MsgBox 'Il manque des données'
End If

Cancel = Verrou
End Sub

Bonne Soirée
@+Thierry

 

[MARIE74]

B) SALUT thierry et pascal76


Merci ça marche vous etes des supers chefs



Grosse bises