Bonsoir didier, le forum,

Pour faire suite à notre conversation d'hier, bien que n'ayant pu identifier l'origine de la perte dans le menu Fichier de la fonction "Enregistrer sous" (celle -ci comme tu me le précises n'ayant à priori rien à voir avec excel 2007) je suis allé consulter des forums et effectivement cette bizarrerie semble être également arrivée soudainement à d'autres utilisateurs dans des versions antérieures (2000,2002).

Lorsque pareil cas se produit, le rétablissement de "Enregistrer sous" peut s'effectuer de la manière suivante :

[i]Barre de menus--->Options---->Personnaliser : Ouverture de la boîte de dialogue "Personnalisation" cliquer sur Commandes

Sélectionner Fichier dans le menu de gauche "Catégories" et dans celui de droite"Commandes" Enregistrer sous"

Maintenir clic souris et envoyer le bouton commande vers menu Fichier qui s'ouvre et placer à l'intérieur de ce menu le bouton commande "Enregistrer sous"; relacher la souris à l'endroit souhaité : la fonctionnalité est revenue.

Faute de pouvoir identifier une cause logique à ce dysfonctionnement, voilà une astuce qui devrait permettre de remédier à ce problème... tout du moins si tu juges que cela peut revêtir une importance quelconque sur ce forum en raison de la faible probabilité de l'apparition de cet événement mais qui peut se révéler d'autant plus génant pour celle ou celui qui ne connaît pas le moyen de le contourner avec F12.

Bonne soirée

A+

Cordialement

NB : La boîte de dialogue de dialogue permet de remédier à de nombreuses fonctionnalités perdues autre qu'enregistrer sous.

dss

Bonsoir Didier, le Forum,

Après la modification que tu m'as suggérée, tous les tests que j'ai pu faire se sont révélés concluants jusqu'alors. J'ai pris le temps de tester de la mainère la plus exhaustive que possible car j'avais fait la même modification (puis compiler et enregistrer le projet dans l'éditeur) avant de te contacter à ce sujet car les erreurs apparaissaient toujours! la seule différence, cette fois, c'est que j'ai enregistré et quitté Excel après la modification puis l'ai réouvert. Et merveille... Tout semble fonctionner au mieux depuis!

Pour le L=2, j'avais déjà fait la modification.

La seule chose qui m'apparaît curieuse, c'est que je n'ai plus la fonction "Enregistrer sous" depuis l'envoi de ton dernier fichier. J'ai désactivé la ligne de commande qui interdit cette possibilité : aucun résultat. De plus, au delà de ce fichier, la fonction a disparu dans excel (2002).

J'ai lu sur les forums que d'autres utilisateurs avaient rencontré le même problème à la suite de transfert de fichiers réalisés sous 2007 vers des versions antérieures.
Voilà, je te livre l'info qui reste à confirmer par ailleurs car cela semble un peu curieux... Et tout en te précisant que cela ne me gêne pas plus que ça, car je m'en accomode à l'aide de la touche F12. C'est seulement dans le but de t'en informer si d'autres utilisateurs devaient par ailleurs se trouver confronter au même problème : plus qu'une réponse en soi, un début d'hypothèse qui se vérifiera peut-être par analogie au fil du temps qui passe...

En tous cas,et à nouveau, mes plus sincères remerciements pour la contribution et le soutien que tu m'as manifesté tout au long de mon projet.

A bientôt

Cordialement

dss

Bonsoir à nouveau Didier et le forum,

Juste une précision supplémentaire pour essayer de me rendre utile : je viens de tester sur un fichier intermédiaire juste après l'ajout de la formule de calcul dans le code VBA et je rencontre le problème depuis.

A bientôt

Cordialement

dss

Bonsoir à nouveau Didier et le forum,

Désolé pour le contretemps, l'envoi du message précédent s'est réalisé alors que je n'avais pas terminé le sujet : je reprends donc.

Supposons ligne 1 le véhicule saxo rouge réservé de 9h à 10h

Le contrôle de la plage de réservation ne va pas être complétement opérant car je peux saisir en ligne 2 pour la même date et le même véhicule les plages suivantes :

8h30 - 9h30 et 9h -9h30 sans que le contrôle ne recèle d'anomalie : une fois une de ces 2 plages saisies, je peux ensuite changer l'heure de départ en amont 7h ou 7h30 sans qu'aucune anomalie ne soit détectée.

