Protection et Confirmation

Re : Protection et Confirmation

Voilà ton classeur avec quelques modifications

1) optimisation du code
Exemple : est devenu
Etc ...

2) regroupement de certaines procedures dans le module "AGlobal"

3) Chaque module est identifié par un nom explicit

Le fichier est ici
http://cjoint.com/?evu1WBI1xU

Je vais de ce pas me faire ma petite soiré TV

A+

Re : Protection et Confirmation

Bonsoir,

Sub Afficher()
Dim P As Integer
P = Range("b65536").End(xlUp).Row
Sheets("PMO").Rows("2:" & P).Hidden = False
End Sub

Ce code ne marche pas, et il n'y a pas la Protection et Confirmation lors de la saisie des avis !

WD

Re : Protection et Confirmation

Salut WDandCO,

Sub Afficher()
Dim P As Integer
P = Range("b65536").End(xlUp).Row
Sheets("PMO").Rows("2:" & P).Hidden = False
End Sub

Ce code ne marche pas, et il n'y a pas la Protection et Confirmation lors de la saisie des avis !

Cliquez pour agrandir...

Effectivement le ce code ne peut pas fontionner puisqu'il n'y a pas de déprotection de la feuille avant - CORRIGÉ

La protection et Confirmation ne se faisaient pas, car dans mon code, je n'autorisais la modif que lorsque la colonne I était = "Non Saisie" - RECTIFIÉ

J'ai modifié également :
- quelques lignes de ta sub "Saisie2" du module "ModSaisie"
- quelques lignes de ta sub "Deprotege3" que j'ai d'ailleurs renommées "DonnerAvis" plus explicit
- enlevé par ci par là les derniers paramètre de tri "DataOption1:=xlSortNormal, DataOption2:=xlSortNormal" car ces paramètres posent problème avec Excel 2000

Voilà, je n'ai pas tout testé, mais les modifications apportées permettent apparemment l'exécution correcte de l'appli 😉

Ton fichier modifié version 20070422 est ICI : http://cjoint.com/?ewnxobpJhU

A+

Re : Protection et Confirmation

Bonjour le Forum et BrunoM45

Merci, pour cette version qui après qq. essais me parais bien surtout au niveau de la protection et la confirmation lors de l’amortissement des Avis.
Mais je les trouvent trop lourd, pour une nouvelle saisie. Je m’explique a chaque saisie : date, secteur, heure, avis et justificatifs il y a une confirmation. Pourquoi ne pas faire celle-ci en fin de saisie, si la réponse est non effacement de la ligne 2.

Votre question je la devine quand est elle fini, a mon avis lorsque la cellule I2 est égal a « En cours » Mais il faudra sûrement modifier la formule de celle cellule ci-dessous :

=SI(E2="";"Non Saisie";SI(C2=F2;"Impossible";SI(D2="";"En Cours";SI(D2=G2;"Amorti";SI(D2="NON";"NON";SI(G2="NON";"NON";"En Cours"))))))

Sont but il faut que : C <> F, G <> D, G ou D = « Oui », E numérique > 0, plus la gestion des « Non » .

Ou peut-etre plus simplement un bouton "Fin de saisie" que ce metterais a la place du bouton "Nouvelle Saisie" ou une boite de saisie

Voila j’espère avoir été assez clair, et je me tiens a votre disposition pour tous renseignement complémentaires.
Encore merci.

WD