Interdire la saisie suivant conditions

[natorp]

Bonjour à toutes et tous

Après avoir choisi l'agent, on doit lui affecter une date de début d'astreinte
j'aimerais interdire la saisie d'une date déjà saisie pour un même agent (Nom+Prénom)
exemple en fichier joint

Merci pour votre aide, cordialement, Gérard

 

[natorp]

Merci Si,
excuse-moi mais je ne vois pas la fonction Table ??
Et du coup j'ai utilisé des plages nommées avec la fonction DECALER qui met à jour la liste en fonction des changements..

C'est super, merci beaucoup, Gérard

 

[DoubleZero]

Bonjour à toutes et à tous,

... adaptation du fichier de ÕÕ (qui, je l’espère ne me sonnera pas les cloches ).

Cmment le pourrais-je ?

S'l te plaît, quel est l'intérêt de remplacer :

    Application.EnableEvents = False
    Application.EnableEvents = True

par :

Sub EvO(): Application.EnableEvents = 1: End Sub
Sub EvN(): Application.EnableEvents = 0: End Sub

Merci et à bientôt

 

[Si...]

Bonjour à toutes et à tous,

Cmment le pourrais-je ?

Re

S'l te plaît, quel est l'intérêt de remplacer :

    Application.EnableEvents = False
    Application.EnableEvents = True

par :

Sub EvO(): Application.EnableEvents = 1: End Sub
Sub EvN(): Application.EnableEvents = 0: End Sub

Merci et à bientôt

A ÒÕ et à toutes les personnes intéressées par cette question qui semble anodine mais qui est importante pour moi.

Je vois, déjà, de plus en plus souvent la macro EvO (Évènement Oui, appelée autrement).

Elle est très utile quand on met en place des évènementielles accompagnées des quantités d’autres macros pouvant nous faire entrer dans la boucle infernale d’appels récursifs et nous faire perdre tout le travail fait (surtout quand on n’a pas, aussi, l’habitude du Ctrl S*).

Je me suis dit que, tant qu’à faire, le pendant indispensable EvN permet une meilleure analyse à la relecture des codes et surtout que je préfère écrire plein de fois ces 3 lettres plutôt que Application.EnableEvents = False.

Bien entendu, cela n’est pas intéressant pour une ou deux macros mais avec des dizaines et dizaines de procédures …

*Ctrl S permet de Sauvegarder immédiatement le fichier (de travail)

Ce sont des réflexes personnels acquis à force d’être blacboulé par Excel.

 

[DoubleZero]

Bonjour à toutes et à tous,

Gros MERCI, Si, pour ces explications (j'adopterai souvent ta méthode) et pour l'astuce "Ctrl S".

A bientôt