J'ai bien regardé le code et essayé de résoudre cette difficulté (step à 30 minutes, timevalue à 30 minutes -1 seconde) , je ne comprends pas la source du problème.

Peut-être dans l'ajout de la formule de calcul de la durée où je pense pourtant modestement lque le calcul est correct, peut-être l'interaction avec l'ajout des colonnes R et S mais là encore je ne vois pas pourquoi? Etrange...

Si tu as une idée, merci de m'en faire part d'autant qu'il me semble que sur la version avant l'ajout de la formule, le contrôle était opérant en toutes circonstances.

Merci d'avance

A+

Cordialement

dss

Bonsoir le forum, Didier,

Après des tests multiples, je me suis aperçu sur le fichier que tu m'as envoyé de la chose suivante :

Sur la ligne 1, prenons par hypothèse la date du 7/02/2008 et le véhicule saxo rouge réservé de 9h à 10h :

Sur la ligne 2 pour la même date et le même véhicule, je vais pouvoir saisir les plages sans retour d'anomalie :


9h -9h30

Bonsoir Didier, le forum,

J'ai pris connaissance de ton envoi et que rajouter de plus une fois encore que : "TOUT SIMPLEMENT GENIAL". Merci encore pour tout, je crois être arrivé au bout de "mon périple" grâce à ton aide précieuse : j'en arrête là avec mon "usine à gaz" bien résolu à suivre tes conseils et à ne me contenter que du strict nécessaire".

Compris pour baliser le code et là, je dirai "beaucoup moins génial", pas doué le gars! Mais je tacherai de faire mieux la prochaine fois...


Bonne semaine et à bientôt

Grand merci encore pour tout!

Cordialement

dss

Bonjour Didier et le forum,

J'ai bien reçu tes commentaires et entretemps j'ai continué à faire des essais et suis arrivé à la situation suivante :




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
lig = Target.Row
Const Mot2 As String = "y"
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns(18)) Is Nothing Then
If Target.Offset(0, -1).Value = "enregistré" Then
If InputBox("Mot de passe, Svp") = Mot2 Then
Target.Value = "Transport annulé"
If Target.Value = "Transport annulé" Then cells(lig, 19).Value = Now
End If
End If
End If
End Sub



J'ai effectivement conscience que le test if target.value est inutile mais c'est la seule façon que j'ai trouvé pour renvoyer "Now" en colonne 19 sur la ligne concernée : Faute de mieux, c'était toujours ça...

Pour finaliser mon projet, je te confirme que j'ai aujourd'hui besoin :

1- d'éviter la suppression de la saisie sur les colonnes R et S dès qu'il s'y trouve la mention "transport annulé" (col 18) et la date (col 19) alors que la même ligne (cellule colonne 1 à 17) est déjà protégée. Et là je n'ai pas reussi à trouver la solution pour la ligne concernée : soit toute la colonne est protégée soit aucune des cellules de cette colonne ne l'est (idem pour la colonne 19)

2- Si la mention "transport annulé" (qui ne peut être saisie qu'à l'aide d'un mot de passe et donc sécurisée) est inscrite sur une ligne en colonne 18, alors je voudrais pouvoir libérer la plage de réservation initialement prévue pour ce transport : Là aussi, je n'ai pas reussi à intégrer le test sur la colonne R (transport annulé") au niveau de la partie du programme

J'ai pris connaissance sur ton site du thème concernant les boites de dialogue personnalisées et j'envisage d'utiliser cette procédure pour exploiter la valeur de renvoi de la boite de dialogue et renforcer le controle de la saisie : qu'en penses-tu?

Merci par avance de ton aide car pour répondre à tes interrogations, la logique de sécuriser la saisie sur la colonne 18 et d'empêcher sa suppression permet de sécuriser l'annulation du transport et d'obtenir, du moins je le crois, un programme fiable et cohérent.

Cordialement

A+

dss

NB : J'y pris bonne note de ta remarque pour l'envoi du code, désolé, je ne savais pas...
La version que j'utilise est excel 2002 mais le programme sera également traité par des postes sur différentes versions dont excel 97.
Je peux renvoyer le code mais j'ai pensé que cela n'était pas utile et éviterait de surcharger pour rien le forum.

Bonjour Didier, le forum,


Pour compléter mon tableau et pendre en compte la possibilité d’annulation d’un transport, j’ai ajouté à mon tableau 2 colonnes R et S : la première tant égal à «Transport annulé» et la seconde portant la date de l’annulation. J'ai repris tes conseils et utilisé la macro suivante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Long
lig = Target.Row
Const Mot2 As String = "y"
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Columns(18)) Is Nothing Then
If Target.Offset(0, -1).Value = "enregistré" Then
InputBox ("Mot de passe, Svp")
If Mot2 = "y" Then Target.Value = "Transport annulé"
If cells(lig, 18).Value = "Transport annulé" Then cells(lig, 19).Value = Now
End If
End If

Par ailleurs, j’ai d’une part, déprotégé les cellules des colonnes R et S.

Cependant, après bien des tentatives, je n’arrive pas à résoudre plusieurs difficultés: protéger la saisie en colonne R hors doubleclick , empêcher de pouvoir supprimer les données saisies à l’aide de la touche « Suppr », et libérer la plage de réservation du véhicule précédemment réservée.

1- J’aurais besoin de protéger l’accès à la saisie des cellules de la colonne R par un mot de passe réservé à 2 personnes dès qu’on essaie de saisir à l’intérieur d’une cellule de la colonne R. Attention, la saisie sera effectuée après que la ligne ait déjà été enregistrée et protégée (colonne A à R).
2- J’ai réussi à protéger l’accès en utilisant la même procédure avec SelectionChange mais compte tenu de tes remarques précédentes, est ce une bonne solution pour une solution viable à long terme ?
3- Empêcher d’autres utilisateurs ne disposant pas du mot de passe de pouvoir supprimer les données saisies en colonne R et S.
4- Libérer la plage de réservation du véhicule si le transport est annulé.


Merci par avance de ton aide.

Cordialement

dss

Bonsoir le forum, bonsoir didier,

Comme je m'y étais engagé, j'ai procédé à de nombreux tests et une seule conclusion s'impose : CHAPEAU !

J'ai en tête de faire évoluer mon projet de façon suivante : Possibilité dans la colonne R, colonne devant être protégée par mot de passe et réservée à seulement quelques utilisateurs d'y inscrire "annulé".

Pour l'instant, je me suis consacré à essayer de trouver le moyen de pouvoir avertir l'utilisateur par boîte de dialogue que la saisie de la ligne est incomplète et si possible de l'inviter à remplir les cellules dans lesquelles l'information est absente : Mais je m'y suis cassé les "dents" pour l'instant !

Est ce cependant possible?

Cordialement et encore merci

dss

Bonsoir didier, le forum,

J'ai pris connaissance de ton envoi tout à l'heure et t'en remercie encore une fois vivement.

Je n'ai pu le tester pour l'instant, raisons professionnelles obligent! Mais je te tiendrai au courant dans les tous prochains jours.

Je vois que tu t'es fortement investi sur mon projet en comblant bon nombre de mes lacunes et je t'en suis fortement reconnaissant, d'autant que ta disponibilité à me fournir les explications utiles et nécessaires a été constante et importante.

Une chose avant l'envoi de ce nouveau programme sur laquelle je bute encore : l'emploi de la déclaration Static au niveau de la variable encours . Quelle est son intérêt et sa portée et surtout l'impact des valeurs qu'elle prend à True ou False et son incidence dans le déroulement de la procédure ; je n'ai pas vraiment compris même si j'ai lu par ailleurs que l'emploi de ce type de variable permet de mémoriser la valeur précédente : je n'ai quand même pas compris sa fonction dans le programme.
Si à temps perdu et en quelques mots tu peux m'expliquer... car tes explications et conseils me sont plus précieux que le fait de lire des dizaines et dizaines de pages dans le sens où ils sont ciblés sur un thème en fonction des possibilités offertes par VBA que tu connais et que j'ignore bien souvent : de là, je me perds souvent dans ma lecture là où tes quelques lignes suffisent, et me permettent de progresser beaucoup plus rapidement.

Merci encore pour tout

A bientôt

Cordialement

dss

NB : Désolé pour l'anomalie que tu relèves dans la colonne M et qui tient tout simplement d'une mauvaise recopie de ma part dans l'envoi de ce fichier par rapport à sa première version pour y corriger l'instruction en colonne H. Cette erreur ne figure pas dans mon fichier cible.