macro Fermé

Question

bonjour, avec Windows7 et Excel 2010. comment créer une macro qui permette de supprimer des lignes dans un tableau comprenant 8 colonnes et 30 lignes par défaut. Ce nombre de ligne peut varier en fonction du besoin, par exemple: si j'ai besoin de 15 lignes seulement en partant de la première, le chiffre 15 étant saisi dans une cellule appropriée, il me faut donc une macro qui lise ce chiffre, qui supprime les 15 lignes de la 30e à la 16e incluses et prenne les données existantes qui étaient au départ sous la 30e ligne pour les remonter sous la 15e ligne.
Je veux créer cette macro avec l'enregistreur de macro d'Excel 2010.
Je suis bloqué et n'arrive pas à trouver comment faire, merci d'avance à tous.
Cordialement
aulane

via55 · Answer

Bonjour

L'enregistreur de macro ne te permettra pas de faire tout ça

Tu peux enregistrer par macro la suppression des lignes 16 à 30, cela doit donner :
Sub Macro1()

Rows("16:30").Select
    Selection.Delete Shift:=xlUp
End Sub

Ensuite pour avoir une suppression modulable tu dois modifier ta macro en ajoutant une entrée de la 1ere ligne à supprimer et de la dernière et en modifiant la suite du code en conséquence :
Sub Macro1()
d = InputBox("N° 1ere ligne à supprimer")
f = InputBox("N° dernière ligne")
    Rows(d & ":" & f).Select
    Selection.Delete Shift:=xlUp
End Sub

Cdlmnt
Via

Aulane · Answer

Bonjour via55,
Je crois que j'ai compris, sauf que je ne veux supprimer (physiquement) uniquement que les lignes à l'intérieur  de mon tableau, (A14:H43) par exemple dans le cas de la deuxième macro cela devrait se traduire (si possible) par une plage de données A29:H43.
Par contre l'indication du nombre de lignes a saisir(3 à 29 // 30 par défaut donc sans modification du tableau) dans la cellule H9, je peux peut être créer une variable (p. ex. n=H9) et indiquer le nombre de cellules à supprimer par A14+n+1 (16e ligne incluse) H43 (derniere cellule de la dernière ligne du tableau.
Cela te semble t-il cohérent? Qu'en penses_tu?
Très cordialement

via55 · Answer

Re

Parfaitement 
Si je comprends bien la suppression se fait toujours jusqu'à la ligne 43, dans ce cas au lieu d'avoir à indiquer le nombre de lignes à supprimer (fastidieux de les compter) il serait plus judicieux d'indiquer le n° de la 1ere ligne
Avec ce n° indiqué en cellule H9 de la feuille la ligne de la macro devient :
Rows("A"& range("H9) &":H43").Select

Cdlmnt
Via

Aulane · Answer

Bonsoir via55
J'ai pondu quelque chose mais j'ai de gros doutes sur sa validité
. 
 Sub suppressionlignes()

N=H9    c'est ma variable du nombre 10 jours d'utilisation u tableau 
             Il faut que j'additionne à la ligne A14 qui correspond au 1er jour du              
             tableau les 	10 jours à préserver pour obtenir la cellule A24 
             départ de la suppression de la 1ere ligne jusqu'à la ligne H43

Rows (« A 14 »&range(« H9 »)& : »H43 »).Select
		Pour fixer la cellule de départ de la suppression 
Selection.Delete

End Sub
je crois bien que c'est complètement nul.
cordialement

via55 · Answer

Pas sur d'avoir tout compris mais si tu veux supprimer de A24 à H43
24 étant trouvé en ajoutant à 14 la variable en H9 la ligne correcte serait :

 Rows ("A"& 14+ range("H9") & ":H43").Select 

Cdlmnt

Aulane · Answer

Bonjour via55,
Merci j'ai bien lu ce que tu m'as envoyé, je vais essayer de me dépatouiller avec çà, si ça marche, super je te le dirai bien sûr. Mais si mes neurones se sont mélangés les pinceaux, je crois que le plus judicieux et le plus raisonnable auquel j'aurais dû penser bien plus tôt, j'essayerai de t'envoyer mon fichier par cjoint.
je t'enverrai même 2 fichiers, celui vierge sur lequel je travail sur Excel 2010 et une copie PDF d'un fichier perso terminé tels qu'apparaissent les résultats pour un intermède (5 semaines) entre 2 cures (sur ce dernier l'échelle du graphique est inversée à la demande du toubib sans incidence sur la finalité et pas non plus de durée ni d'identité, puisque perso et gèré par moi quotidiennement.
qu'en penses-tu?
Je retourne à l'hôpital ce vendredi matin, vraisemblablement jusqu'à mardi 29 sauf complications et je ne sais pas si je pourrai raccorder mon portable à un réseau wifi, ne t'étonne pas si je ne répond tout de suite à tes courriers.
Merci d'avance.
Cordialement

Aulane · Answer

Re via55, ça n'a pas marché, je t'envoie donc ces 2 fichiers par cjoint 
cordialement
http://www.cjoint.com/c/EIxjCHfj8ou
https://www.cjoint.com/c/EIxjD5BL7Mu

via55 · Answer

Bonsoir Aulane

Désolé c'est moi qui t'ai dit une bêtise en allant trop vite !
Puisque c'est ROWS il faut juste indiquer les n°S de ligne et pas les lettres des colonnes
Rows (14+ range("H9") & ":43").Select

Par contre au vu de ton fichier il va y avoir un problème car en effaçant les lignes 24 à 43 tu vas aussi effacer ton tableau des critères à côté

Donc soit il faut passer ce tableau en dessous, soit sur une autre feuille

Mais si tu veux garder le tableau critères à coté il ne faut pas effacer les lignes, il faut effacer la plage et remonter les lignes de totaux

Bon courage pour l'hôpital

Cdlmnt
Via

Aulane · Answer

Bonjour via55, merci beaucoup
Ne sois pas désolé, c'est moi qui me suis mal exprimé et après ce mois que j'ai passé (j'ai quand même côtoyé la grande faucheuse) ça commence à aller mieux, mais je me suis emmêlé les pinceaux 
As-tu reçu les 2 fichiers, le vierge sur lequel je travaille avec Excel 2010 et le PDF personnel (pour information) donc pas de renseignements (identité du patient, âge, etc.) mais sur le premier nombre de jours de traitement bloqué à 10 (jours) en cellule H9.
Je crois bon ayant je pense avoir repris mes esprits de te faire une petite synthèse de ce je voudrais faire, avant excuse-moi si ce qui va suivre pourra être un peu répétitif ou déjà vu, mais je veux lever toutes équivoque ou erreurs que j'ai pu commettre. (Je suis resté depuis le 27 août un peu dans le seau) Donc je développe et pardon si je raconte n peu ma vie, mais c'est pour planter les décors.
Ce fichier a séduit mon toubib au cours consultation de routine (pour mes cures toutes les 5 semaines depuis 2009) où je lui faisais voir la courbe d'évolution du traitement sur le graphique, il m'a demandé si je voulais bien lui permettre d'en bidouiller un exemplaire pour l'utiliser aux fins de  suivre certains de ses patients. Accord bien entendu avec un bémol car le fichier n'étant pas protégé,  la moindre fausse manoeuvre pouvait le rendre inutilisable je lui ai proposé de lui en faire une version (gratuitement bien sûr) adéquate programmable par patient et modulable dans la durée du traitement. (Mais mon « basic » à foutu le camp en grande partie...) et voilà pourquoi je m'empoisonne la vie aves ce temps d'utilisation. De plus avec toutes ces péripéties (une bactérie fin août a bien failli arrêter définitivement mes ambitions) je crois bien que mes neurones en ont pris un bon coup cette fois ! Bref tant qu'il y a de la vie il y a de l'espoir !
Donc pour en revenir à mon fichier :
En prime abord, il faut enregistrer ce fichier (les protections adéquates effectuées) dans les modèles perso 

	La première cellule de la première ligne du tableau est A14 et dernière H43
	Dans la cellule H9 le nombre rentré correspond à la durée du traitement
	Pour adapter le tableau à cette durée il faut donc supprimer la plage (C'est là que j'ai merdé) en partant de la cellule A14 + H9 c'est-à-dire dans cet exemple de 10 jour A24 à H43
	Remonter partiellement les lignes restantes sous la nouvelle position de la dernière ligne du tableau en cliquant dans la petite fenêtre qui apparaît « Remonter vers le haut »
	Cette macro sera attribuée au bouton OK qui replacera le curseur sur la cellule du premier critère à savoir : R13 pour renseigner tout le programme
	Le graphique suit automatiquement la modification apportée à la BDD (ça marche très bien en faisant la manip manuellement)
	Mais si il y a erreur dans la cellule H9 après avoir cliqué sur OK, impossible de faire marche arrière (trop compliqué) il faudra cliquer sur le bouton REFAIRE (la macro est prête, il me faut simplement connaitre le nom de l'ordinateur ou peut-être créer un alias ? peux-tu me tuyauter aussi sur cette possibilité ?) qui retournera chercher le fichier dans le dossier MODÈLE et recommencer l'opération précédente (d'où l'intérêt de formater en premier la durée du traitement avant tous les autres paramètres
	Les autres boutons « SUITE » : S le traitement doit être prolongé, ajouter feuille au fichier et aller chercher le modèle (comme pour refaire),
	Un autre bouton à créer "NOUVEAU" pour enregistrer et fermer le fichier et créer un nouveau fichier pour un autre patient éventuellement.
	Indiquer comme précédemment le nombre de jours si besoin (Le fichier fonction pour 30 jours par défaut)
	Copier et coller les critères et l'entête jusqu'à la date qui sera saisie manuellement
	Le programme est prêt à être utilisé
Excuse-moi d'être un peu « longuet » mais en détaillant le fonctionnement du programme, il est plus facile de créer la suite.
Merci mille fois encore.
Cordialement
aulane

via55 · Answer

Bonjour Aulane

Je ne sais pas pourquoi mais impossible de travailler sur ton fichier il fait buguer mon Excel !

J'ai donc recréé un fichier avec comme principe :

1) Pas de macro pour modifier les lignes mais des formules qui à la modification du nombre de jours inscrivent les n°s et les dates, elles ont doublées par une mise en forme conditionnelle qui met les bordures
Les cellules avec formules sont protégées par Protection de la feuille

Du coup comme dans tout tableau de longueur variable il est préférable de placer les totaux au-dessus et non en dessous (avec une formule s'appliquant à toutes les cellules inférieures); c'est ce que j'ai fait

2) Le changement de la valeur du nombre de jours lance la macro qui adapte la plage des sources de données pour le graphique, on peut donc se tromper et modifier le nombre de jours autan que l'on veut !

3) A la fermeture du classeur la macro mise dans ThisWorkbook enregistre le classeur dans le même répertoire que le dossier original mais sous un nom composé du Nom  et du prénom rentrés en B2 et B3, donc pas de risque d'erreur, le fichier original reste toujours intact

http://www.cjoint.com/c/EIzqzNifXDe

Je pense que tu n'auras pas trop de mal à adapter cet exemple à ton fichier

Cdlmnt
Via

Aulane · Answer

Bonjour Via,
Ça va faire la 3e fois que je fait une réponse à ton dernier mail, de mémoire, j'ai du écrire que je suis sorti de l'hôpital lundi après midi un peu fatigué, j'ai lu ton mail et mardi j'ai tenté une première fois une réponse que j'ai perdu en cours de route, j'ai recommencé ce matin même punition, je suis mal marié avec cjoint mais ça devrait s'arranger avec le temps (a voir!) je répète ma première mouture de mémoire, j'ai bien lu ta réponse mais je n'ai pas pu rentrer dans ton fichier car la feuille est protégée d'une part et  je n'ai trouvé aucune trace des formules et macros dont tu fais état dans ton mail d'autre part, très étonné que mon fichier ai bugué avec ton Excel, je te renvoie le fichier, j'ai peut-être fait une bourde la première fois.
A te lire, très cordialement à toi
 
--https://www.cjoint.com/c/EIDkdPgo6Z4
aulane

Aulane · Answer

Bonsoir via55, Ton compliment me touche, mais si longtemps sans mettre le nez dans VBA laisse des vides difficiles à combler; j'ai tout à réapprendre... Bref! Je repense au bug que provoque mon fichier sur ton PC, je travaille sur deux écrans, serait-ce cela qui provoque ce bug ? J'ai bien rentré la formule =SI(NB($A$15:A17)<$H$9;A17+1;"") dans la cellule A18 4e jour (et l'ai étirée jusqu'à A44 bas de la colonne A! Ok j'ai essayé, ça marche mais seulement sur cette colonne A, ce qui semble normal, il manque l'extension aux colonnes C, D, E, F, G, H ? et l'effacement de la grille du tableau Mais où ça se corse, lorsque je rentre par glissement la formule =SI(A18<>"";B17+1;"") dans la cellule B4, ou par copier-coller ou au clavier. Dès que je l'ai étirée jusqu'à B44 (fin de la colonne B) ça a fait bugger Excel (Excel ne répons pas) et impossible d'en sortir sans fermer le fichier! Tétu, j'ai refait la manip, mais cette fois seulement en cellule B4, ça a bugger au bout de q.q. secondes, (Excel ne répond pas), puis ça a marché, j'ai donc étiré jusqu'à B5 et ça a buggé aussi un peu plus longuement et c'est revenu, j'essaye ce matin (4/10) de recopier de B5 à B7 chronomètre en main après 7 minute, j'ai eu le malheur de positionner la souris sur la cellule B7 en plus de (ne répond pas) ça a « flouté » le fichier sur l'écran et toujours rien après 10 minutes ! J'ai cliqué sur la croix de fermeture, une fenêtre est apparue me donnait le choix entre 3 possibilités, j'ai cliqué sur « Redémarrer le fichier » et q.q. instants après le fichier s'est affiché : les cellules B4 et B5 contenaient bien la formule, mais elle avait disparu des cellules B6 et B7. Pourquoi ça bug ? je suis revenu à un format de date standard jj/mm/aa ça n'a rien changé, C'est quand même bizare, J'ai modifié la formule de la colonne date en remplaçant les guillemets SI(A18<>"";B17+1;"") par < 0 > zéro, même résultat ! Mais est-il vraiment indispensable modifier la colonne date (B)? et comment faire pour que les autres colonnes C, D, E, F, G, H. s'alignes sur la colonne A? en effaçant tous les cadres. Je commence à avoir la tête comme un ballon sur-gonflé ! Je cherche une solution qui ne vient pas. Cordialement aulane https://www.cjoint.com/c/EJejrmFnAx8

via55 · Answer

Bonjour Aulane

Donc tu as le même bug que moi !

Bon on va procéder par étapes pour que tout fonctionne

Sur le fichier pour l'instant j'ai :
- laissé les formules d'incrémentation des dates jusqu'au 30° jour puisque les formules avec SI occasionnent le bug, j'ai remplacé ça par une mise en forme conditionnelle qui affichent en écriture noire et avec bordure marron des cellules que les lignes inférieures ou égales au nombre de jour. Par défaut il n'y a pas de bordures et une écriture blanche donc invisible. Le jours s'inscrivent bien jusqu'au 30eme mais seuls sont visibles ceux de la durée choisie en H9

- Mis la macro associée au Worksheet de la feuille qui lors de la modification de la durée en H9 ajuste la plage du graphique

Dis moi ce que tu en pense et on verra pour la suite

Malgré tout les temps de réponse sont longs dès qu'on entre une donnée. Dès que j'aurais un peu de temps j'essaie de refaire la même feuille sur un nouveau classeur sans macro au départ pour voir si on peut obtenir quelque chose sans ce désagrément peut être lié au fichier

 http://www.cjoint.com/c/EJeu43iLepY

Cdlmnt
Via

aulane · Answer

Bonjour via, j'ai retrouvé ton mail du 29/9 par hasard, il a du arriver pendant que j'étais à l'hôpital, et quand je suis revenu je n'avais pas les idées très clair. Bref de mon coté, j'ai assayé de pondre q.q. chose, je te le passe ci-dessous (je lundi 5 octobre 2015 Bonjour via55, Je viens d'avoir une idée pour supprimer ou réinstaller le quadrillage de mon tableau avec une instruction macro du genre : (on sur le modèle des 10 jours de cure en utilisant le modèle de formule saisie dans la cellule < A18 >) colle bêtement ce que j'ai préparé sur Word Je mélange formule Excel et macro D'abord la formule toujours en considérant nos 10 jours de cure, mais où la placer ? SI(ND($A$15:A17)<$H$9;A17+1;'''') Cette fonction supprime les jours au-delà du 10 donc à partir du 11e jour jusqu'au 30e jour c'est-à-dire de A24 à A43 et c'est là qu'il là de devrait intervenir la macro Macro1 Sub Effacequadrillage() `suppression du quadrillage du tableau de A24 à H43 Range (`'A24 :H43'').Select ` `A24 pourrait être remplacé par H9 + A14 (1er jour de `Cure et dans tous les cas H43 resterait H43 Selection.Borders(xlDiagonalDown.LineStyle = xlNone `ligne basse interieure du tableau ? Selection.Borders(xlDiagonalUp.LineStyle = xlNone `Ligne haute intérieure du tablea ? Selection.Borders(xEdgeLeft.LineStyle = xlNone `ligne coté gauche du tableau ? Selection.Borders(xEdgeTop.LineStyle = xlNone `ligne du dessus du tableau ? Selection.Borders(xEdgeBottom.LineStyle = xlNone `ligne du bas du tableau ? Selection.Borders(xEdgeRight.LineStyle = xlNone `ligne coté droit du tableau ? End Sub Macro2 Pour restaurer le quadrillage du tableau, pourrait-on faire lla même liste mais au lieu de xlNone Peut être mettre une fonction qui restaurerait (None, c'est aucun il faut trouver son contraire Que penses-tu de tout ça ? Et on pourrait appeler ce 2 macros dans une même instruction < SI > Du genre SI(SI(ND($A$15:A17)<$H$9;Macro1 ;Macro2 à créer) Cordialement Aulane

via55 · Answer

Bonjour Aulane,

1) Pourquoi vouloir faire le quadrillage par macro alors que la mise en forme conditionnelle comme dans mon dernier fichier envoyé (message n° 20) le fait très bien (Par défaut il n'y a pas de quadrillage et écriture blanche dans les cellules du tableau à partir du 4° jour (puisque au minimum le tableau comportera 3 jours) et la mise en forme conditionnelle met en écriture noire avec quadrillage marron lorsqu'il y a une valeur numérique en colonne A)

2) On ne peut pas lancer une macro à partir d'une formule; c'est un événement sur la feuille qui peut la déclencher (changement de ligne, changement d'une valeur dans une cellule précise comme H9, double-clic ...)

Cdlmnt
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

Aulane · Answer

Manifestement tu n'as pas reçu le mail que j'ai envoyé hier 9/10/15 j'ai du me mélanger les pinceaux, comme j'en ai gardé la trce dans Word je te le renvoie tel quel.
8 octobre 2015

Fichier new Vial

Bonjour via55,

Je crois savoir pourquoi mon fichier fait bugger ton micro, je pense qu'il bug lorsque tu veux entrer la formule dans la colonne date et surtout lorque tu veux l'étirer vers le bas (c'est ce qui m'est arrivé) ! Explication :
Tout à fait par hasard j'ai découvert dans cette colonne date un petit espace (Type zone de texte) sous le jour des dates et il est ineffaçable, aidé par mon informaticien, on a bataillé plus d'un quart d'heure, pas moyen de l'éliminer.( Si tu peux charger le fichier que je t'ai envoyé depuis le début, tu pourras contrôler ce que je te dis). Donc et c'est pour ça que je te réponds si tardivement, j'ai refais intégralement le fichier dans un classeur vierge (au clavier et sans copie/coller) j'en ai profité pour rallonger la durée à 31 jours maxi, c'est plus logique et là, tout s'est bien passé. Je vais passer tous les autres à la moulinette, je ne m'en étais pas rendu du fait que le fichier dont je suis parti pour moi, n'avait pas d'automatismes particuliers et je l'utilisais uniquement comme tableau de contrôle de la dextérité de ma main droite et je n'avais pas de souci de longueur du traitement qui était fixe à 5 semaines.
De toute façon, je t'envoie le nouveau fichier que j'ai appelé « New Vial » je n'ai pas rentré toutes les formules que tu m'as envoy ées, je voulais te l'envoyer le plus rapidement (il n'est pas protégé)
Cordialement
aulane

https://www.cjoint.com/c/EJinZbblA52

Aulane · Answer

10/10/2015 Bonjour via Bien reçu et bien content que ce soit cette satanée zone intempestive qui nous créait nos bugs, je vais supprimer tous ces fichiers sauf 1 dans lequel je vais essayer de trouver d'où vient cette zone. Merci pour tout, mais je vais encore abuser de ton aide et pour ça, je vais procéder par ordre : 1. Il faut que je comprenne et que j'assimile toutes les données, les formules et macros que tu m'as ajoutés au fichier, car je ne peux pas me permettre de rester bouche baie si mon toubib me demande des explications, même rudimentaires (ce serait malhonnête !) en plus, il risque de me demander des modifs ... 2. Comme la dernière fois, je suppose (je n'ai pas essayé encore) que tu n'as pas nommé de mot de passe et qu'il doit suffire de déverrouiller la feuille entièrement par : Révision/Modification/Oter la protection. je pense savoir refaire cette protection, je l'ai fait déjà plusieurs fois peut être un peu moins compliquée 3. Forme conditionnelle voilà pour moi un peu la bouteille à l'encre, je patauge toujours dès que j'envisage de mettre des cellules en forme. Pourrais-tu me faire un petit schéma du processus et surtout quelle fonctions utiliser notamment : a. Pour l'affichage ou l'effacement des bordures et des textes des lignes 18 à 45 4. Idem pour les macros (je ne les ai pas trouvées pourquoi ?) lors du changement de jours : a. Effacement du tableau et reconstitution des bordures b. Je suppose que c'est la même qui contient aussi le déverrouillage des lignes nécessaires et verrouille les autres c. Celle qui adapte le graphique à chaque modification des données du tableau 5. En ce qui concerne l'enregistrement du classeur, la deuxième solution me semble la plus adéquate, elle oblige l'utilisateur à nommer son patient et par la même de libérer le fichier modèle, par contre il me semble que le N° de sécu ou de comptage automatique et itératif... seraient un bon remède pour éviter les confusions ! qu'en penses-tu ? 6. Certes il risque bien d'y avoir plusieurs fichiers par patient, ou faire comme pour mon cas personnel, mettre le premier fichier dans la feuille 1 du classeur, le deuxième feuille 2, etc. mais alors il faudrait peut-être enregistrer le fichier modèle dans le dossier modèle de Micosoft, auquel cas, il faudrait au départ créer un dossier automatiquement s'il est inexistant (en posant la question du nom à lui donner) dans lequel seraient enregistrés tous les patients systématiquement sans doublons (par exemple un dossier < CRITÈRES >) Voilà ce que m'inspire ce fichier, je te dois déjà beaucoup et je veux par cette occasion me créer un lexique sous forme de tableau intitulé < Pourquoi faire > dans lequel j'inscrirais ce que je veux faire et en vis-à-vis je noterais les instructions nécessaires pour obtenir les résultats dans ce cas présent Très cordialement aulane

via55 · Answer

Bonjour Aulane

Procédons par ordre comme tu dis :

Tout d'abord oui pas de mot de passe, je pense que c'est inutile ici, la protection empêche d'écrire dans une cellule non autorisée mais on peut déprotéger la feuille (selon la méthode que tu indiquais) si on veut modifier une police ou une couleur. Sans le rsique d'être bloqué en cas d'oubli du mot de passe !

1) Pour l'affichage des bordures et de l'écriture :
a) par défaut la plage A15:G45 n'a pas de bordure et est en format écriture blanche donc "invisible"

b) Pour l'affichage des bordures et du texte cela se fait par mise en forme conditionnelle (Sélection de la plage puis Onglet Accueil Mise en Forme conditionnelle Nouvelle règle Appliquer une formule et j'ai entré la formule =$A18<=$H$9 avant de choisir le format de bordure et l'écriture noire
le $ bloque la colonne A comme référence, donc tant que le nombre en A15, A16 etc est <= au nombre de jours entré en H9 la mise en forme s'applique)
Pour accéder à cette MFC sélectionne  la plage A15:G45 puis Accueil Mise en forme conditionnelle Gérer les règles

2) Pour l'effacement des lignes du tableau, le déverrouillage des cellules des lignes utiles et le verrouillage des cellules des lignes superflues cela est géré par la macro

3) La macro n'est pas dans un module puisqu'elle est attachée à un événement de feuille (Private Sub Worksheet_Change)
Pour accéder à la macro quand tu as ouvert l'éditeur VBA (avec ALT+F11) il suffit de double-cliquer sur la feuille Modèle dans l'arborescence à gauche
J'ai mis des commentaires dans la macro qui expliquent ce que fait chaque ligne d'instruction

La macro gère aussi le graphique en spécifiant :
- la plage du graphique (ActiveChart.SetSourceData Source:)
- la plage des valeurs de la série 1  (ActiveChart.SeriesCollection(1).Values )
- la cellule du nom de la série 1 (ActiveChart.SeriesCollection(1).Name)

4) En ce qui concerne l'enregistrement :
 OK pour la 2nde formule

a) le n° de SS est un bon moyen pour individualiser (et plus facile qu'une incrémentation auto), je ne l'avais pas proposé car tu l'as mis en facultatif dans la feuille
Mais si on le rend obligatoire on peut l'utiliser (et même que les 7 premiers chiffres cela sera suffisant ?) Penser à mettre la cellule F4 au Format personnalisé n° de SS qui permet de rentrer les chiffres à la suite et Excel met les espaces au bon endroit)

b) Il faut mieux regrouper les traitements successif d'un même patient dans le même fichier avec un par feuille

Cela nécessite :
1° Que le fichier Modèle qu'on pourrait appeler Nouveau suivi, ait la feuille modèle masquée
2° à l'ouverture du fichier :

 si c'est le fichier modèle une macro copie la feuille modèle masquée et la renomme suivi 1 puis par userform demande les nom, prenom, âge et n° SS
La macro remplit les cellules avec ces données et enregistre le classeur avec comme nouveau nom : nom_prenom_7premiers chiffres du n° SS

 si c'est un fichier patient (nom différent que celui du fichier modèle) un userform demande si on veut simplement consulter le fichier ou créer une nouvelle feuille
si on choisit de créer une nouvelle feuille la macro copie la feuille modèle masquée et la nomme suivi 2, suivi 3 etc
Pas besoin d'enregistrer le fichier modèle dans le dossier modèle, il suffit qu'il soit quelque part dans un dossier ou sous-dossier, les fichiers patients seront automatiquement enregistrés dans le même dossier ou sous-dossier

Si ça te convient je me penche sur la question

Bien cdlmnt
Via

Aulane · Answer

11/10/2015
Bonjour via,

Je lis et relis ton dernier mail, même dans mes rêves les plus fous, je n'avais pas imaginé un tel degré de « sophistication », mais voilà ma curiosité naturelle veut que je comprenne les moyens employés (Fonctions, formules, macros...) je pense que tu as du utiliser la plupart des formules qui émaillent notre correspondance, je vais donc reprendre tous les courriers que nous avons échangé et les consigner dans un fichier spécial (avec les aides correspondantes que tu y as incorporées)
1.	Pour l'affichage des bordures et de l'écriture :
a.	Tu me dis que par défaut la plage A15 :G45 n'a pas de bordure et écriture blanche ! Comment obtiens-tu ce format ? Tu vas surement penser que je suis une cruche...

b.	Pour les mises en forme conditionnelle, j'ai affiché la règle de format pour les cellules A15 :G45 et force m'est de constater mon « ignorance » à quoi se rapporte et/ou qu'indique le format AaBbCcYyZz (en fait comment ça marche ?) Çà ça m'intéresse au plus haut point entre autres ! 

2.	Pour l'effacement des lignes du tableau j'ai vu la macro qui gère tout ça, comment est-elle activée et à quel moment ? je l'ai regardée, j'ai presque tout compris ! (je connaissais par coeur une foultitude de commandes basic, j'espère qu'en me replongeant dedans, ça pourrait peut-être revenir...)

3.	Il n'y a que la gestion du graphique, mais je crois que en y réfléchissant je vais comprendre je dois me replonger à fond dans VBA (tu as réveillé en moi, une passion que je croyais éteinte)

4.	Pour la compréhension de l'utilisateur, il me semble qu'à l'appel du programme, le fichier modèle pourrait apparaître simultanément avec en surimpression une fenêtre userform dans laquelle pourrait être entré le nom/prénom/N° SS et voir même la pathologie (plus facile peut être pour reprendre les éléments essentiels en cas de suivi).
la sortie de l'userform enclencherait le processus d'enregistrment pour un nouveau patient,  ou d'un suivi mais il serait peut être judicieux de rajouter dans l'userform une case à cocher ou un bouton radio indiquant s'il s'agit d'un nouveau patient ou d'un « suivi »...
5.	Il y a une chose que je n'ai pas bien compris, c'est la position masquée du fichier modèle ? Eclaire moi SVP
Un peu long comme d'habitude, mais j'ai tellement besoin de lumière

via55 · Answer

Bonjour Aulane

1) Pour le format "par défaut" il est mis manuellement sur la plage A15:G45 à partir des options de police de l'onglet Accueil , ainsi c'est celui qui est appliqué pour toutes les cellules ne correspondant pas au critère de la MFC

2) AaBbCcYyZz n'est pas un format c'est simplement l'exemple que met Excel pour montrer le résultat du  format d'écriture choisi dans la MFC, ici écriture noire, sans gras ni italique,etc , le format du fond (ici blanc), le format des bordures (ici bordure bordeaux) 
Quand tu as fait afficher la règle fais l'essai de cliquer sur le bouton Modifier la règle, tu verras toutes les options de choix de Format

3) Pour l'effacement du tableau et le reste la macro découle d'une procédure automatique d'Excel qui se déclenche lors d'un événement de feuille (objet Worksheet)
Les évènements qu'Excel reconnait sont par exemple l'activation d'une feuille,
le double-clic dans une feuille, un changement de sélection dans la feuille, la modification d'une cellule dans la feuille ....  C'est cette dernière qui est utilisée
Quand la macro est affichée dans l'editeur VBA et que tu cliques sur une ligne, en haut de la page s'affiche l'objet : Worksheet et à côté la procédure : Change
Tu peux faire apparaitre la liste des procédures en cliquant sur le petit triangle.

Précision, comme la procédure change s'applique à toutes les cellules de la feuille il faut cibler les cellules qui feront appliquer la macro (sinon bien elle se déclencherait à chaque modification n'importe où !) d'où la 1ere ligne
If Target.Address <> "$H$9" Then Exit Sub
qui fait sortir de la Sub sans effectuer le reste de la macro si l'adresse de la cellule modifiée n'est pas H9

4) Je termine dès que possible un exemple avec l'userform, j'ai commencé mais je n'avais pas mis la pathologie, je la rajoute 

5) Dans ton classeur Excel tu peux afficher ou masquer non seulement des lignes ou des colonnes mais aussi des feuilles (Clic droit sur l'onglet avec nom de la feuille et Masquer puis opération inverse Clic droit sur un autre onglet et Afficher pour choisir les feuilles à démasquer)
Le principe en cachant le modèle étant bien sûr de le garder intact car à la protection de la feuille on va ajouter une protection du classeur (Onglet Révision - Protéger le classeur - et on coche Protéger la structure et les fenêtres) mais avec un mot de passe cette fois
Une fois cette protection activée on ne peux plus masquer ou démasquer des feuilles, ni supprimer ou ajouter de feuille... (lorsqu'on fait clic droit sur un Onglet ces options sont grisées et inaccessibles)

Voilà, en espérant avoir répondu à toutes tes questions

Je te transmet le fichier dès que possible, je m'absente cet après midi mais je pense que ce soir ce sera bon

Bien cordialement
Via
"L'imagination est plus importante que le savoir."    A. Einstein

Aulane · Answer

11/10/2015
Bonsoir via 

Pas de problème, prends quand même le temps de vivre
Avec une bonne crève et un peu de nostalgie,  je t'écris ces quelques ligne qui n'ont rien à voir avec le programme  du Docteur Vial

Quel prof tu fais ! j'arrive à tout comprendre ! Par contre il faut que je me remette dans le bain, il y a q.q. années quand j'ai commencé à tripatouiller dans VBA, j'ai acheté des livres Excel et VBA chez ENI, j'ai de quoi monter un rayon de livres informatiques ; Je m'étais fabriqué à l'époque et sur plusieurs mois suivant l'avancement de mes connaissances des classeurs à reliures à anneaux dans lesquels j'avais répertorié les principales expressions que je rencontrais comme par exemple CheckBox, ComboBox, pour les formulaires ou MsgBox, ou pour les propriétés, ActiveCell, BackColor, etc. etc. tout çà s'était avant 2008 puis j'ai eu cette saloperie de neuropathie à bloc de conduction sur la main et le bras droit, ça m'avait filé un coup au moral d'autan que pendant près d'une année j'ai eu affaire à des incompétents que seul mon portefeuilles intéressé, puis j'ai eu un sursaut de « fierté » j'ai repris le collier et fait q.q. petits programmes destinés à la famille et à des proches... Sur ces entrefaites, mes infirmières qui m'installent mes perfusions toutes les 5 semaines depuis 2010 m'ont demandé de leur concocter un petit programme pour la gestion de leurs patients, bien sûr j'ai accepté c'était le moment rêvé pour me remettre dans le bain, mais loin d'imaginer dans quelle galère je m'engageais, je me suis aperçu de l'ampleur de la tâche lorsque j'ai rédigé l'algorithme sur les désidérata  de ces dames, mais j'avais l'envie, puis est apparue la période des « mer... » j'ai changé de produits, le situation se dégrade toujours un peu plus de cure en cure et j'ai un peu perdu la foi dans ce que je faisais pour qui, pourquoi, j'ai levais le « pied » et ayant des trucs à faire à l'atelier (quand il est besoin, je crée des trucs pour pallier le manque de main droite) en bois et en ferraille notamment pour le tracteur, je me suis remis au dessin 3D (en 2004 j'ai écrit un livre pour la maîtrise de TurboCAD 2D qui a pas mal marché 400 pages A4 avec dessins et commentaires concis) et là depuis environ 2012 VBA m'a en quelque sorte « survolé » allégrement !
Je t'écris tout çà pour que tu ne te fasses pas une fausse idée du bonhomme et penser que tu as affaire à un « rigolo ». Quand tu l'auras lu, si tu en as le temps, tu pourras l'envoyer à la corbeille, ça ne vaut pas mieux.
Avec toi je me sens prêt à retourner à l'école. C'est bête hein !?
Quand j'en aurai fini avec mon Docteur, j'essayerai de me replonger dans le programme de mes infirmières, si j'y arrive, tu risques bien de m'avoir de nouveau sur le « dos » si tu es d'accord bien sûr !
Je m'empresse de te dire que je fais cela absolument gratuitement pour le seul plaisir d'y voir fonctionner je dirai même la jouissance d'une « oeuvre » réussie.
Bien à toi, cordialement
aulane

via55 · Answer

Bonsoir Aulane

Je ne fais pas une fausse idée du bonhomme comme tu dis !
Et je comprends parfaitement "la jouissance d'une oeuvre réussie"
Ce sentiment doit animer plus d'un des bénévoles que nous sommes à participer à CCM

Voilà la première mouture du fichier opérationnelle :
http://www.cjoint.com/c/EJlwtbpto43

A l'ouverture du classeur l'userform demande les données puis copie la feuille modèle, y inscrit les données et enregistre le classeur sous le nouveau nom composé des nom, prénom et 7 chiffres du n° SS (Pour voir la macro dans Editeur VBA clic droit  sur le nom de l'UF (Donnees) dans l'arborescence, cliquer sur le bouton Valider de l'UF)
La macro qui copie la feuille modèle est elle dans le module 1 (la macro associée au bouton Valider la lance) car elle sert aussi lors de l'ajout d'une nouvelle feuille de suivi

J'ai rajouté un bouton dans le Modèle qui sera ainsi dans toutes les feuilles de suivi et qui permet d'ajouter une nouvelle feuille de suivi (la macro recopie alors les données du patient qui ne changent pas (nom, etc) sur la feuille précédente)

Lorsqu'on rouvre ensuite le classeur du patient X on tombe tout de suite sur la ou les feuilles de suivi, l'UF ne s'affiche pas, pourquoi et comment ? Grace à la macro mise dans ThisWorkbook (au bas de l'arborescence) qui gère les évènements du classeur 
La macro s'applique à l'ouverture du classeur et si le nombre de feuilles du classeur est 2 (c'est qu'il n'y a que la feuille Accueil et la feuille Modèle, on est donc dans le cas de la création d'un nouveau dossier patient) la macro rend la feuille Accueil visible et affiche l'UF
(J'avais pensé au début baser cette macro sur le nom du classeur modèle, mais comme l'utilisateur peut changer le nom dudit classeur la macro n'aurait plus fonctionné !)

En attendant de savoir ce que tu en penses

Bien cordialement
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

Aulane · Answer

Bonsoir via,

Inutile de te dire ce que j'en pense, tout superlatif serait en dessous de ce que je ressens et vraiment, je n'ai pas encore regardé du coté des macros, mais vu les commentaires, je vais me régaler.
Cependant comme « d'habitude », je vais procéder par ordre pour mes remarques (plus ou moins pertinentes d'ailleurs)  à savoir :
1.	A l'ouverture du fichier l'écran devient bleu uniforme avec un titre « NOUVEAU PATIENT » en haut à gauche de l'écran et le formulaire « ENTRÉE DES DONNÉES » sur le deuxième écran (comme je travaille sur 2 écrans ce qui me permet de créer sur un et voir le résultat sur l'autre surtout en dessin).
2.	Je pense que je devrais pouvoir attribuer le 1er écran à l'affichage de cette première page et axer le formulaire au milieu de l'écran.
3.	Sauf que lorsqu'il n'y a qu'un écran il suffit de cadrer l'objet par rapport au bord gauche et par rapport à la limite supérieure ! mais avec deux écrans est-ce toujours la limite établi sur le 1er qui prévaudra pour positionner un formulaire par exemple ? ce qui voudrait dire pour installer des objets destinés complémentaires au 1er, dans le deuxième écran, les limites gauche et haute d'un objet de cet écran seraient établies en fonction du premier écran (il va falloir que j'essaie) 
4.	En cas d'erreur (clic sur le bouton feuille de suivi) il n'existe aucun moyen de faire machine arrière, ne serait-il pas judicieux de prévoir un espace Frame avec 2 boutons radio (on peut libeller comme on veut) par exemple le premier bouton indiquerait « TRAITEMENT OROGINAL » et le second « TRAITEMENT SUPPLÉMENTAIRE » et ce dernier ferait apparaître le bouton « INSERE .. » que tu as prévu (pour se tromper il faudrait alors y mettre la bonne volonté) à toi de juger de la pertinence.
5.	OK pour le reste ça me semble parfait.
6.	Une idée saugrenue ? peut-être pas, par expérience je pense que si cela n'est pas trop compliqué, notamment pour les patients dont le traitement dont la pathologie nécessite des soins répétitif, (comme c'est mon cas), ce serait bien que les feuilles soient nommées automatiquement par la date de début du traitement en cours d'élaboration et empilées devant les suivante datées de la même façon par H8 ainsi ce serait toujours le dernier traitement exécuté qui se trouverait à droite de la nouvelle feuille créée plus pratique que de déplacer <X> feuille pour accéder au dernier traitement
Maintenant une question pour parfaire mon éducation : (et là « « y a » du boulot !)
Je n'ai jamais bien su (voir même pas du tout su dans une arborescence de l'éditeur macros) le rôle des différents sujets, notamment et dans l'ordre où je lis l'arborescence de notre fichier

	La première ligne « VBAProject(New Vial.xlsm) d'après mes connaissances c'est le nom du projet en cours ? Jusque-là ça va ! mais si je change le nom du fichier que devient le nom VBAProjet(New Vial.xlsm) est il remplacé automatiquement le nouveau nom du fichier ?
	La 2e ligne Données : Dans ce fichier elle contient l'UserForm (c'est un formulaire de saisie ?) ça ne sert qu'à çà ? (j'en avais créé un très complexe pour mes infirmières)
	Les Feuil1 2 3 etc. quel est leur rôle exact ? Et pourquoi en faut-il plusieurs
	Et les Modules 1 2 3 etc. quel est leur rôle ? Et pourquoi en faut-il plusieurs aussi
	Et la dernière ligne ThisWorkbook  qu'est-ce que c'est exactement ? 
Bon, maintenant je vais imprimer toutes les feuilles de macros et essayer (et réussir) à les digérer. C'est vrai que les lectures du soir sont celles que la mémoire retient le mieux
Très cordialement
aulane

via55 · Answer

Bonsoir Aulane

Nouvelle version avec feuilles dans l'ordre que tu voulais et nommées par dates
http://www.cjoint.com/c/EJmvQwjbec3

J'ai fait quelques modifications de présentation et rajouté un message de confirmation pour la création d'une nouvelle feuille pour prévenir l'erreur de manip

J'avais oublié de te dire pour le précédent fichier que, comme pour celui-ci, le mot de passe actuel pour la protection du classeur est via, mais tu l'auras peut être trouvé dans les macros en les étudiant. Si tu changes ce mdp il faut bien sûr le changer dans les lignes de macro

En réponse à tes questions

1) Pour l'affichage sur 2 écrans je ne sais pas !

2) dans l'arborescence VBA :
a) Oui le nom de la 1ere ligne est celui du fichier et s'adapte automatiquement
b) Oui c'est l'userform, ce n'est pas forcément qu'un formulaire de saisie, on peut y faire afficher du texte, des images ... 
c) Les feuilles 1 et suivantes correspondent aux feuilles de ton classeur, dans celui de départ il n'y en a que 2 Modèle et Accueil, dans celui d'un patient il y en aura plus puisque vont s'ajouter les feuille de suivi
Chaque feuille a ses propres macros gérant les procédures d'évènements, par exemple dans ce fichier les modifications des cellules H8 et H9 ou le clic sur le bouton pour créer une nouvelle feuille (ici elles ont identiques d'une feuille sur l'autre pour le Modèle et les suivis puisque ces dernières ont des copies de la 1ere et que la copie copie (heureusement) en même temps les macros affectées
d) Question module il n'y en pour l'instant qu'un, quand on a plusieurs macros on peut soit toutes les placer dans un même module, mais c'est vite galère dès qu'il y en a beaucoup pour atteindre la dernière soit insérer d'autres modules et les répartir dans les modules par thème par exemple (celles qui servent à modifier, celles qui servent à sauvegarder, celles qui servent à imprimer etc) . On peut d'ailleurs aussi renommer les modules pour avoir des noms plus explicites que Moduel 1, 2 ..
e)  This Workbook gère les procédures d'évènements du classeur (à l'ouverture, à la fermeture, à la sauvegarde)
Dans le fichier il y a justement une macro qui se déclenche à l'ouverture du classeur et qui va faire afficher l'userform si nécessaire comme je l'explique à la fin de mon message n°33

Bien cordialement
Via

aulane · Answer

Bonjour Via55 Je te renvoie mon fichier dans lequel j'ai fait des modifs importantes, comme par exemple mettre les totaux en tête de colonne (je l'avais fait pour les q.q. programmes que j'avais fait pour mon entreprise - devis entre autres- mais pour moi ce petit programme était plutôt statique donc pas à modifier) bref, pour en revenir à ... « mes moutons » je bute sur la formule qui permet de modifier le nombre de ligne du tableau des notes et q.q. petites questions. 1. Quelles fonctions utiliser pour créer cette formule 2. À quel endroit de la saisie par le préposé à la saisie des coordonnées patient ? 3. Je voudrais faire ressortir en rouge (par exemple) les chiffres pour résultats et dates par exemple la ligne V40 comporte a. une date b. une note c. Un nombre de jours d. Il me semble (de mémoire) qu'il faut juste avant l'indication de ligne ou d'une formule voir d'une fonction une instruction basic du genre en langage « clair » « mettre en rouge » puis < : > ou < ; > ? Je suis un peu perdu, mais je pense que ce petit programme sur lequel je patauge lamentablement va me permettre de refaire surface. J'en ai plein d'autres que j'avais abandonné à cause de mes problème de santé et à 80 ans on encaisse moins bien qu'à 20 (ça s'appelle enfoncer une porte ouverte !) 4. Dis-moi ce que tu penses de mes transformations. 5. J'ai remplis la grille des notes avec les miennes d'un autre fichier dont l'échelle est inversée (à la demande du toubib de l'époque) ça correspond à rien mais ça permet de voir si tout marche bien, tu peux sans crainte de perte allégrement les effacer À part je crois ces petits problèmes je vais être prêt à régler la mise en oeuvre des protections et le remettre à mon toubib à ma prochaine hospitalisation, vers la fin du mois http://www.cjoint.com/c/EJcobGjzsYE Cette macros ouvre le fichier modèle 'Sub Modèle() ' ' Modèle Macro ' Ouvre le fichier modèle adéquat ' Workbooks.Add Template:= _ C:\Users\Pierre\AppData\Roaming\Microsoft\Templates\Neuropatie Motrice.xltm End Sub via55 - 2 oct. 2015 à 18:44 Bonjour Aulane Tout d'abord je te tire mon chapeau, à 80 ans travailler sur Excel et sur un projet complexe ! Tes modifications sont pertinentes. Pour que les lignes du tableau s'adaptent : les 3 premières lignes sont fixes puisque cure mini 3 jours En A18 mettre la formule : =SI(NB($A$15:A17)<$H$9;A17+1;"") et l'étirer jusqu'au bas En B18 mettre la formule : =SI(A18<>"";B17+1;"") et l'étirer Les formules de moyennes restent jusqu'en bas Pour afficher le quadrillage que dans les lignes valables, sélectionner la plage A18:H44 Accueil -Mise en forme conditionnelle - Appliquer une formule .; et entrer la formule : =$A18<>"" (bien respecter le $ devant la lettre et rien devant le nombre) et choisir Format Bordure .. Pour que le graphique s'adapte au nombre de lignes : Dans l'arborescence de l'éditeur VBA double clic sur la feuille Modèle Copier-coller la macro suivante et modifier ensuite le nom du graphique . Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H3" Then ActiveSheet.Unprotect 'Remplacer dans la ligne suivante Graphique 2 par le nom de ton graphique ActiveSheet.ChartObjects("Graphique 2").Activate ActiveChart.PlotArea.Select ActiveChart.SeriesCollection(1).Values = "='Feuil1'!$H$15:$H$" & Range("H9") + 14 ActiveSheet.Protect End If End Sub Reste pour la protection à verrouiller toutes les cellules de la feuille (selection de l'ensemble de la feuille en haut à gauche des lettres de colonnes) Format de cellule Cocher verrouiller Selectionner ensuite chaque cellule à remplir par l'utilisateur (B3:B6 ; F7; H8:H9 et C15:G44) Format et décocher verrouiller Proteger la feuille Onglet Révision Protéger la feuille sans mettre de mot de passe Enfin pour ce qui est de la mise en couleur d'une partie d'une phrase, c'est possible par macro à condition de connaitre l'emplacement et la longueur de la partie, sinon il y aurait la solution de tester caractère par caractère ceux qui sont numériques et de le changer de couleurs; lourd pour le résultat voulu ! Il te sera plus simple de décomposer la phrase (et la formule qui la compose) et la mettre dans plusieurs cellules à la suite, chaque nombre étant dans une cellule individuelle que tu mettras au format voulu (gras, rouge ....) qui sera facilement modifiable si nécessaire en plus Ainsi en W40 =" noté "; en X40 =C2 , en Y40 =" le ", en Z40 =INDEX($A$14:$A44;EQUIV($C$13;$C$14:$C44;0);1) etc Je n'ai pas fait les modifs directement sur ton fichier car il fait toujours bugger Excel chez moi! Je ne sais pas pourquoi Bon courage, Bien cordialement Via Réponse Bonsoir via55, Ton compliment me touche, mais si longtemps sans mettre le nez dans VBA laisse des vides difficiles à combler; j'ai tout à réapprendre... Bref! Je repense au bug que provoque mon fichier sur ton PC, je travaille sur deux écrans, serait-ce cela qui provoque ce bug ? J'ai bien rentré la formule =SI(NB($A$15:A17)<$H$9;A17+1;"") dans la cellule A18 4e jour (et l'ai étirée jusqu'à A44 bas de la colonne A! Ok j'ai essayé, ça marche mais seulement sur cette colonne A, ce qui semble normal, il manque l'extension aux colonnes C, D, E, F, G, H ? et l'effacement de la grille du tableau Mais où ça se corse, lorsque je rentre par glissement la formule =SI(A18<>"";B17+1;"") dans la cellule B4, ou par copier-coller ou au clavier. Dès que je l'ai étirée jusqu'à B44 (fin de la colonne B) ça a fait bugger Excel (Excel ne répons pas) et impossible d'en sortir sans fermer le fichier! Tétu, j'ai refait la manip, mais cette fois seulement en cellule B4, ça a bugger au bout de q.q. secondes, (Excel ne répond pas), puis ça a marché, j'ai donc étiré jusqu'à B5 et ça a buggé aussi un peu plus longuement et c'est revenu, j'essaye ce matin (4/10) de recopier de B5 à B7 chronomètre en main après 7 minute, j'ai eu le malheur de positionner la souris sur la cellule B7 en plus de (ne répond pas) ça a « flouté » le fichier sur l'écran et toujours rien après 10 minutes ! J'ai cliqué sur la croix de fermeture, une fenêtre est apparue me donnait le choix entre 3 possibilités, j'ai cliqué sur « Redémarrer le fichier » et q.q. instants après le fichier s'est affiché : les cellules B4 et B5 contenaient bien la formule, mais elle avait disparu des cellules B6 et B7. Pourquoi ça bug ? je suis revenu à un format de date standard jj/mm/aa ça n'a rien changé, C'est quand même bizare, J'ai modifié la formule de la colonne date en remplaçant les guillemets SI(A18<>"";B17+1;"") par < 0 > zéro, même résultat ! Mais est-il vraiment indispensable modifier la colonne date (B)? et comment faire pour que les autres colonnes C, D, E, F, G, H. s'alignes sur la colonne A? en effaçant tous les cadres. Je commence à avoir la tête comme un ballon sur-gonflé ! Je cherche une solution qui ne vient pas. Cordialement aulane http://www.cjoint.com/c/EJejrmFnAx8 De moi lundi 5 octobre 2015 Bonjour via55, Je viens d'avoir une idée pour supprimer ou réinstaller le quadrillage de mon tableau avec une instruction macro du genre : (on sur le modèle des 10 jours de cure en utilisant le modèle de formule saisie dans la cellule < A18 >) Je mélange formule Excel et macro D'abord la formule toujours en considérant nos 10 jours de cure, mais où la placer ? SI(ND($A$15:A17)<$H$9;A17+1;'''') Cette fonction supprime les jours au-delà du 10 donc à partir du 11e jour jusqu'au 30e jour c'est-à-dire de A24 à A43 et c'est là qu'il là de devrait intervenir la macro Macro1 Sub Effacequadrillage() `suppression du quadrillage du tableau de A24 à H43 Range (`'A24 :H43'').Select ` `A24 pourrait être remplacé par H9 + A14 (1er jour de `Cure et dans tous les cas H43 resterait H43 Selection.Borders(xlDiagonalDown.LineStyle = xlNone `ligne basse interieure du tableau ? Selection.Borders(xlDiagonalUp.LineStyle = xlNone `Ligne haute intérieure du tablea ? Selection.Borders(xEdgeLeft.LineStyle = xlNone `ligne coté gauche du tableau ? Selection.Borders(xEdgeTop.LineStyle = xlNone `ligne du dessus du tableau ? Selection.Borders(xEdgeBottom.LineStyle = xlNone `ligne du bas du tableau ? Selection.Borders(xEdgeRight.LineStyle = xlNone `ligne coté droit du tableau ? End Sub Macro2 Pour restaurer le quadrillage du tableau, pourrait-on faire lla même liste mais au lieu de xlNone Peut être mettre une fonction qui restaurerait (None, c'est aucun il faut trouver son contraire Que penses-tu de tout ça ? Et on pourrait appeler ce 2 macros dans une même instruction < SI > Du genre SI(SI(ND($A$15:A17)<$H$9;Macro1 ;Macro2 à créer) 8 octobre 2015 Fichier new Vial Bonjour via55, Je crois savoir pourquoi mon fichier fait bugger ton micro, je pense qu'il bug lorsque tu veux entrer la formule dans la colonne date et surtout lorque tu veux l'étirer vers le bas (c'est ce qui m'est arrivé) ! Explication : Tout à fait par hasard j'ai découvert dans cette colonne date un petit espace (Type zone de texte) sous le jour des dates et il est ineffaçable, aidé par mon informaticien, on a bataillé plus d'un quart d'heure, pas moyen de l'éliminer.( Si tu peux charger le fichier que je t'ai envoyé depuis le début, tu pourras contrôler ce que je te dis). Donc et c'est pour ça que je te réponds si tardivement, j'ai refais intégralement le fichier dans un classeur vierge (au clavier et sans copie/coller) j'en ai profité pour rallonger la durée à 31 jours maxi, c'est plus logique et là, tout s'est bien passé. Je vais passer tous les autres à la moulinette, je ne m'en étais pas rendu du fait que le fichier dont je suis parti pour moi, n'avait pas d'automatismes particuliers et je l'utilisais uniquement comme tableau de contrôle de la dextérité de ma main droite et je n'avais pas de souci de longueur du traitement qui était fixe à 5 semaines. De toute façon, je t'envoie le nouveau fichier que j'ai appelé « New Vial » je n'ai pas rentré toutes les formules que tu m'as envoy ées, je voulais te l'envoyer le plus rapidement (il n'est pas protégé) Cordialement aulane http://www.cjoint.com/c/EJinZbblA52 10/10/2015 Bonjour via Bien reçu et bien content que ce soit cette satanée zone intempestive qui nous créait nos bugs, je vais supprimer tous ces fichiers sauf 1 dans lequel je vais essayer de trouver d'où vient cette zone. Merci pour tout, mais je vais encore abuser de ton aide et pour ça, je vais procéder par ordre : 1. Il faut que je comprenne et que j'assimile toutes les données, les formules et macros que tu m'as ajoutés au fichier, car je ne peux pas me permettre de rester bouche baie si mon toubib me demande des explications, même rudimentaires (ce serait malhonnête !) en plus, il risque de me demander des modifs ... 2. Comme la dernière fois, je suppose (je n'ai pas essayé encore) que tu n'as pas nommé de mot de passe et qu'il doit suffire de déverrouiller la feuille entièrement par : Révision/Modification/Oter la protection. je pense savoir refaire cette protection, je l'ai fait déjà plusieurs fois peut être un peu moins compliquée 3. Forme conditionnelle voilà pour moi un peu la bouteille à l'encre, je patauge toujours dès que j'envisage de mettre des cellules en forme. Pourrais-tu me faire un petit schéma du processus et surtout quelle fonctions utiliser notamment : a. Pour l'affichage ou l'effacement des bordures et des textes des lignes 18 à 45 4. Idem pour les macros (je ne les ai pas trouvées pourquoi ?) lors du changement de jours : a. Effacement du tableau et reconstitution des bordures b. Je suppose que c'est la même qui contient aussi le déverrouillage des lignes nécessaires et verrouille les autres c. Celle qui adapte le graphique à chaque modification des données du tableau 5. En ce qui concerne l'enregistrement du classeur, la deuxième solution me semble la plus adéquate, elle oblige l'utilisateur à nommer son patient et par la même de libérer le fichier modèle, par contre il me semble que le N° de sécu ou de comptage automatique et itératif... seraient un bon remède pour éviter les confusions ! qu'en penses-tu ? 6. Certes il risque bien d'y avoir plusieurs fichiers par patient, ou faire comme pour mon cas personnel, mettre le premier fichier dans la feuille 1 du classeur, le deuxième feuille 2, etc. mais alors il faudrait peut-être enregistrer le fichier modèle dans le dossier modèle de Micosoft, auquel cas, il faudrait au départ créer un dossier automatiquement s'il est inexistant (en posant la question du nom à lui donner) dans lequel seraient enregistrés tous les patients systématiquement sans doublons (par exemple un dossier < CRITÈRES >) Voilà ce que m'inspire ce fichier, je te dois déjà beaucoup et je veux par cette occasion me créer un lexique sous forme de tableau intitulé < Pourquoi faire > dans lequel j'inscrirais ce que je veux faire et en vis-à-vis je noterais les instructions nécessaires pour obtenir les résultats dans ce cas présent ? 11/10/2015 Bonjour via, Je lis et relis ton dernier mail, même dans mes rêves les plus fous, je n'avais pas imaginé un tel degré de « sophistication », mais voilà ma curiosité naturelle veut que je comprenne les moyens employés (Fonctions, formules, macros...) je pense que tu as du utiliser la plupart des formules qui émaillent notre correspondance, je vais donc reprendre tous les courriers que nous avons échangé et les consigner dans un fichier spécial (avec les aides correspondantes que tu y as incorporées) 1. Pour l'affichage des bordures et de l'écriture : a. Tu me dis que par défaut la plage A15 :G45 n'a pas de bordure et écriture blanche ! Comment obtiens-tu ce format ? Tu vas surement penser que je suis une cruche... b. Pour les mises en forme conditionnelle, j'ai affiché la règle de format pour les cellules A15 :G45 et force m'est de constater mon « ignorance » à quoi se rapporte et/ou qu'indique le format AaBbCcYyZz (en fait comment ça marche ?) Çà ça m'intéresse au plus haut point entre autres ! 2. Pour l'effacement des lignes du tableau j'ai vu la macro qui gère tout ça, comment est-elle activée et à quel moment ? je l'ai regardée, j'ai presque tout compris ! (je connaissais par coeur une foultitude de commandes basic, j'espère qu'en me replongeant dedans, ça pourrait peut-être revenir...) 3. Il n'y a que la gestion du graphique, mais je crois que en y réfléchissant je vais comprendre je dois me replonger à fond dans VBA (tu as réveillé en moi, une passion que je croyais éteinte) 4. Pour la compréhension de l'utilisateur, il me semble qu'à l'appel du programme, le fichier modèle pourrait apparaître simultanément avec en surimpression une fenêtre userform dans laquelle pourrait être entré le nom/prénom/N° SS et voir même la pathologie (plus facile peut être pour reprendre les éléments essentiels en cas de suivi). la sortie de l'userform enclencherait le processus d'enregistrment pour un nouveau patient, ou d'un suivi mais il serait peut être judicieux de rajouter dans l'userform une case à cocher ou un bouton radio indiquant s'il s'agit d'un nouveau patient ou d'un « suivi »... 5. Il y a une chose que je n'ai pas bien compris, c'est la position masquée du fichier modèle ? Eclaire moi SVP Un peu long comme d'habitude, mais j'ai tellement besoin de lumière. aulane Réponse de via page suivante ? Réponse de via 11/10/2015 Bonjour Aulane 1) Pour le format "par défaut" il est mis manuellement sur la plage A15:G45 à partir des options de police de l'onglet Accueil , ainsi c'est celui qui est appliqué pour toutes les cellules ne correspondant pas au critère de la MFC 2) AaBbCcYyZz n'est pas un format c'est simplement l'exemple que met Excel pour montrer le résultat du format d'écriture choisi dans la MFC, ici écriture noire, sans gras ni italique,etc , le format du fond (ici blanc), le format des bordures (ici bordure bordeaux) Quand tu as fait afficher la règle fais l'essai de cliquer sur le bouton Modifier la règle, tu verras toutes les options de choix de Format 3) Pour l'effacement du tableau et le reste la macro découle d'une procédure automatique d'Excel qui se déclenche lors d'un événement de feuille (objet Worksheet) Les évènements qu'Excel reconnait sont par exemple l'activation d'une feuille, le double-clic dans une feuille, un changement de sélection dans la feuille, la modification d'une cellule dans la feuille .... C'est cette dernière qui est utilisée Quand la macro est affichée dans l'editeur VBA et que tu cliques sur une ligne, en haut de la page s'affiche l'objet : Worksheet et à côté la procédure : Change Tu peux faire apparaitre la liste des procédures en cliquant sur le petit triangle. Précision, comme la procédure change s'applique à toutes les cellules de la feuille il faut cibler les cellules qui feront appliquer la macro (sinon bien elle se déclencherait à chaque modification n'importe où !) d'où la 1ere ligne If Target.Address <> "$H$9" Then Exit Sub qui fait sortir de la Sub sans effectuer le reste de la macro si l'adresse de la cellule modifiée n'est pas H9 4) Je termine dès que possible un exemple avec l'userform, j'ai commencé mais je n'avais pas mis la pathologie, je la rajoute 5) Dans ton classeur Excel tu peux afficher ou masquer non seulement des lignes ou des colonnes mais aussi des feuilles (Clic droit sur l'onglet avec nom de la feuille et Masquer puis opération inverse Clic droit sur un autre onglet et Afficher pour choisir les feuilles à démasquer) Le principe en cachant le modèle étant bien sûr de le garder intact car à la protection de la feuille on va ajouter une protection du classeur (Onglet Révision - Protéger le classeur - et on coche Protéger la structure et les fenêtres) mais avec un mot de passe cette fois Une fois cette protection activée on ne peux plus masquer ou démasquer des feuilles, ni supprimer ou ajouter de feuille... (lorsqu'on fait clic droit sur un Onglet ces options sont grisées et inaccessibles) Voilà, en espérant répondre à toutes tes questions Je te transmet le fichier dès que possible, je m'absente cet après midi mais je pense que ce soir ce sera bon Bien cordialement Via -- "L'imagination est plus importante que le savoir." A. Einstein ? 11/10/2015 Bonsoir via Pas de problème, prends quand même le temps de vivre Avec une bonne crève et un peu de nostalgie, je t'écris ces quelques ligne qui n'ont rien à voir avec le programme du Docteur Vial Quel prof tu fais ! j'arrive à tout comprendre ! Par contre il faut que je me remette dans le bain, il y a q.q. années quand j'ai commencé à tripatouiller dans VBA, j'ai acheté des livres Excel et VBA chez ENI, j'ai de quoi monter un rayon de livres informatiques ; Je m'étais fabriqué à l'époque et sur plusieurs mois suivant l'avancement de mes connaissances des classeurs à reliures à anneaux dans lesquels j'avais répertorié les principales expressions que je rencontrais comme par exemple CheckBox, ComboBox, pour les formulaires ou MsgBox, ou pour les propriétés, ActiveCell, BackColor, etc. etc. tout çà s'était avant 2008 puis j'ai eu cette saloperie de neuropathie à bloc de conduction sur la main et le bras droit, ça m'avait filé un coup au moral d'autan que pendant près d'une année j'ai eu affaire à des incompétents que seul mon portefeuilles intéressé, puis j'ai eu un sursaut de « fierté » j'ai repris le collier et fait q.q. petits programmes destinés à la famille et à des proches... Sur ces entrefaites, mes infirmières qui m'installent mes perfusions toutes les 5 semaines depuis 2010 m'ont demandé de leur concocter un petit programme pour la gestion de leurs patients, bien sûr j'ai accepté c'était le moment rêvé pour me remettre dans le bain, mais loin d'imaginer dans quelle galère je m'engageais, je me suis aperçu de l'ampleur de la tâche lorsque j'ai rédigé l'algorithme sur les désidérata de ces dames, mais j'avais l'envie, puis est apparue la période des « mer... » j'ai changé de produits, le situation se dégrade toujours un peu plus de cure en cure et j'ai un peu perdu la foi dans ce que je faisais pour qui, pourquoi, j'ai levais le « pied » et ayant des trucs à faire à l'atelier (quand il est besoin, je crée des trucs pour pallier le manque de main droite) en bois et en ferraille notamment pour le tracteur, je me suis remis au dessin 3D (en 2004 j'ai écrit un livre pour la maîtrise de TurboCAD 2D qui a pas mal marché 400 pages A4 avec dessins et commentaires concis) et là depuis environ 2012 VBA m'a en quelque sorte « survolé » allégrement ! Je t'écris tout çà pour que tu ne te fasses pas une fausse idée du bonhomme et penser que tu as affaire à un « rigolo ». Quand tu l'auras lu, si tu en as le temps, tu pourras l'envoyer à la corbeille, ça ne vaut pas mieux. Avec toi je me sens prêt à retourner à l'école. C'est bête hein !? Quand j'en aurai fini avec mon Docteur, j'essayerai de me replonger dans le programme de mes infirmières, si j'y arrive, tu risques bien de m'avoir de nouveau sur le « dos » si tu es d'accord bien sûr ! Je m'empresse de te dire que je fais cela absolument gratuitement pour le seul plaisir d'y voir fonctionner je dirai même la jouissance d'une « oeuvre » réussie. Bien à toi, cordialement aulane ? Réponse de via le 12/10/2015 Première mouture Bonsoir Aulane Je ne fais pas une fausse idée du bonhomme comme tu dis ! Et je comprends parfaitement "la jouissance d'une oeuvre réussie" Ce sentiment doit animer plus d'un des bénévoles que nous sommes à participer à CCM Voilà la première mouture du fichier opérationnelle : http://www.cjoint.com/c/EJlwtbpto43 A l'ouverture du classeur l'userform demande les données puis copie la feuille modèle, y inscrit les données et enregistre le classeur sous le nouveau nom composé des nom, prénom et 7 chiffres du n° SS (Pour voir la macro dans Editeur VBA clic droit sur le nom de l'UF (Donnees) dans l'arborescence, cliquer sur le bouton Valider de l'UF) La macro qui copie la feuille modèle est elle dans le module 1 (la macro associée au bouton Valider la lance) car elle sert aussi lors de l'ajout d'une nouvelle feuille de suivi J'ai rajouté un bouton dans le Modèle qui sera ainsi dans toutes les feuilles de suivi et qui permet d'ajouter une nouvelle feuille de suivi (la macro recopie alors les données du patient qui en changent pas sur la feuille précédente) Lorsqu'on rouvre ensuite le classeur du patient X on tombe tout de suite sur la ou les feuilles de suivi, l'UF ne s'affiche pas, pourquoi et comment ? Grace à la macro mise dans ThisWorkbook (au bas de l'arborescence) qui gère les évènements du classeur La macro s'applique à l'ouverture du classeur et si le nombre de feuilles du classeur est 2 c'est qu'il n'y a que la feuille Accueil et la feuille Modèle, on est donc dans le cas de la création d'un nouveau dossier patient et la macro rends la feuille Accueil visible et affiche l'UF (J'avais pensé au début baser cette macro sur le nom du classeur modèle, mais comme l'utilisateur peut changer le nom dudit classeur la macro n'aurait plus fonctionné !) En attendant de savoir ce que tu en penses Bien cordialement Via ? Réponse à via 12/10/2015 11:54 Bonsoir via, Inutile de te dire ce que j'en pense, tout superlatif serait en dessous de ce que je ressens et vraiment, je n'ai pas encore regardé du coté des macros, mais vu les commentaires, je vais me régaler. Cependant comme « d'habitude », je vais procéder par ordre pour mes remarques (plus ou moins pertinentes d'ailleurs) à savoir : 1. A l'ouverture du fichier l'écran devient bleu uniforme avec un titre « NOUVEAU PATIENT » en haut à gauche de l'écran et le formulaire « ENTRÉE DES DONNÉES » sur le deuxième écran (comme je travaille sur 2 écrans ce qui me permet de créer sur un et voir le résultat sur l'autre surtout en dessin). 2. Je pense que je devrais pouvoir attribuer le 1er écran à l'affichage de cette première page et axer le formulaire au milieu de l'écran. 3. Sauf que lorsqu'il n'y a qu'un écran il suffit de cadrer l'objet par rapport au bord gauche et par rapport à la limite supérieure ! mais avec deux écrans est-ce toujours la limite établi sur le 1er qui prévaudra pour positionner un formulaire par exemple ? ce qui voudrait dire pour installer des objets destinés complémentaires au 1er, dans le deuxième écran, les limites gauche et haute d'un objet de cet écran seraient établies en fonction du premier écran (il va falloir que j'essaie) 4. En cas d'erreur (clic sur le bouton feuille de suivi) il n'existe aucun moyen de faire machine arrière, ne serait-il pas judicieux de prévoir un espace Frame avec 2 boutons radio (on peut libeller comme on veut) par exemple le premier bouton indiquerait « TRAITEMENT OROGINAL » et le second « TRAITEMENT SUPPLÉMENTAIRE » et ce dernier ferait apparaître le bouton « INSERE .. » que tu as prévu (pour se tromper il faudrait alors y mettre la bonne volonté) à toi de juger de la pertinence. 5. OK pour le reste ça me semble parfait. 6. Une idée saugrenue ? peut-être pas, par expérience je pense que si cela n'est pas trop compliqué, notamment pour les patients dont le traitement dont la pathologie nécessite des soins répétitif, (comme c'est mon cas), ce serait bien que les feuilles soient nommées automatiquement par la date de début du traitement en cours d'élaboration et empilées devant les suivante datées de la même façon par H8 ainsi ce serait toujours le dernier traitement exécuté qui se trouverait à droite de la nouvelle feuille créée plus pratique que de déplacer feuille pour accéder au dernier traitement Maintenant une question pour parfaire mon éducation : (et là « « y a » du boulot !) Je n'ai jamais bien su (voir même pas du tout su dans une arborescence de l'éditeur macros) le rôle des différents sujets, notamment et dans l'ordre où je lis l'arborescence de notre fichier La première ligne « VBAProject(New Vial.xlsm) d'après mes connaissances c'est le nom du projet en cours ? Jusque-là ça va ! mais si je change le nom du fichier que devient le nom VBAProjet(New Vial.xlsm) est il remplacé automatiquement le nouveau nom du fichier ? La 2e ligne Données : Dans ce fichier elle contient l'UserForm (c'est un formulaire de saisie ?) ça ne sert qu'à çà ? (j'en avais créé un très complexe pour mes infirmières) Les Feuil1 2 3 etc. quel est leur rôle exact ? Et pourquoi en faut-il plusieurs Et les Modules 1 2 3 etc. quel est leur rôle ? Et pourquoi en faut-il plusieurs aussi Et la dernière ligne ThisWorkbook qu'est-ce que c'est exactement ? Bon, maintenant je vais imprimer toutes les feuilles de macros et essayer (et réussir) à les digérer. C'est vrai que les lectures du soir sont celles que la mémoire retient le mieux Très cordialement aulane ? De via 13/10/2015 10:31 Bonsoir Aulane Nouvelle version avec feuilles dans l'ordre que tu voulais et nommées par dates http://www.cjoint.com/c/EJmvQwjbec3 J'ai fait quelques modifications de présentation et rajouté un message de confirmation pour la création d'une nouvelle feuille pour prévenir l'erreur de manip J'avais oublié de te dire pour le précédent fichier que, comme pour celui-ci, le mot de passe actuel pour la protection du classeur est via, mais tu l'auras peut être trouvé dans les macros en les étudiant. Si tu changes ce mdp il faut bien sûr le changer dans les lignes de macro En réponse à tes questions 1) Pour l'affichage sur 2 écrans je ne sais pas ! 2) dans l'arborescence VBA : a) Oui le nom de la 1ere ligne est celui du fichier et s'adapte automatiquement b) Oui c'est l'userform, ce n'est pas forcément qu'un formulaire de saisie, on peut y faire afficher du texte, des images ... c) Les feuilles 1 et suivantes correspondent aux feuilles de ton classeur, dans celui de départ il n'y en a que 2 Modèle et Accueil, dans celui d'un patient il y en aura plus puisque vont s'ajouter les feuille de suivi Chaque feuille a ses propres macros gérant les procédures d'évènements, par exemple dans ce fichier les modifications des cellules H8 et H9 ou le clic sur le bouton pour créer une nouvelle feuille (ici elles ont identiques d'une feuille sur l'autre pour le Modèle et les suivis puisque ces dernières ont des copies de la 1ere et que la copie copie (heureusement) en même temps les macros affectées d) Question module il n'y en pour l'instant qu'un, quand on a plusieurs macros on peut soit toutes les placer dans un même module, mais c'est vite galère dès qu'il y en a beaucoup pour atteindre la dernière soit insérer d'autres modules et les répartir dans les modules par thème par exemple (celles qui servent à modifier, celles qui servent à sauvegarder, celles qui servent à imprimer etc) . On peut d'ailleurs aussi renommer les modules pour avoir des noms plus explicites que Moduel 1, 2 .. e) This Workbook gère les procédures d'évènements du classeur (à l'ouverture, à la fermeture, à la sauvegarde) Dans le fichier il y a justement une macro qui se déclenche à l'ouverture du classeur et qui va faire afficher l'userform si nécessaire comme je l'explique à la fin de mon message n°33 Bien cordialement Via -- "L'imagination est plus importante que le savoir." A. Einstein Pour consulter cette discussion, cliquez sur le lien suivant : https://forums.commentcamarche.net/forum/affich-32552508-macro ? A via 14/10/2015 17:20 Bonsoir via, Je n'ai pas l'intention de modifier ton mot de passe, il me va très bien et comme ça pas de lézard en plus je n'avais pas essayé de rentrer en plein dans les macros du classeur , mais là c'est fait, j'ai vu ! J'ai fait les essais, ok pour le message dissuasif pour la fausse manip ça marche ! Deux petites questions me taraudent l'esprit : 1. Lorsque le Dr l'aura lancé, prêt à « remplir », il devrait logiquement le remettre à son patient sauf que toutes les infos rentrées librement par le Dr pourraient être modifiées par le patient, même si ça peut être involontaire mais préjudiciable, il doit être possible de créer une instruction disant en substance <> et le clic sur OK activerait le fichier prêt pour l'utilisateur en créant une protection « transparente » (avec mot de passe ou pas) afin qu'il ne reste modifiable que les 5 colonnes de critères à remplir 2. Le patient qui va avoir à gérer ce fichier doit-il être détenteur d'Excel voir une version récente ou, j'ai lu lors de mes innombrables lectures sur Excel (revues prof. et littérature sérieuse - ENI) il me semble avoir vu passer un truc parlant d'un « moteur » susceptible de faire fonctionner un fichier VBA sans posséder le logiciel de base mais c'est si loin, mais ça m'avait marqué car à l'époque où mes neveux et nièces procréaient allègrement j'avais pensé à faire une petite mise à jour d'un semblant d'arbre généalogique contemporain. Est-ce une vue de l'esprit ? Mais à l'époque j'avais ma boîte à faire tourner et l'époque n'était guère plus enviable qu'aujourd'hui alors j'avais souvent d'autres préoccupations et quelque fois je commençais des trucs... (quand on abandonne une série de formules ou d'application en route, on perd le fil et alors...) Bref ! J'ai ouvert le dossier, il faudra que je règle localement la gestion physique du fichier sur mon écran principal, j'ai pour me contrôler, le portable ou l'autre micro de bureau (tous les 2 sous Windows 10 et celui sur lequel je travail va y passer incessamment) Je pense que pour entrer dans l'original sans passer par le formulaire d'entrée je dois le récupéré dans mon arborescence !? c'est ce que j'ai fait d'autorité J'avais fait il y a q.q. années pour un collègue un petit programme tout en VBA qui calculait d'une part la quantité de nickel nécessaire pour traiter des pièces en électrolyse de façon à savoir comment charger le bain de traitement pour une quantité de pièces déterminée et d'autre part en fonction de la consommation de nickel, ressortir le coût unitaire de traitement. Je ne me souviens plus très bien quelles étaient les données ni les formules de conversion, temps, poids... ça tenait sur une disquette standard et il me semble bien que ça marché sur n'importe quelle bécane. Simplifications de notre « énorme » dossier « discutions », j'ai fait une copie papier de tous les courriers réciproques et j'envisage de détruire dans CCM tous les anciens courriers contenant notamment le rectangle qui faisait bugger, nos micros, y vois-tu un inconvénient ? Je pense qu'il faut que j'arrête mon bavardage, d'autant qu'à la suite de cette « littérature » j'expose à ton jugement la notice explicative que je vais remettre à mon Dr avec le fichier. Cordialement aulane Je l'envisage par CD voir clé USB mais est-ce que ce transfert peut être fait par email ? MISE EN OEUVRE DU CD 1. Placez le CD dans le lecteur de votre microordinateur 2. Activez dossier Excel du et transférez-le sur le bureau de votre micro soit par cliquer/glisser soit copier/coller, retirez le CD de l'ordinateur avant de commencer a travailler avec ce programme vous pouvez changer le nom de ce dossier si vous le souhaitez 3. Vous pouvez aussi le placer directement dans votre arborescence « Mes document » au niveau de votre choix ! Où qu'il soit, ce nouveau dossier enregistrera automatiquement tous les fichiers des patients, au fur et à mesure de leur création par leur Nom, Prénom et les 7 premiers chiffres de leur numéro de Sécurité Sociale afin de pallier les doublons souvent sujet de perte de temps, voir plus grave 4. Quitter le CD et le retirer du micro 5. Pour retrouver ce dossier, comme pour tout autre dossier, aller dans « Mes Documents » ce dossier se trouve dans l'arborescence à l'endroit om vous l'avez entré UTILISATION DU PROGRAMME Ce fichier a été protégé pour le mettre à l'abri d'éventuelles fausses manoeuvres 1. Ouvrez Excel et activer le dossier le fichier < Critères > ou du nom dont vous l'avez renommé ! 2. Dans ce dossier ouvrez le fichier 3. Ouvrir le fichier 4. Une fenêtre à compléter s'affiche à l'écran : a. NOM s'enregistre automatiquement en majuscules b. PRÈNOM s'enregistre automatiquement avec la première lettre en majuscules c. ÂGE ne peut comporter que 2 chiffres au maximum d. N° enregistré au bon format, le N° de Sécurité Sociale évite les doublons e. PATHOLOGIE pour indiquer au fichier le « mal » du patient en cas de prolongation 5. Renseignez toutes les cases en passant de l'une à l'autre en utilisant la touche TABULATION ou avec la souris (le passage du nom au prénom avec la touche tabulation se fait mais pas du prénom à l'âge de l'âge à la sécu et de la sécu à la pathologie, on pourrait aussi prévoir une majuscule pour la 1ere lettre du prénom mais bien forcer les minuscules pour l'identification du traitement ATTENTION (s'il te plait), JE SAIS FAIRE TOUT ÇA, MAIS JE NE SUIS PAS ENCORE PAS ASSEZ DANS LE BAIN POUR ME LANCER DANS DES MODIFS DANS LE CODE DE L'USERFORM ! ( laisse-moi le temps de me reprendre en mains, je disais à ma femme ce matin « je vais reprendre le programme d'Alice » cest mon infirmière tu m'as redonné le virus... promis dès que j'ai remis le nez dans mon fichier infirmière et surtout dès que je serai capable de re comprendre ce que écrit je te l'envoie) 6. Cliquer 7. A ce stade le curseur de la souris se positionne sur le complétez ce tableau en renommant les « CRITÈRES » qui s'inscriront en lieu et place en tête des colonne de notes et dans la colonne de droite saisissez les critères qui justifieront les notes de la 2e colonn en vis-à-vis 8. Ceci fait, renseignez ensuite les cases encadrées d'un trait Vert : a. Saisissez le nom du traitement b. Saisissez la date du début du traitement c. Saisissez le nombre de jours de contrôle entre 3 et 31 jours 9. Vous êtes prêt pour commencer vos contrôles et la courbe qui se déroule à la page suivante renseigne d'un coup d'oeil sur le cheminement du traitement

via55 · Answer

Une question que j'ai oubliée 
Pourquoi forcer le traitement en minuscules ?
Faut il quand même une majuscule à la première lettre ?
Le traitement n'est pas géré par l'userform mais on peut forcer les minuscules dans la macro associée aux évènements de la feuille

Aulane · Answer

De aulane à via 15/10/2015 14:08
Bonjour via,
La question des majuscules/minuscules, nonobstant que ces dernières prennes moins de place, lorsque pour mon travail je faisais une lettre, un devis etc. j'avais pris l'habitude d'écrire les noms en majuscules (plus faciles à gérer) et les prénoms en minuscules avec la 1e lettre en majuscule par respect des noms propres et des leçons de grammaire de l'école primaire et surtout par habitude. (mes modèles de courrier, devis, factures etc. étaient tous établis sur ce même format).

Ça fait une écriture supplémentaire: NOMPROPRE(prénom) pour Excel,  mais en VBA je ne sais plus.

Pour le verrouillage cellules remplies par le médecin y compris les critères, ton idée m'apparait frappée du coin du bon sens.

Concernant le moteur permettant d'utiliser basic sans Excel, je vais essayer de retrouver l'information et de toute façons, il doit exister une solution  car notamment dans la version familiale de Windows impossible d'accéder à l'onglet < Développeur > donc pas non plus aux macros, mais cela n'empêche Excel de lire des  macros mais pas d'en enregistrer de nouvelles. (tous les fichiers utilitaires en sont bourrés)

Merci pour la notice, je te la renverrai dès que je l'aurais mise en forme
Cordialement 
aulane

via55 · Answer

Bonjour Aulane

Pour les majuscules des noms et prénoms, j'avais bien compris (d'ailleurs pour les noms j'ai mis dès le début dans l'UF l'instruction Ucase(nom) pour passer tout en majuscule) et je suis d'accord 
Je viens d'améliorer l'UF pour que le prénom prenne une majuscule voire des majuscules lorsqu'il y a un prénom composé avec un tiret ou deux prénoms (c'est l'instruction PROPER en VBA)
Majuscule pour l'initiale de la pathologie également
Et blocage d'entrée non numérique dans l'âge et le n° SS
Je vais m'occuper (ce soir sans doute) de la partie remplissage de la feuille et verrouillage des cellules :

MAIS :

1) tu ne réponds pas à ma question qui était pourquoi forcer le nom du traitement en minuscules ? Faut il mettre au traitement l'initiale en majuscule.

2) Une autre interrogation qui m'est venue : tu as prévu un tableau avec 5 critères mais l'utilisateur devra-t-il toujours entrer 5 critères et les contrôles afférents ou peut il ne remplir que par exemple 3 critères ? ce qui change tout pour l'interdiction de compléter les cellules "vertes" tant que le tableau n'est pas rempli !

Bien cordialement
Via


 
"L'imagination est plus importante que le savoir."    A. Einstein

Aulane · Answer

Bonjour via 15/10/2015

1.	J'explique : patronyme et critères majuscule, forcer seulement les prénoms en minuscule avec initiale majuscule, (c'est ce que tu as fait) pour le reste on peut laisser le choix au responsable du traitement voilà j'avais mal traduit ma pensée mea culpa
2.	Oui j'ai prévu 5 critères parce que je suis parti de mon cas personnel qui avait séduit le docteur, mais si certaines cellules du tableau sont vides, elles ne seront pas prises en compte par les calculs des moyennes. Bien sûr, on peut toujours créer des programmes où tout est modifiable, (Nb de Critères donc Nb de colonnes etc. etc.) et on en sort plus ! le programme est prévu comme çà, il s'en sert tel quel ou pas c'est comme il veut ! éventuellement il peut me demander q.q. modifs pourquoi pas !? n'ai-je pas raison ? de toutes façons, pour le graphique, les moyennes serons calculées sur les cellules saisies de notes et les autres ignorées ; la seule chose qui risque d'être faussée, c'est dans le cas où se ne seront pas les mêmes colonnes qui seront occultées, les moyennes se calculeront sur des moyennes fantaisistes ! ou alors imposer que tous les contrôles soient bien remplis et que chaque critère soit bien noté chaque jour. Après tout, le patient qui accepte ce contrôle le fait avec son consentement, s'il ne le fait pas de manière sérieuse et systématique tant pis pour lui !!
a.	Peut-être prévoir une alerte si le tableau n'est pas plein, à voir !?
3.	Je crois  que pour les cellules vertes, l'essentiel est de ne pas pouvoir inopinément modifier :
a.	Le nom du produit
b.	Le nombre de jours de traitement
c.	Les dates de début et fin du traitement à fortiori le nombre de jour
Si j'ai encore loupé une marche, n'hésite pas, mais même si je ne cherche pas d'excuse, j'ai quand même rechoppé une cochonnerie et mon toubib (MT) m'a collé encore un « voyage » de médicaments (sirops, anti biotiques, cortisone...) et même ma femme me dit que parfois que « je perds un peu les pédales » mais comme dit la chanson « ça ira mieux demain... »
Quand ça va mal c'est à la veille d'aller mieux n'est-ce  pas ? !
Aujourd'hui le 16, je ne sais plus si je t'ai envoyé hier soir avant de partir (j'avais RV avec mon cardiologue à 19h comme d'hab. il avait du retard je suis rentré à 21h) du coup je te l'envoie (je prépare toujours mes courrier sur un page Word)
Cordialement
aulane

via55 · Answer

Bonjour Aulane

Non tu ne me l'avais pas envoyé
1) OK pour tout ce qui est dans l'UF de la manière dont je le détaillais dans mon message précèdent

2) En ce qui concerne le nombre de critères si je te posais la question c'est que s'il est variable et donc les lignes de contrôles remplies également il devient difficile d'interdire de remplir les cellules "vertes" tant que le tableau critères n'est pas complété car comment savoir s'il est complet ou non ?
Avec les 5 critères c'était facile, on s'assurait par macro que toutes les cellules  du tableau étaient remplies mais là .....

Pour l'instant j'entrevois 2 solutions possibles :

- soit on se contente qu'un critère seulement soit complété pour déverrouiller les cellules vertes car on peut supposer que lorsque l'utilisateur aura rempli le premier critère il remplira en suivant le 2nd etc 
- soit on ajoute sur la feuille un bouton pour valider lorsque les critères sont complet

Je préfère pour ma part la 1ere solution qui n'alourdit pas encore la page et la manipulation, et toi qu'en penses-tu , ou entrevoit-tu une 3eme solution ?

Je prépare néanmoins une version avec la solution 1 (car il me suffit d'adapter ce que j'avais déjà prévu pour 5 critères) et je te la transmet dès que possible pour essai; il sera toujours temps après de modifier pour adopter une autre solution

Bien cordialement
Via

via55 · Answer

Re,

Lire mon précédent message n°43 avant d'ouvrir la dernière version modifiée :
http://www.cjoint.com/c/EJqrbaa58zl

A tester dans tous les sens pour déceler d'éventuels bugs

Bien cdlmnt
Via

Aulane · Answer

Bonsoir via,

Merci j'ai donc bien fait de t'envoyer ma prose.
Finalement je crois qu'il ne faut pas se prendre la tête pour les critères, car en fin de compte, c'est la note inscrite dans le  tableau qui compte pour calculer les moyennes et peu importes la valeur intellectuelle  de ce sanctionne ! Si en cours de traitement le patient a la malencontreuse idée d'en modifier le contenu, ça n'aurait aucune incidence sur le résultat final car chaque note sanctionnera toujours le même contenu partiel d'un critère... On peut donc considéré que seuls les noms de critères 1, 2 etc. (surligné en jaune devra être saisi pour qu'ils apparaissent dans les colonnes) et les colonnes de notes seront protégées de façon à ce qu'elles ne soient pas « galvaudées » et remplacées par de quelconques hiéroglyphes ou autre âneries.

Peut-être éditer avant protection un avertissement pour le responsable du programme (ça peut être plus tard un ou une infirmière ou un kiné, on peut tout contrôler avec ce programme) indiquant que le programme ne sera pas « négociable » si les instructions mises en avant ne sont pas saisis (choisi le terme qui te convient) et laisser donc le patient et le responsable remplir les contrôles, je l'avais moi-même fait au moment où j'ai décidé de l'appliquer au protocole de lime, nous avions choisi avec ma neurologue 5 critères et l'échelle des contrôles de la vie pouvant être notés, en fait c'est plus logique que d'imposer des contrôles plus ou moins adéquats pour tout le monde (chaque individu a des destinées particulières, difficile de définir un patient lambda) je pense que lorsqu'un toubib ou tout autre responsable aura envisagé d'utiliser ce programme, il aura discuté au préalable avec son patient ce qui sied le mieux et c'est seulement à ce moment-là qu'ils qu' ils pourront examiner la pertinence si une note pourra ou pas sanctionner un élément d'un critère ! Si tu as mieux, je prends !Mais ne te creuse pas la tête inutilement, fait pour le mieux et bien sûr n'hésite pas à m'interroger si j'ai manqué une « marche ».
Cordialement
aulane
PS je n'ai pas encore ouvert ta dernière mouture, ce sera demain matin! bonne nuit

Aulane · Answer

Essai nouvelle mouture le 17 octobre 2015
Bon ça commence mal :

	J'ai rempli UF : nom, prénom, âge, sécu (13 chiffres quelconques)), patologie,Rhum ! le micro bug dès que je fais VALIDER, fenêtre de débogage  s'affiche à l'écran titrée « Erreur d'exécution'91' » et le texte dessous : « Variable objet ou variable de bloc With non définie » après l'appui sur débogage,  l'écran affiche le module 1: « If ActiveSheet.Name = "xxxx" Then MsgBox "Impossible de créer une nouvelle feuille alors que celle-ci n'est pas complétée": Exit Sub » mais de quelle feuille n'est pas complétée ?
	J'ai bien cherché, mais je n'ai pas trouvé cette variable de bloc With. Est-ce que la sécurité ne serrée  pas placée trop tôt par rapport à la feuille « ACCUEIL» empêchant de créer cette première feuille je pense conforme au « MODELE », prête a recevoir les données saisies dans UF ainsi que les données à la discrétion du responsable du traitement comme nous l'avons défini dans nos précédents mails. En fait je marche sur des oeufs.
	Pour l'instant je n'ai pas trouvé la faille, tu vas sûrement m'éclairer.
Cordialement 
aulane

via55 · Answer

Bonjour Aulane

Je ne comprends pas non plus  ! 
D'une part ça fonctionne parfaitement chez moi
D'autre part la ligne de macro est dans la macro nouvelle_feuille associée au bouton sur les feuilles pour en créer une nouvelle OU lancée  par la macro associée au bouton valider de l'UF
il n'y a pas de bloc With ... End with dans la macro nouvelle_feuille mais il y en a un dans la macro associée au bouton Valider

Question : Le message de débogage s'affiche dès l'appui sur Valider et tu restes sur la page d'Accueil ? la copie de modèle ne se fait pas et ne s'affiche pas ?

Refais l'essai en rouvrant le classeur et en notant scrupuleusement les Nom, prénom, âge n° de Secu et pathologie que tu rentres pour essai pour me les communiquer ensuite pour que je fasse la même manip de mon côté 

Bien cdlmnt
Via

via55 · Answer

Re,

En complément de mon message précédent, la toute dernière version, voir si elle fonctionne mieux
http://www.cjoint.com/c/EJrw5NHwtxl

Bien cdlmnt
Via

Aulane · Answer

bonjour via, ne fonctionne pas mieux, la preuve, un peu longuet, et ficjhier utilisé joint Le bug 18/10/2015 09:13 Bonjour via, Hier soir j'étais trop dans le seau, je me suis couché tôt (j'ai la crève depuis 2 semaines et bourré de cochonneries diverses et variées) mais ça ne m'a pas empêché de cogiter (au ralenti) je pense que c'est mon antivirus qui doit provoquer ce bug, je développe le film : 1. J'appelle CCM et la consultation « http://www.cjoint.com/c/EJrw5NHwtxl » 2. Je clic sur l'adresse du joint« EJrw5NHwtxl_....xlsm » en bas de la fenêtre Joint.com 3. Aussi tôt Excel est activé avec le drapeau m'indiquant « Ce fichier provient d'un emplacement Internet et peut présenter ....sécurité. Cliquer pour plus d'information (plus loin) Activer la modification) 4. Je clique, la fenêtre « ENTRÉE DES DONNÉES » s'affiche, je la remplie avec mes données personnelle (donc je suis sûr qu'elles sont conformes) 5. Je valide et patatras « Erreur d'exécution /variable...With... » 6. Je clique sur fin de débogage et je reste planté sur l'écran d'accueil 7. Je ferme le fichier sans enregistrer en gardant le fichier Excel de fond d'écran 8. Je clique sur l'onglet FICHIER et une liste impressionnante de « Classeurs récents » quasiment tous les essais que j'ai fait sur ce fichier 9. Je clique sur le premier en fait celui d'aujourd'hui la fenêtre des données s'affiche, je la remplie 10. Et je valide et là surprise le fichier vierge s'affiche... à la bonheur 11. Une info Microsoft me demande si je veux remplacer le fichier existant je clic sur oui 12. Jusque-là ça marche, je continue mon remplissage a. Médicament et j'appui sur TAB ça marches : Bandeau Excel « Vous devez remplir le tableau des critères/contrôles ci-contre à droite » b. Qu'a cela ne tienne, je clique sur OK et je recommence c. Re médicament en minuscules et « Entrée » même bandeau Excel même discours 13. Je remplie donc les 5 critères et leurs contrôles respectifs et là TAB me renvoi au médicament 14. Je saisie le médicament, TAB passe à la date de début du traitement à la date du début du traitement 15. Je ne peux pas entrer une date, jai essayé en premier puis jj/mm/aa et enfin jj/mm/aaaa chaque fois le bandeau « vous devez entrer une date valideé (je pense qu'il s'agisse d'un manque de formatage de la cellule !?) a. Par contre je peux sauter cette étape avec TAB qui positionne le curseur sur la durée 16. Je saisie 4 jours et là biens sûr les 4 jours s'affichent mais du samedi 00/01/1900 au mardi 03/01/1900 et le bandeau Microsoft « Vous devez d'abord indiquer le 1er jour du traitement » 17. A partir de là c'est la folie je presse TAB x fois qui me ramènent au < Nom > que contre tout attente je peux effacer CETTE EXPERIENCE ME SUGGERE LES REFLEXIONS SUIVANTES EN RESPECTANT LA CHROLOGIE CI-DESSUS 1. Comment éviter que l'antivirus bloque, à part le couper pendant l'opération !? Difficile peut-être pour un toubib, qui ne maîtrise même pas le système de l'hôpital, qui lui, le bloquera définitivement, autrement je pense à la clé USB ou au CD ou peut-être d'inclure ce fichier dans un dossier, c'est lui que bloquera le système sans effet sur le fichier lui-même ? 2. Se rapporte aux réflexions ci-dessus 3. Ce clic sur ce conseil < Activer la modification > ! Que fabrique cette commande dans ce fichier (ce genre de situation est fréquent sur Internet mais jamais un tel résultat ! 4. Comme dit en 5 j'ai enregistré le fichier sur le bureau sous un autre nom pour un usage ultérieure 5. Ma validation bien sûr entraîne le scénario connu ! je ne comprends pas et je ferme le fichier sans l'enregistrer, mais une idée a germé dans mon esprit après avoir constaté une réaction dans Excel, qui m'a ouvert les yeux dans le listing des derniers fichier ouverts, pour en avoir fait l'essai presque involontairement 6. Idem 7. Idem 8. Ça devient intéressant est-ce que ça n'a pas endommagé le reste du fichier ? je remplie les fenêtres de donnée, je valide et j'obtiens le fichier vierge tel qu'il devrait apparaître dès le début. Et je l'enregistre tel quel 9. J'indique à Excel de remplacer dans la liste relevée dans l'onglet fichier ce fichier de même nom 10. Dans l'onglet fichier, je fais la même manipe, j'obtiens le même fichier vierge je remplie les données, je clique sur l'icône d'enregistrement intermédiaire, et indique à Excel de remplacer le fichier existant, par celui-ci, ça tourne encore rond 11. Je commence à remplir les autres données au fur et à mesure de l'avancement avec TAB enfin je le crois ! 12. Première déconvenue : je saisi le médicament dans la cellule et TAB et ça ne marche pas sur le bandeau Excel je clique OK et après plusieurs essais OK m'envoie directement sur critère 1. 13. Je remplie donc les 5 critères et les lignes de contrôles en m'aidant de TAB qui marche bien jusqu'à l'assiette après je dois continuer avec les touches flèches ou la souris pour changer de cellule et je presse TAB qui me renvoie aux médicaments 14. Je saisie le médicament Privigen (je rentre la majuscule de début manuellement) et je presse TAB qui m'envoie sur la date. 15. De 11 à 14 je pense qu'il doit y avoir une question de l'ordre de TAB la suite n'est pas mal non plus. ! je rentre la date comme dit en 15 ci-dessus pour les formats 16. Là je pense et j'espère qu'il ne s'agit que d'une question de format de cellule, puisque le bandeau d'erreur indique une saisie incorrecte du moins je l'espère. De toute façon je ne peux pas accéder au format de cellule. Midi, il est temps de se restaurer pour prendre des forces (j'en ai bien besoin !) 17. 14h en même temps que le repas j'essaye de digérer et comprendre surtout, cette déconvenue informatique pas facile j'avoue que pour l'instant je subis je n'ai pas mis le nez dans le programme (mais ça va venir) 18. J'occulte la date avec TAB, ça marche et je saisie 4 pour 4 jours et TAB et là normal, il faut d'abord saisir la date de départ (les 4 jours, les quadrillage du tableau se sont bien affichés, mais pas de changement dans le graphique, normal la phase précédente est bloquée. Je clique sur OK. 19. J'occulte cette dernière saisie (Nb de jours) autrement dit, je n'ai ni date ni durée, je presse sur TAB qui me renvoie directement dans la cellule du 1er critère nommé maintenant COUTEAU 20. Si je continu TAB je refait tout le tableau des critères et contrôles et me renvoi sur la cellule de saisie du nom ; ce qui devrait être impossible normalement En conclusion, mis à part le problème de date, le reste ne devrait être qu'une question d'ordre des tabulations et peut-être quelques interdictions à replacer au bon endroit. Je vais essayer de mon côté de me replonger dans les macros et listing VBA pour voire si je suis encore capable de faire queque chose avant d'envisager une reprise totale de mes ambitions. Excuse moi d'avoir été un peu long, mais je voulais faire l'analyse de ce bug, en parallèle je te renvoie le fichier que j'ai sauvegardé sur le bureau Cordialement aulane https://www.cjoint.com/c/EJspkN1lVZ2

via55 · Answer

Bonsoir Aulane

1) Je ne comprends pas pourquoi ton Excel combiné à l'antivirus bloque l'accès et occasionne le bug, alors que cela ne le faisait pas sur les précédents fichiers échangés ! On pourrait penser que c'est à cause des macros mais il y en avait déjà avant. Là ça dépasse mes compétences !

2) Apparemment si le blocage se fait à cause d'Internet ce ne sera peut être pas le cas avec USB ou CD

3) Je pense que l'affichage d'erreur se fait peut être parce que la 1ere macro (qui affiche l'UF) s'exécute dès l'ouverture du fichier et comme il y a le blocage cela fait peut être planter dès l'ouverture, un moyen d'éviter peut être cela serait de ne pas faire afficher l'UF à l'ouverture mais mettre une bouton sur la page d'accueil avec texte style "Création d'un nouveau dossier patient" et que ce soit le clic sur le bouton qui lance la macro d'ouverture de l'UF, je vais préparer une version de ce style et te l'envoyer pour voir

4) En ce qui concerne la date, mea culpa, j'ai mis une Validation de données (pour éviter qu'on puisse rentrer autre chose qu'une date) et il faut mettre une date mini et une date maxi, je voulais mettre 01/10/15 comme date mini mais je m'aperçois suite à ta remarque que j'ai rentré 01/11/15 !! donc évidement en rentrant la date d'aujourd'hui erreur ! 
Pour modifier il te suffit :
1° de déprotéger la feuille (Onglet Revision - Oter la protection de la feuille , il n'y a pas de mot de passe)
2° Selectionner la cellule H8 puis onglet Données - Validations de données

5) Il n'y a pas d'ordre de tabulation dans une feuille Excel, l'appui sur la touche TAB fait passer à la prochaine cellule libre (celle à droite en principe) mais ici comme il y a des cellules verrouillées et la feuille protégée, la prochaine cellule libre après la durée (H9) est celle du premier contrôle du tableau critères (qui n'est pas verrouillé pour modifications éventuelles) et non pas celle du tableau journalier qui ne sera déverrouillé qu'avec la macro qui calcule le nombre de lignes nécessaires en fonction du nombre de jours rentré en H9
Je ne vois pas de moyen de faire autrement
Il es préférable d'utiliser la touche Entrée pour valider (les cellules vertes étant les unes en dessous des autres et les seules déverrouillées sur chaque ligne on passe automatiquement de l'une à l'autre) et la souris pour accéder à la cellule de son choix

Cdlmnt
Via

via55 · Answer

Re,

En complément de mon précédent message voici un exemple de fichier sans ouverture automatique de l'UF pour voir si ça marche mieux ainsi
http://www.cjoint.com/c/EJtaeOF55Wl

Une question m'est venu, lorsque le fichier est crée, à sa fermeture il y a la demande  Excel "Voulez vous sauvegardez les modifications", est qu'on laisse en l'état ou bien est ce qu'on prévoit par macro une sauvegarde automatique à la fermeture du fichier pour éviter que l'utilisateur ferme sans enregistrer par erreur de manipulation ?

Cdlmnt
Via

Aulane · Answer

Reponse au 19/10/2015 ci-dessus

Bonjour via
J'ai suivi la consigne et appelé le fichier comme prévu :
1.	La page d'accueil s'affiche avec un nouveau drapeau : Cliquer ici pour ...nouveau fichier
2.	Même restriction, antivirus !? je clique sur « Activer la modification »
3.	Je clique sur le drapeau (il ne s'efface pas) à l'apparition de la fenêtre « DONNÉES » bien centrée
4.	Je la remplie (avec des abréviations pour gagner du temps)
5.	Je valide avec la souris : ça marche et cela m'envoie sur la cellule CRITÈRE 1
6.	Je renomme les 5 critères, le dernier retour m'envoie sur le 1er contrôle de couteau M15
7.	Là je remplie les 30 contrôle par copie/coller (copiés sur mon fichier sauvegardé) sauf les deux dernières lignes que je saisie au clavier pour ne pas perturber le retour à la dernière ligne
8.	A la dernière je presse TAB et me retrouve en cellule B2 alors quel devrait être inaccessible 
9.	Je refait la manipe, avec la touche « Entrée » et là je me retrouve sur K15 critère « couteau » pas bon non plus, soit soit l'autre aurait dû me diriger sur  F7 ! Bon j'y vais manuellement (souris)
10.	Je saisie le traitement « provigen » avec ce style et cette orthographe
11.	L'appui sur « Entrée » m'envoie sur F4 N° de sécu (cette cellule pourrait peut-être rester accessible car le doc n'a pas forcément ce N° quand il prépare son dossier) 
12.	Par contre TAB m'envoie bien sur H8 pour entrer la date de début du traitement dans laquelle je rentre une date (au format jj/mm/aaaa) 12/11/2015 je ne sais pas quel format tu as rentré, je n'ai pas pensé à regarder dans les macros) je fais « Entrée » ça m'envoie en H9 NIKEL !
13.	J'essaie la date du jour avec Ctrl+ ; ça crée un bug ; je reviens en arrière et rentre la date ci-dessus 
14.	Dans H9 je saisie 4 jours pour éviter de passer trop de temps à saisir des notes en contrôlant le graphique, ça ne fonction qu'avec la touche « Entrée » et oblige à sauvegarder et protéger le fichier refusant dès lors toute intervention de modification ?? et m'envoie directement sur la 1e note de « couteau » ; j'essaie quelques modifs interdites, sauf les contrôle pour lesquels il n'y avait pas trop d'importance à les remplacer en cours de traitement car la note sanctionne toujours un contrôle quel qu'il soit OK
15.	Je remplies mes notes (personnelles récupérée d'un ancien fichier) OK ça baigne, le graphique suit normalement, le retour « Entrée me positionne dans le tableau critères sur « couteau » en relisant ton précédent courrier, c'est donc normal ce retour à « couteau »
16.	J'ai une idée (elle vaut ce qu'elle vaut) si on crée un touche de validation « inamovible » en bas de l'écran (une sorte de touche piano) on pourrait même compléter ce « piano » en y créant une touche « Enregistrer » que penses-tu de cette idée, je sais que cette création de touches piano existe je l'ai lu dans une de mes nombreuses documentations (notamment les collections des éditions ENI) il me semble que ça simplifierait l'exploitation du fichier en n'ayant qu'une touche pour sanctionner une action quelle qu'elle soit et préciser que la touche « Entrée » ne pourrait être utilisée OU PAS uniquement pour renseigner le tableau des notes, En outre, cette formule permettrait d'occulter totalement la feuille Excel en ne laissant à l'écran que le fichier développé seulement, j'avais essayé la formule lorsque j'avais lu l'article et bien sûr la formule pour rétablir Excel normalement, ici simultanément à l'enregistrement et à la disparition du fichier de l'écran en gardant dans le ruban un bouton de macro permettant de consulter en lecture seule le fichier pour prendre connaissance des résultats obtenus. (mais je crois que je pousse un peu loin le bouchon)
17.	Bref à quelques retouches près, il me semble que ça devrait gazer, mais pense à cette confusion qui peut y avoir pour l'utilisateur lambda, par exemple en ce qui me concerne, j'ai toujours modifié dans Excel le faite que l'appui sur « Entrée » change systématiquement de cellule pour moi je pré faire programmer les touches de direction, droite/gauche - haut/bas qui active le cellule renseignée, l'appui sur « Entré » ne faisant qu'accepter la saisie, je ne dois pas être le seul à avoir cette préférence sinon ce ne serait pas possible, il y a aussi de mémoire d'autres programmations de touches possibles (pendant près de 20 ans mes lectures du soir dans mon lit étaient des livres techniques, tant pour mon intérêt pour l'informatique ou lorsqu'il fallait s'adapter à des normes nouvelle que ce soit la norme c15-100 en électricité que sur les conduits de fumées dans les habitations ou les normes parasismiques dans la construction ce qui m'a permis de ne jamais avoir été mis en cause sur le plans des responsabilités de sinistres tant sur les garanties biennales que décennales voir trentennales depuis quelques années. Mais la rigueur coûte très très cher et n'est pas payée en retour. Mais toute cette philosophie m'entraine bien loin de mon fichier et pour y revenir :
18.	Dans un de tes courrier tu notais qu'il serait de bon alois de prévoir un avertissement à l'utilisateur quant à la sauvegarde de son travail, j'adhère totalement
Je te renvoie le fichier que je viens de remplir, je pense que tu pourras repasser sur les cellules pour refaire le même chemin et constater le mélange possible des touches TAB, Entrée et de direction.
Bon courage 
Très cordialement
aulane

via55 · Answer

Bonjour Aulane

Tu dis me renvoyer le fichier mais tu as du oublier de coller le lien !
En attendant de l'avoir mes premières réactions à quelques unes de tes remarques en reprenant ta numérotation :
6) il suffira dans la macro si la cellule cible est celle du critère 5 de sélectionner la cellule du traitement avec un Range("F7").Select
8) oui bizarre en effet je vais regarder pourquoi et on modifiera la macro comme dans la cas précédent pour envoyer toujours sur F7
11) Je ne comprends pas non plus, je pensais bien au cours de mes essais qu'on passait avec Entrée du traitement à la date ! A voir aussi

Par contre tu soulèves un point de changement, que le n° de SS reste accessible car il n'est pas forcément rempli au moyen de l'UF
Or pour l'instant si toutes les textbox de l'UF ne sont pas remplis il y a refus de valider et à la validation rappelle toi qu'on fait enregistrer le fichier avec les nom prénoms et les chiffres du n°SS pour éviter doublons , donc problème 
Faut il tout reprendre et autoriser l'enregistrement sans n° de SS ?
12) Il n'y a pas de format prédefini dans les macros puisque l'entrée n'est pas dans une UF mais dans la cellule donc gestion  par le format de cellule (Clic droit sur la cellule feuille déprotégée, Format, Date ..) Voir lequel estce et le changer si nécessaire
13) ?? pourquoi Ctrl; occasionne un bug, là aussi il me semblait avoir essayé et que ça fonctionnait
16) Là ça dépasse mes compétences ! qu'est ce que tu appelles une touche piano ?

Pour l'instant je regarde pour les passages d'une cellule à l'autre et j'attends ton avis sur l'histoire du n° SS 

Bien cdlmnt
Via

aulane · Answer

Bonjour via,
M'aurais-tu abandonné? ou peut-être as-tu d'autres travaux plus urgents?
Bref, dis-moi si nous pouvons encore collaborer, merci en tous cas pour tout ce nous avons fait! Surtout toi !
J'ai juste un petit point auquel j'aimerais bien que tu m'apporte une réponse, la question était " comment as-tu créé la page d'accueil", j'ai lu et relu les codes et je n'ai pas trouvé.
Merci de me répondre..
A bientôt j'espère
Cordialement
aulane

via55 · Answer

Bonjour Aulane

Non je ne t'ai pas abandonné ! J'attendais un retour sur le dernier fichier que je t'ai envoyé dans mon message 58. Peut être l'a tu fait mais je ne l'ai pas eu car ton message actuel porte le n° 60 et je ne trouve pas de message 59, bizarre ! Et après il y a eu les vacances de Toussaint

En ce qui concerne la page d'accueil j'ai simplement mis en couleur les cellules d'une page et placé un bouton auquel j'ai associé la commande qui ouvre l'userform. Si tu fais clic droit sur l'onglet de la feuille en bas et Visualiser le code il s'affiche le code associé à la feuille soit celui du bouton.

Si le dernier fichier que je t'ai envoyé fonctionne comme tu veux il ne reste plus je pense qu'à rajouter dans une macro la commande pour enregistrer le fichier final complet (avec nom-prenom-7 chiffres du n° SS) et détruire le fichier incomplet qui a été crée lors du remplissage de l'userform (voir un de mes précédents messages)

Dans l'attente de ton avis 

Bien cordialement
Via

aulane · Answer

Le mail du 1er que tu n'as pas reçu avec le site pour créer un Setup Bonjour via Surtout je ne voulais pas que tu croies qu'il était loin de moi de tout remettre en question, tel qu'il est, ce petit programme saura je pense satisfaire mon toubib, si ce n'est pas le cas tant pis pour lui, nous aurons bien travaillé, surtout toi bien sûr qui a su me redonner l'envie de recommencer... et j'ai plein de projets, en premier le logiciel de gestion des patients pour mes infirmières, qui reprennent du service à domicile pour cette cure du 2/11, puis le 7/12 je rentre de nouveau au neurologique me faire reposer une chambre implantable dans le thorax et pour faire bon poids, le 18/11 je rentre en clinique pour réparer un fluter sur le ventricule droit de mon coeur. Donc si tout va bien je vais commencer 2016 en pleine forme et je crois que tu n'auras pas fini d'être ennuyé par mes questions. Autre chose, j'ai trouvé sur internet, la façon de créer un < Setup >, je vais m'y atteler incontinent. En cjoint, je te passe le lien pour créer ce setup, j'ai lu quasiment tout l'article et j'ai trouvé ça très bien documenté, je vais faire l'essai' sur mon portable avec notre petit programme ; je te tiendrai au courant. A très bientôt à lire ta dernière mouture de « Critères » Très cordialement Aulane PS. Question subsidiaire quel VB utilises-tu, VBA inclus dans Excel ou VBA6 ? Juste pour savoir si ce serait bien que je me le procure, à moins que cela ne soit pas indispensable ?! Merci d'avance J'y reviens cet après-midi, j'ai trouvé comme je le dis plus haut, le logiciel de création d'un setup, je l'ai essayé, ça a l'air super sauf que pour moi il y a beaucoup d'anglais le dedans et je m'y perds un peu (et oui à 14 ans je suis entré en « cours complémentaire Le mail du 1er que tu n'as pas reçu avec le site pour créer un Setup Bonjour via Surtout je ne voulais pas que tu croies qu'il était loin de moi de tout remettre en question, tel qu'il est, ce petit programme saura je pense satisfaire mon toubib, si ce n'est pas le cas tant pis pour lui, nous aurons bien travaillé, surtout toi bien sûr qui a su me redonner l'envie de recommencer... et j'ai plein de projets, en premier le logiciel de gestion des patients pour mes infirmières, qui reprennent du service à domicile pour cette cure du 2/11, puis le 7/12 je rentre de nouveau au neurologique me faire reposer une chambre implantable dans le thorax et pour faire bon poids, le 18/11 je rentre en clinique pour réparer un fluter sur le ventricule droit de mon coeur. Donc si tout va bien je vais commencer 2016 en pleine forme et je crois que tu n'auras pas fini d'être ennuyé par mes questions. Autre chose, j'ai trouvé sur internet, la façon de créer un < Setup >, je vais m'y atteler incontinent. En cjoint, je te passe le lien pour créer ce setup, j'ai lu quasiment tout l'article et j'ai trouvé ça très bien documenté, je vais faire l'essai' sur mon portable avec notre petit programme ; je te tiendrai au courant. A très bientôt à lire ta dernière mouture de « Critères » Très cordialement Aulane PS. Question subsidiaire quel VB utilises-tu, VBA inclus dans Excel ou VBA6 ? Juste pour savoir si ce serait bien que je me le procure, à moins que cela ne soit pas indispensable ?! Merci d'avance » qui formait des « manuels » jusqu'au brevet industriel, niveau du bac professionnel d'aujourd'hui pour l'époque, et comme d'habitude un technocrate inculte avait décidé que les « manuels » n'avaient pas à apprendre l'anglais ; Comme quoi les cons ne sont une production récente !). Bref je te mets en cjoint l'adresse de ce logiciel Cordialement Aulane https://www.commentcamarche.net/faq/33511-creer-un-setup-d-installation-inno-setup-compiler ce que j'ai pondu aujourd'hui après t'avoir lu ! Bon j'ai compris, j'ai dû encore me mélanger les pinceaux, donc tu n'as pas non plus reçu l'adresse du site sur lequel j'ai pu charger le logiciel pour créer un setup (reçu de cs_Le Pivert). Je te l'envoie en même temps que le mail qui semble-t-il n'est pas parti. Ça va faire un peu longuet ! Concernant le programme lui-même, avant d'envoyer ce courrier, je vais le relancer à zéro une dernière fois pour tout contrôler et éplucher chronologiquement la progression et les moyens Conclusion En résumé, que la validation individuelles des données soient laissées au choix du médecin ou responsable du traitement peu importe sauf peut-être un souci d'harmonisation des commandes, rien à redire d'autre ; par contre le choix de passer aux critères avant de finaliser la fiche de renseignements (Produit, date, durée) si j'en ai émis l'idée (ce qui est loin d'être improbable) je peux dire que ça n'a rien de génial (mea culpa). Concernant la fin du « parcourt », il faut corriger le cheminement de M44 à B2 au profit de C15 ! Avoir ! En somme, le cheminement idéal serait peut-être le suivant en partant de l'accueil c'est-à-dire compris la fenêtre de l'entrée des données Adresse de 2 tableaux cordialement aulane http://www.cjoint.com/c/EKdqfgyJSiH

via55 · Answer

Bonjour Aulane

Voici la dernière version avec enregistrement provisoire et définitif (il ne manque que la suppression du fichier provisoire)
Positionnement sur le traitement à ouverture de 1ere feuille de suivi
http://www.cjoint.com/c/EKeme7o0f1T

Pas eu le temps de tout tester, je t'en laisse le soin, je suis absent toute la fin  journée, je reprendrais le fichier ce soir ou demain

Cdlmnt
Via

aulane · Answer

Bonjour via,

tout d'abord merci pour cette dernière mouture.
j'avais préparé un petit courrier que je te passe, puis je vais m'atteler à éplucher consciencieusement cette mouture.

04/11/2015 11:33
J'ai de plus en plus de mal à recadrer mes idées sur VBA
J'explique :
Dans les années 70-72 à 1980, je me suis lancé dans l'informatique, à cette époque le marché était bien maigre et les quelques entreprises qui avaient pignon sur rue (Victor, Apple, et autres disparues depuis)) se prenaient pour des phénix aussi orgueilleux que prétentieux ce qui souvent permettez à certains de cacher leur incompétence.
Tout ce préambule pour dire qu'en 1971 j'avais choisi une machine qui n'était ni un PC ni un Apple, avec des logiciels obscures sauf « Dbase2 » qui était un logiciel de programmation avec lequel j'avais créé quelques petites choses (programme de bibliothèque, de devis etc.) tant qu'il a été distribué en français (j'avais acquis pratiquement le code par coeur, artisan, je travaillais avec mon fils qui conduisait notre véhicule, et pendant nos déplacement je noircissais du papier avec du code Dbase pour tous les projets pouvant servir à l'entreprise) puis hélas juste avant 1980 les nouvelles moutures toutes reconditionnées sont apparues en anglais ! c'était foutu pour moi.
C'est à cette époque que je me suis tourné Microsoft avec mon premier PC (Victor) avec Multiplan, Works,  Calc et un « Basic » bien maigre qui a évolué au cours des décennies pour devenir le VBA qu'on connaît aujourd'hui ! et c'est là que le bât blesse pour moi, je n'ai jamais vraiment trouvé la méthode adéquate pour l'utilisé, apprendre par coeur le code est pratiquement impossible.
J'ai noirci des pages de codes avec en concordances les résultats dans des classeurs à anneaux au format A5 pour être plus manipulables, mais je patine dès que j'ai quelque chose à faire.
Tout ce qui précède pour la question suivante et autres commentaires :

	Existe-t-il une méthode pour connaître le code à utiliser voire à marier pour traduire un événement ou une action.
	Comment fais-tu pour savoir quelle instruction tu vas utiliser pour réaliser tel ou tel programme ?
	Sur un précédent mail je te demandais si tu utilisais seulement VBA d'Excel ou si utilisais VB6 ?
	Ma mémoire encaisse encore de retenir certaines choses à force lire et relire toujours les mêmes phrases, plusieurs fois.
	J'ai lu et relu tes feuilles de codes, j'en ai compris beaucoup, surtout avec tes rem , mais certaines expressions notamment les codes séparés par des points parfois ou comme par exemple ce genre de boucle, comment savoir que c'est ces codes qu'il faut employer ?
o	With Selection.Interior
o	        .Pattern = xlNone
o	        .TintAndShade = 0
o	        .PatternTintAndShade = 0
o	    End With

	Ou ces lignes avec des instructions en cascade
o	If Target.Address = "$F$7" Then ActiveSheet.Unprotect: Range("H8").Locked = False: _ Range("H8").Select: ActiveSheet.Protect
o	If Target.Address = "$H$8" Then ActiveSheet.Unprotect: Range("H9").Locked = False: _ Range("H9").Select: ActiveSheet.Protect

	Comment fais-tu?
Tu vas peut être te moquer, mais j'aimerais bien savoir comment m'y prendre pour me « performer » surtout si ma neuropathie m'empêche un jour de conduire, il faudra bien que je lutte contre la « folie »...
Excuse-moi si j'ai abusé de ton temps à lire mes états d'âme, mais je suis tellement heureux d'avoir rencontré (virtuellement) quelqu'un de ta compétence et de ta gentillesse ; et merci pour ta patience.
cordialement
aulane

via55 · Answer

Bonsoir Aulane

1 Les instructions à utiliser dépendent à la fois de la pratique, de la recherche sur Internet ou dans l'aide de Microsoft pour ce que je ne sais pas ou si j'ai un doute et de l'utilisation de l'enregistreur de macro
Par exemple celle que tu cites 
 With Selection.Interior 
 .Pattern = xlNone 
 .TintAndShade = 0 
 .PatternTintAndShade = 0 
 End With
provient typiquement de l'enregistreur (Onglet developpeur du ruban, Enregistrer une macro - je fais la manipulation que je veux sur la feuille, ici c'était effacer sur une cellule (ou un ensemble de cellules) la couleur mise précédemment et revenir à l'état "normal" - j'arrêtes l'enregistrement et je vais voir dans l'éditeur la macro qu'a crée l'enregistreur, je peux ensuite copier et coller les lignes qui m'intéressent dans ma vraie macro et les adapter

2) Il n'y a pas ici de boucle mais une instruction With ...End with qui évite de répéter une partie d'instruction identique pour chaque ligne, par exemple on veut sur la feuille nommée A mettre différente valeur en A1, B3 et D5, au lieu d'écrire :
Sheets("A").range("A1")="truc"
Sheets("A").range("B2")="chose"    
Sheets("A").range("D5")="machin" 
on écrit :
With Sheets("A")   
.range("A1")="truc"
.range("B2")="chose"    
.range("D5")="machin" 
End with

2 J'utilise le VBA d'Excel

3 If Target.Address = "$F$7" Then ActiveSheet.Unprotect: Range("H8").Locked = False: _ Range("H8").Select: ActiveSheet.Protect
pourrait s'écrire aussi (et de manière plus lisible je l'avoue)
If Target.Address = "$F$7" Then 
ActiveSheet.Unprotect
Range("H8").Locked = False:
Range("H8").Select
ActiveSheet.Protect
End if

4 A part quelques instructions très spécifiques ce sont souvent les mêmes qui reviennent dans les macros, donc on arrive à en retenir un certain nombre et à écrire le code comme on écrirait normalement ou comme on peut écrire uen formule

5 On peut aussi utiliser des fonctions existantes dans EXCEL (MOYENNE, etc)en VBA exactement comme on l'utilise dans une formule en utilsant la syntaxe Application.WorsheetFunction.Nom de la fonction en anglais (arguments)

Par exemple dans le fichier pour mettre des majuscules au prénom saisi dans l'Userform, la commande n'existant pas en VBA j'ai utilisé la fonction NOMPROPRE (PROPER en anglais)
prenom = Application.WorksheetFunction.Proper(prenom)

Tu peux trouver ici les correspondances français-anglais des fonctions usuelles :
https://www.commentcamarche.net/applis-sites/bureautique/1561-fonctions-excel-francais-anglais/
 
6 Enfin un bouquin qui donne simplement les bases et que je garde toujours à portée de main pour vérifier une syntaxe ou autre  "VBA pour Excel pour les nuls" aux éditions First, le mien date mais je pense qu'il existe toujours

Cordialement
Via

Aulane · Answer

05/11/2015 08:42
Bonjour via
J'avais préparé hier après-midi après l'essai du programme puis j'ai été dérangé (ma perfusion...) après j'ai oublié.
Avant tout, je te remercie de tes conseils très pédagogiques (je me suis revu 50 ans plus tôt lorsque mes apprentis avides de savoir -il y en avait quelques-uns - posaient des questions auxquelles je m'efforçais de répondre et on avait pas « google », la plupart sont devenus de bons professionnels et certains ont largement dépassés le maître... et c'est tant mieux) bon pas de nostalgie, je vais potasser sur le lien que tu m'as joint.

04/11/2015 17:07
Bonsoir via,

J'ai testé la bête (plusieurs fois) voilà ce que j'ai relevé :

	La saisie des données dans le formulaire en début de programme, avec Tab jusqu'au bouton « VALIDATION »
	Pour sortir du formulaire, touche « Entrée » sur le bouton VALIDATION ok !
o	Atterri sur F7 « traitement » et touche Tab (2 fois pour aller sur)

	H8 « date de début de traitement » touche Tab
	H9 « durée du traitement » touche Tab
o	Atterri sur K15 « critère 1 » touche Tab 1 fois envoie vers
?	M15 « contrôles » touche Tab 5 fois (pour remplir les critères de contrôles)
o	Atterri sur K21 « critère 2 » touche Tab 1 fois envoie vers
?	M21 « contrôles » touche Tab 5 fois (pour remplir les critères de contrôles)
o	Atterri sur K27 « critère 3 » touche Tab 1 fois envoie vers
?	M27 « contrôles » touche Tab 5 fois (pour remplir les critères de contrôles)
o	Atterri sur K33 « critère 4 » touche Tab 1 fois envoie vers
?	M33 « contrôles » touche Tab 5 fois (pour remplir les critères de contrôles)
o	Atterri sur K36 « critère 5 » touche Tab 1 fois envoie vers
?	M36 « contrôles » touche Tab 5 fois (pour remplir les critères de contrôles)
o	Touche Tab une 6e fois envoie à

	F7 « traitement » et là il y a ERREUR
o	Cette dernière action devrait aboutir à la cellule C15 (première cellule des notes à saisir)

De plus, si on continu avec la touche Tab, ça crée une espèce de boucle sans fin qui tourne à chaque appui sur la touche Tab, à savoir :

F7, H8, H9, K15, M15 ... M20,  K21, M21...M26, K27, M27...M32, K33, M33...M38, K39, M39...M44 et retour vers F7 et bis repetita

De plus impossible d'aller manuellement sur C 15 (peut-être le fait d'une protection non annulée ?) et le graphique ne s'est pas initialisè

Conclusion

	Il faut organiser le graphique (il me semble que le programme est fait, il a déjà fonctionné)
	Sauvegarder le fichier et le protéger avant de donner la main à l'utilisateur à la cellule C15

Que t'en semble ?

Autre chose, as-tu eu la patience de lire mon précédent message ?

Tiens-moi au courant
Amicalement
Aulane
Aujourd'hui ma dernière question a eu sa réponse, merci, merci, merci !
aulane

via55 · Answer

Bonjour Aulane

Dernière version avec effacement du fichier provisoire

 http://www.cjoint.com/c/EKfjEkSgvnT

Le fonctionnement que tu relates dans ton dernier message est normal et je ne vois pas moyen de  faire autrement :

Lors de l'entrée d'une durée de traitement, le message indiquant que lorsque c'est complet il faut finaliser apparait

Ce n'est qu'à l'appui sur le bouton vert Finaliser et Enregistrer que les cellules du tableau de notes nécessaires apparaissent et sont déverrouillées, que le graphique est débloqué, que toutes les autres cellules avec les données sont verrouillées pour éviter toute modification a posteriori, que le fichier est enregistré et que le fichier provisoire s'il existait est détruit.

Je ne vois pas de moyen de procéder de manière automatique car
-d'une part même lorsque toutes données sont complétées, le praticien peut vouloir en modifier une (la durée de traitement par ex) ou corriger une erreur avant de valider,  lui seul doit être juge du moment où le fichier est complet
-d'autre part les 5 critères ne seront pas forcément renseignés, le praticien peut vouloir évaluer que 3 ou 4 critères, donc aucun moyen par macro de vérifier que tout est complet

Donc tant que le fichier n'est pas finalisé la touche Tab fait forcément boucler sur toutes les cellules déverrouillées

Bien cordialement
Via

Aulane · Answer

05/11/2015 17:44
Bonsoir via,

Eh ! oui, mais c'est bien sûr !
OK, mea culpa, j'ai manqué la marche de finalisation, ce qui veut dire qu'un autre peut faire la même bévue.
Une idée pour pallier cette erreur, dès la fin de saisie M44, un message à deux alternatives,
1.	OK envoie le curseur sur Finalisation bouton vert qui peut même clignoter si on veut mettre un peu de fantaisie et/ou
2.	Un deuxième bouton qui renvoie comme c'est le cas quand on saute cette « finalisation » à B2 et la suite pour une éventuelle manipulation ou modification
L'avantage de ce message, impossible de sauter la commande adéquate, soit, ça fait une instruction supplémentaire encore, mais à mon avis on ne pas passer outre.

Que vaut cette idée ?

Dès que ce fichier va être fini, je vais le tester pour moi sur 31 jours seulement et plus tard je verrai quand j'aurais repris du poil de la bête à le faire fonctionner sur 5 semaines (cadence de mes cures). J'ai plein d'idées sur l'avenir de ce petit programme.

Autre chose, as-tu reçu le message par lequel je t'annonçais avoir trouvé la procédure pour créer un Setup et dans lequel je t'avais joint par cjoint le logiciel pour le créer.
Si tu ne l'as pas eu, je vais le retrouver dans mes sauvegardes, j'avais mis plein de petites choses...
Cordialement
aulane

via55 · Answer

Bonsoir Aulane

On ne peut pas passer par M44 car tu avais dit auparavant que ce n'était pas forcément le praticien qui remplirait les contrôles, il indique le nom des critères mais il peut laisser le soin à l'utilisateur de compléter les contrôles avec une assistance si nécessaire (c'est du moins ce que j'avais pu comprendre)
Et même si le praticien remplit les contrôles, s'il ne remplit que 3 critères sur les 5 et ne va pas sur M44 (en se positionnant avec la souris sur les cellules qu'il veut remplir, ce qui est la pratique de bien des utilisateurs) le message ne se déclenchera pas
C'est pour ça que j'ai fait afficher le message dès que les indications de traitement (nom, date et durée) ont été saisies puisqu'elles sont indispensables

Je ne vois pas de moyen de faire autrement sauf à mettre directement l'instruction pour finaliser et enregistrer  dans la feuille (en dessous de la durée par ex) et de l'effacer lorsque le clic sur le bouton finaliser aura été effectué

Bien cdlmnt
Via

via55 · Answer

Re,

Oui j'ai bien eu le message pour le SetUp mais pas eu le temps de me plonger dedans

Aulane · Answer

06/11/2015 10:31
Bonjour via,
Oui c'est vrai, je ne me souvenais plus qu'on avait envisagé le cas où tous les critères ne seraient pas retenus et ta première phrase reflète bien ce nous avions envisagé.
Oui ton idée est bonne, il faudrait sans faire une page d'écriture bien expliciter la manip.
C'est vrai que l'idéal serait dans le cas de non utilisation de tous les critères, de gommer les paragraphes « critères » concernés ou tout le moins les rendre inutilisables de même que pour les colonnes de la grille quotidienne de notation afin d'obliger la notation dans les colonnes initialisées.
Mais là on change de dimension et ça risque de devenir une « usine à gaz », j'essaierai peut être plus tard si j'en ai le temps.
Voilà pour le reste, tout me semble parfait, il me restera à placer les protections intelligemment si possible et de programmer mon Setup ! En plus j'ai un ami qui va me procurer un coucou sous XP pour me permettre d'utiliser mon imprimante Epson R320 pour imprimer sur les faces de CD (epson n'a pas mis le pilote à jour pour cette fonction de l'imprimante, du coup elle ne servait qu'accessoirement et normalement)
Ça c'est pour la petite histoire, elle me servait quand je faisais outre pour mon livre sur TurboCAD lorsque je le distribuais sur CD et pour les divers exercices de dessin 2D, 3D que je mettais à disposition pour les passionnés de dessin sur ordi.
Ça changera pas je resterai un éternel bavard.
Bien à toi
aulane

via55 · Answer

Bonsoir Aulane

Dernière version avec explication dans la page :
http://www.cjoint.com/c/EKgxh2faqOj

Ton idée de bloquer les cellules contrôles et celle de la grille de notation inutiles n'est pas mauvaise, je me penche dessus à temps perdu (je pense qu'on pourrait les griser et verrouiller les cellules )

Finalement c'est faisable facilement, donc voilà l'autre version avec grisé et verrouillage des cellules (le verrouillage par macro, le grisé par mise en forme conditionnelle)
http://www.cjoint.com/c/EKhadJB8cNj

Bien cdlmnt
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

aulane · Answer

12/11/2015 16:33

Bonsoir via,

Rien depuis quelques jours, je m'en excuse, beaucoup de problèmes et l'imprévu en plus, mon frère (le benjamin de la famille 64 ans) est décédé subitement après une maladie inconnue orpheline et incurable...
Plus ma préparation pour le 18 novembre (analyse de sang, consultation anesthésiste )
Donc, l'esprit occupé à 100% !
J'ai tout de même testé le programme, ça a l'air de coller, après la semaine prochaine (cette semaine qui s'annonce ne va pas être très propice à la réflexion) je testerai le programme d'installation automatique et me replongerai dans un test de notre programme plus approfondi, en essayant de suivre la progression dans le fichier VBE (j'y ai déjà bien sûr jeté un coup d'oeil, mais les instructions VB ne sont pas classée suivant la chronologie d'avancement sur l'écran), je pinaille un peu mais je devrais y arriver. Puis il me restera à le protéger, mais il me semble après avoir mené le programme jusqu'au bout, que tu déjà programmé la sécurité...
J'ai annoncé à mon docteur que je pourrai lui faire une démo le 7 décembre et je pense lui laisser le programme à l'essai, pour que lui, le teste en temps réel
Merci pour ton aide, sans toi il est probable que j'aurais abandonné en cours de route, à tout le moins, peut-être que j'aurais réussi à bidouiller quelque chose seulement avec Excel, mais rien n'est moins sûr.
Je te propose de rester en contact et de continuer de chercher des améliorations, par exemple voir la possibilité d'agir sur le nombre de critères et le nombre de notes, de même, toujours régir le détail du temps de traitements en jours dans le même format (pour la date de début) mais avec l'opportunité de régler la durée en nombre de semaines, par expérience je sais que certains traitements sont régis en semaines (pour mon cas, c'est 5 semaines ça commence toujours un lundi) mais il est vrai que les toubibs donnent parfois des médicaments pour 1, 2 semaines voir plus...
Et puis je vais me replonger dans mon programme pour mes infirmières, alors...
cordialement
aulane

via55 · Answer

Bonsoir Aulane

Tu n'as pas à t'excuser ! Le propre de l'imprévu est justement de n'être pas gérable à la demande !
Toutes mes condoléances pour le décès de ton frère.

Tu as raison pour les instructions elles sont dans l'ordre de la conception et des modifications successives effectuées et il pourrait être bon d'y remettre un ordre plus logique.

Entièrement d'accord pour rester en contact, ce sera avec grand plaisir, et si je puis encore t'aider.. (j'attends avec impatience le programme que tu va concocter pour les infirmières!)
Pour rendre plus modulable (nombre de critères et donc de notes  ...) il faudra sans doute passer par un autre userform qui permette de définir ces choix avant de créer la feuille 
Tout est possible dans l'absolu, mais attention à ne pas transformer le truc en usine à gaz!
Bon courage pour le 18

A bientôt
Bien cordialement
Via

Aulane · Answer

22/11/2015
Bonjour via,
Avec un peu de retard parce que « fainéant », je suis sorti de la clinique le 19 en fin de matiné, me voilà  presque neuf... enfin, même s'il subsiste quelles que imperfections congénitales bien connues... et irréductibles !
Enfin tout s'est passé le mieux du monde. (fermez le ban !)
Je reviens quand même à l'objet de ce courrier : comment pourrais-je revenir à mon fichier après avoir cliqué sur le bouton « finaliser » ? Je m'explique :
J'ai repris et décidé de tester tous les cas de figures qu'offre le programme et pour cela, comme je ne veux pas me refarcire chaque fois toutes les saisies indispensables pour aller jusqu'au bout et bien sûr tester aussi les feuilles de suivi, il faut absolument que je puisse faire machine arrière, sans altérer les interdis et obligations que doit rencontrer le patient Lambda.
Si tu peux m'indiquer comment je dois m'y prendre cela me ferait gagner du temps merci d'avance.
Autre chose, même 2 choses
1.	Quand je ne peux plus avoir recours à une réponse disponible à un de tes courriers, comment faire pour te contacter et être sûr que cela t'arrivera en exclusivité ? autrement dit, comment t'écrire directement...
2.	J'ai retrouvé en jetant un coup d'oeil dans mes archives, une espèce d'algorithme de mon programme pour mes infirmières, qui m'avait inspiré quand j'ai commencé à l'écrire au début (ça doit faire au moins 2 à 3 ans bien sonnés). Est-ce que ça t'intéresse ?
Je suis suspendu à ta réponse...
Cordialement
aulane

via55 · Answer

Bonsoir Aulane

Bon rétablissement tout d'abord !

Ensuite pour ce qui est de tester je ne vois pas de moyen de sauter des étapes ou de revenir en arrière après Finaliser, la seule chose possible que je vois pour l'instant est de shunter provisoirement l'enregistrement du dossier sous un nouveau nom et l'effacement du dossier provisoire en rajoutant une ligne avec l'instruction Exit Sub dans la macro Sub  finaliser (associée à la feuille Modèle , cliquer sur Modèle dans l'arborescence du VBA pour accéder à la page où elle se trouve) juste après la remarque en vert  ' ENREGISTREMENT ainsi les lignes après ne seront pas exécutées

Pour m'écrire directement tu peux m'écrire en message privé, faire clic droit sur mon pseudo dans n'importe quel message pour accéder à ma fiche et à la possibilité d'envoyer un message. Et lorsque je te répondrai tu vois le nombre de message que tu as reçus  car s'affiche en haut de cette page dans la barre noire à droite de l'icone enveloppe à côté de ton pseudo et en cliquant sur l'enveloppe tu accèdes à tes messages)

Enfin je suis curieux bien sûr de voir ton projet d'algorithme !

Bien cordialement
Via

aulane · Answer

24/11/2015 14:55 Bonjour Via, merci pour tes voeux de bon rétablissement (la bête est robuste) Voilà de la lecture! OK je t'envoie mon algorithme Infirmières, au format Word, il y aura surement des modifs à faire au fur et à mesure de l'avancement par les intéressées que je consulterai en cours de route, pour qu'elles me donnent leur avis, accord ou désaccord pour chaque sujet abordé (il est inutile d'approfondir une ou plusieurs instruction si elles ne doivent être utilisées. Quand j'aurais redémarré ce programme je fouillerai dans mes archive pour rechercher les développements que j'avais commencé. Bref ! Mais en attendant il faut qu'on fasse marcher « Critères » correctement ! J'ai ajouté au nom du patient (j'ai fait des copies d'un premier fichier au stade de la saisie des contrôles) un numéro à partir de 1... toujours avec le même nom de façon à ne pas repasser par la feuille d'accueil. En bas de cette « lettre » j'ai ajouté un tableau récapitulatif des essais et des incidents que j'ai rencontré. 25/11/2015 Je reprends (j'allais dire la plume... enfin le clavier) j'ai terminé tous les essais imaginables, je vais t'envoyer tous les fichiers que j'ai testé je vais peut-être les grouper dans un dossier, ça doit passer en poids. Comme je te l'annonce plus haut, à la suite de ce courrier je colle le résultat de mes cogitations. Très cordialement (que dommage qu'on ne puisse pas travailler ensemble sur un même bureau - on peut toujours rêver) Aulane PS liens des 4 fichiers d'essais : NOUMANE0 , NOUMANE1, NOUMANE2, NOUMANE3 et l'algorithme d'Alice ma première infirmière http://www.cjoint.com/c/EKznuQpMBPf http://www.cjoint.com/c/EKznuQpMBPf http://www.cjoint.com/c/EKznxC1z7Hf http://www.cjoint.com/c/EKznyLdkhAf http://www.cjoint.com/c/EKznIfQEFUf Mes essais Ordre des essais Commentaires NOUMANE1_Victor_1450939 Avec seulement 1 critère (couteau) et 8 jours. J'ai rempli les contrôles du 1er critère TAB m'a fait faire le tour de contrôle des saisies et j'ai cliqué le bouton vert « Finaliser et enregistrer ! cette opération a positionné le curseur sur la cellule C15 qui correspond à la date du démarrage du traitement, j'ai saisi les notes (un peu fantaisistes) et j'ai fermé le fichier ! Je l'ai rouvert tout est en place et le graphique est à jour et l'onglet de la 1e feuille indique bien la date du début du traitement Je clique sur le bouton violet pour insérer une nouvelle feuille et là je bug avec les « intérêts » non seulement aucune feuille nouvelle ne s'installe mais toutes les données de la feuille s'effacent et sur l'onglet de la feuille la date est remplacée par de < x > minuscules !? J'ai fermé le fichier sans le sauvegarder de façon à le retrouver intact ! Qu'est-ce que ça veut dire ? NOUMANE2_Victor_1450939 Je vais tenter ma chance avec une 2e mouture avec 3 critères et 12 jours de traitement ; Même système, les 3 premiers critères saisis, TAB me renvoie en tête programme pour contrôler s'il n'y a pas de lézard et en fin de contrôle se positionne à nouveau sur le 1er critère, pour continuer (il faudra que j'insiste la dessus dans mon « Lisezmoi ») cliquer sur le bouton vert Finaliser et enregistrer ! Je fais... le curseur se positionne sur la cellule C15 première note du tableau de notation ! TAB permet de changer de cellule, après les contrôles le curseur se positionne la ligne suivante et la 1e cellule C16 ! je finis de saisie les notes de 12 jours. Pourquoi lorsque j'arrive au 3e contrôle (Frigo) le curseur passe par la cellule < M > placée sur la même ligne celle du contrôle avant de retourner à la cellule de la colonne < C > sous la ligne précédente ! Je clique plusieurs fois pour ramener le curseur sur la cellule < C15 > et je me lance sur un suivi et là même bug « Erreur d'exécution `13' : incompatibilité de type » je clique sur débogage et j'obtiens les 3 lignes ci-dessous sous le titre Private Sub Worksheet_Change(ByVal Target As Range) ' si nom différent que CRITERE N If Target.Value <> "CRITÈRE " & ndc Then ' deprotection, deverrouillage 6 cellules de controles, reprotection Donc même punition, ça m'a effacé toutes les notes saisies dans les colonnes, les 12 dates, toutes les indications (Traitement, date de début, durée traitement) et agrandi la grille de saisie jusqu'à la ligne 44 inclus, sans grisé. Je suis sorti en cliquant sur la croix sans sauvegarder pour ne rien perdre NOUMANE3_Victor_1450939 Ultime essai pour 31 jours et tous les critères, même nom etc. Pour la reprise de ce fichier je positionne le curseur la cellule « Pathologie » et TAB 2 fois jusqu'à la cellule « Durée » un dernier TAB position le curseur sur le 1er critère que je renseigne et les TAB successifs, m'amènent au dernier critère que je renseigne comme les précédents et un dernier TAB me renvoie sur la cellule du traitement (F7). Je redescends à coups de TAB (H8-H9 pour corriger des erreurs éventuelles) le dernier TAB m'envoie sur la 1e ligne des « contrôles » (M15) Chaque TAB me déplace d'une ligne vers le bas sauf à la dernière ligne du 1er critère où TAB m'envoie sur le nom du critère suivant (l'ayant déjà nommé, TAB passe à la 1e ligne de ce critère, il en sera de même jusqu'à la dernière ligne du dernier critère). A ce stade, TAB me renvoie au début de la feuille (Nom B2) pour des modifs de dernière heure jusqu'à la dernière ligne des contrôles et un dernier TAB me renvoie au nom (B2) ! Là je clique sur le bouton VERT pour finaliser, protéger et enregistrer le fichier complet ! Cette opération nettoie le fichier initialise le graphique à 31 jours, ne reste sur la feuille que les cellules qui comporterons les notes et TAB passera horizontalement d'un critère au suivant sauf au dernier critère (écuelle) il fera une incursion à la première ligne des contrôles pour se positionner à la ligne suivante sur le 1er critère (C16) sur un TAB supplémentaire et il en sera de même jusqu'à la dernière note ! Oui j'ai rentré toutes les notes (plus ou moins fantaisistes). Il n'y a pas que moi comme fantaisiste, cette fois tout s'est déroulé normalement jusqu'au dernier critère du 30e jour et TAB m'a ramené au début de la grille de notation (C15) j'ai sauvegardé, je vais tenter d'appeler une feuille de suivi et, vlan même punition ! Je retombe sur le même bug que pour les autres essais ! et là même bug « Erreur d'exécution `13' : incompatibilité de type » je clique sur débogage et j'obtiens les mêmes 3 lignes ci-dessous sous le titre Private Sub Worksheet_Change(ByVal Target As Range) ' si nom différent que CRITERE N If Target.Value <> "CRITÈRE " & ndc Then ' deprotection, deverrouillage 6 cellules de controles, reprotection

via55 · Answer

Bonsoir Aulane

1) La nouvelle feuille créée porte effectivement le nom provisoire de xxxx en attente de l'entrée de la date,(à ce moment la feuille est nommée avec cette date) et bien sur les données sont vierges
Les précédentes n'ont pas été effacées, elles sont dans la feuille dont l'onglet est à droite de celui qui vient d'être créé, et porte lui sa date de création

2) Effectivement bug lors de la création de la feuille de suivi suite aux modifs que j'avais faite pour deverouiller les cellules des contrôles correspondantes lorsqu'un critère nouveau est entré,  bug du à ce que la macro copie la plage des critères et que dans la macro qui gère les changements dans la feuille il y a l'instruction Target.value qui recupère la valeur de la cellule cible modifiée et cette instruction n'admet qu'une plage composée d'une seule cellule
Problème rectifie en mettant une instruction en début de macro (If target.count>1 then exit sub) qui fait sortir de la macro si la cible contient plus d'une cellule

Version rectifiée
http://www.cjoint.com/c/EKzvL42Ct4q

Pour le reste je n'ai pas tout compris, il faut que je fasse quelques essais

Et que je regarde ton algorithme

Je te fais un retour dès que je peux

Bien cordialement
Via

via55 · Answer

Bonjour Aulane

1) La version rectifiée que je t'ai envoyée hier n'est pas la bonne (elle n'est pas rectifiée) ne pas en tenir compte et prendre celle-ci :

 http://www.cjoint.com/c/EKAnKDzLktq

2) Après quelques essais les passages entre les cellules se font pas trop mal, le seul hic que je vois (mais je n'ai pas de solution) c'est quand le patient remplit le tableau, arrivé au dernier critère d'une ligne on passe aux controles avant de revenir au tableau puisque les cellules des controles sont toujours déverouillées pour modification (selon ta demande initiale : on ne les bloque pas comme celles des noms de critères car ce n'est pas forcement le medecin qui les remplira mais le patient après) et comme la tab fait passer à la cellule libre suivante de la même ligne..

3) En ce qui concerne le fichier pour les infirmières j'ai jeté un premier coup d'oeil et cela m'a suscité des premières remarques que j'ai inscrite en rouge :
http://www.cjoint.com/c/EKAokbkFpMq

Bonne fin de journée

Bien cdlmnt
Via

aulane · Answer

Bonjour via Je reprends mon béret « d'essayeur » et ça commence plutôt mal ! J'ai édité le fichier que tu m'as envoyé hier soir, je l'ai initialisé pour 31 jours (OK tout est normal : grille de saisie des notes et graphique) je l'ai rempli complètement sauf la ligne du 31e jour ! Pour cette ligne et seulement celle-là VBA me dit qu'elle est protégée ? J'ai quand même cliqué sur le bouton vert pour initialisé et enregistré le fichier ! (quel dommage que je ne puisse pas te poser des questions par téléphone). Bref : A priori mon fichier est complet sauf cette dernière ligne, je vais essayer de cliquer sur le bouton violet « INSERER une feuille... » Las ! rebogue ! J'ai cliqué sur < Fin > pour arrêter le débogage et là, la feuille de suivi est apparue sur l'écran (pourquoi le débogage ?) toute la partie identité et contrôles « remplies » mais l'onglet de cette nouvelle feuille 4 « Croix de St André » minuscules (xxxx) Il me semble avoir lu sur un de tes courriers que cet onglet serait renseigné dès que la date de début du traitement serait saisie ; j'y vais ... Pour corser un peu le « truc », je vais saisir un nombre de jours différent (15) pour voir ce que ça va donner tant sur le plan graphique que sur redemander une nouvelle feuille de suivi. J'observe le même phénomène que sur la 1e page, ici la 15e ligne est bloquée, pour essayer j'ai copié 15 lignes de notes sur la 1e page et j'ai fait un copie coller et la 15e ligne s'est affichée (c'est à n'y rien comprendre) J'ai cliqué sur le bouton vert d'enregistrement, pour finaliser ma saisie et là cette feuille reste totalement déprotégée (identité jusqu'à la durée et la grille de notes et les noms des 5 critères) Reste aussi sur cette feuille le bouton beige « MODIFIER ou COMPLETER... » qui ne sert à rien puisque l'accès au « pédigrée » est possible d'entrer ! J'appelle une nouvelle feuille 2e suivi ! Et là rebog ' si nom différent que CRITERE N If Target.Value <> "CRITÈRE " & ndc Then ' deprotection, deverrouillage 6 cellules de controles, reprotection Je clique sur < FIN > et la 3e feuille apparait avec xxxx sur son onglet que je calle sur 10 jours, la grille et le graphique s'adaptent Je clique sur le bouton vert pour finaliser, l'onglet prend son nom définitif, (date du début du traitement) le bouton beige reste en place, mais cette fois les lignes « d'identité » ne sont plus accessibles sauf en cliquant sur le bouton beige « MODIFIER ou COMPLETER... » et je n'ai plus rien pour re protéger...et ici la dernière ligne accepte la saisie ??? Donc en conclusion reste à solutionner : 1. Pourquoi la dernière ligne n'accepte pas la saisie et pas toujours 2. Pourquoi le bouton beige reste visible sur les feuilles de suivi 3. Comment éliminer ce bog ? 4. Pourquoi la courbe des graphiques des 2 feuilles de suivi ne démarre pas à 0 comme pour la 1e feuille OK je reprends avec le fichier que tu m'envoies cet après-midi que j'ai nommé NOUMANE5 1. Premier essai à 31 jours idem ne prend pas le 31e jour comme sur le fichier d'hier 2. Ma feuille est débarrassée des boutons vert et beige mais j'azi déjà une feuille de suivi à gauche de la 1e avec (xxxx) mais je ne peux pas y accéder ! Je clique sur le bouton violet 3. Je peux maintenant y accéder et le bouton vert est réapparu 4. J'initialise la durée à 15 jours et la date au 12/11/2015 5. Je clique sur le bouton vert... Ok tout à l'air parfait 6. La grille des notes prend tout normalement 7. Je sauvegarde en cliquant sur l'icône en haut à gauche sous l'onglet « Fichier » 8. Et je demande la 2e feuille de suivi, OK elle s'affiche avec les 2 boutons vert et violet 9. J'initialise comme aux premiers essais au 02/11/2015 pour 10 jours et je complète 10. Je finalise, bouton vert pour débloquer la grille de notes 11. Je complète avec les notes je sauvegarde et je ferme le dossier 12. J'ouvre le fichier « NOUMANE53, je navigue d'une feuille à l'autre tout est OK En somme il ne reste que cette histoire de 31e colonne, il se peut que l'instruction qui libère les cellules devant recevoir les notes ait été bloquée à 30 au lieu de 31 ou quelque chose d'approchant. Je t'envoie la totalité de ce que j'ai écris cet après midi notamment concernant « NOUMANE4 », n'en tiens pas compte puisque je suis parti d'un fichier qui n'était pas le bon. En attendant que tu me renvoies le bon bien fini, je vais commencer a préparer le CD qui va le contenir (je ne sais pas si je vais avoir le temps de préparer un Setup, éventuellement on fera sans) de toute la signature de ce CD j'envisage : « Viaulane » qu'en penses-tu ? Cordialement à te lire Aulane Lien du fichier NOUMANE5 http://www.cjoint.com/c/EKAqSXY1RDe

via55 · Answer

Re

Version avec bug du 31eme jour corrigé
http://www.cjoint.com/c/EKAuZuSm8tq

Viaulane me plait bien et je suis touché de l'intention !

Bien cordialement
Via

aulane · Answer

27/11/2015 09:33

Salut via,
J'ai testé cette nouvelle version et je suis bloqué au 30e jour, je ne peux pas accéder au 31e jour, je ne suis pas allé plus loin.
Expliques-moi comment tu as fait la correction et à partir de quelle ligne il faut la placer et j'essayerai de la faire (sans garantie de réussite)
OK pour « Viaulane » je vais créer la maquette du disque, je te l'enverrai dès qu'elle sera prête en consultation, tu pourras me dire si quelque chose ne te plait pas ou même si tu souhaites que j'ajoute ou retranche quelque chose.
Dis-moi pour le 31e jour...
Cordialement
Aulane

via55 · Answer

Bonjour Aulane


Désolé, effectivement la modif n'y est pas dans ce que je t'ai envoyé, je ne sais pas où je me suis mélangé les pinceaux !

La modification est à faire dans la macro Sub finaliser (associée à la feuille Modèle)
A la ligne :
  'selectionne et verrouille les cellules en trop
        Range("C" & Range("H9").Value + 15 & ":G45").Locked = True
il faut remplacer G45 par G46

Tiens moi au courant

Bien cordialement
Via

aulane · Answer

Bonjour via,
Pour avant première de mon courrier d’hier, ne dit-on pas que la nuit porte conseil, ça doit-être en partie vrai !
Concerne ce que je t’ai écrit hier à propos des modifs éventuelles pour alléger le processus, si ça ne te fait pas trop de travail, ce que je subodore,  alors te serait-il possible pour ma remise en phase avec VBA, de m’indiquer :
•	Quels sont modifs à exécuter pour chaque « phase » concernée et m’écrire les nouvelles lignes corrigées en langage VBA, pour chaque expression.
•	Surtout à quel endroit elles vont, sous quel « titre » d’un « Sub » ou de toute autre variante !
•	Par exemple quelle ligne de commentaire précède ou suit les instructions à remplacer
Je me doute que cela va te faire un travail considérable, et je ne m’offusquerai pas si tu me dis que tu n’as pas le temps de faire tout ça… d’ailleurs étant donné que toutes les instructions du programme ne se suivent pas dans l’ordre, je ne me risquerai pas à essayer de faire ces modifications au risque de faire des bêtises irréversibles.
À te lire quelle que soit ta réponse, tu resteras toujours un ami « virtuel » si l’on peut dire qui m’a sorti de ma léthargie « basique ».
Très cordialement
aulane
PS par un prochain courrier je t’enverrai la maquette du graphique du CD

via55 · Answer

Bonjour Aulane

Concerne ce que je t’ai écrit hier à propos des modifs éventuelles pour alléger le processus, me dis-tu
mais je n'ai aucun message de ta part datant d'hier parlant de tels modifs, tu ne parlais que du blocage au 31eme jour et sur ce point je t'ai répondu en t'indiquant la marche à suivre pour corriger la macro

Et dans ton message du 26 tu me parlais des différents tests effectués et du bug mais pas de modifs pour alléger (ou alors je n'ai pas compris) 

Dans l'attente de te lire

Bien cordialement
Via

Aulane · Answer

Bonjour via Décidément je pédale dans la semoule, je ne suis pas convaincu que mon dernier message te soit parvenu, donc dans l'expectative, je te renvois la totalité que tu semble pas avoir eu connaissance (ça va faire un très long chapitre, mais tu pourra éliminer ce qui est en doublon) je reprends à ma dernière expédition (enfin qui aurait dû l'être! 27/11/2015 13:49 Renvoyé le 28/11/2015 17:57 Mea culpa, je me le suis renvoyé à moi, excuses-moi je te le renvoi (c'est vrai qu'il n'est nullement besoin d'être vieux pour être con – D’Ormesson dixit- mais c'est vrai aussi que l'âge n'arrange rien pour autant...) Re bonjour via, Modification dans l’instruction Sub_ dossier code de la feuille et ça fonctionne. J’ai donc recommencé mes expériences et compte tenu du nombre de fois où j’ai refait les mêmes opérations, ces répétitions m’ont suggéré certaines réflexions que j’ai traduit à l’intérieur de parenthèses et qui seraient susceptibles d’alléger et de rendre plus agréable ce fichier. Après avoir saisi les noms des 5 critères, (ne serait-il pas plus logique que la saisie du nom de chaque critère précède chaque fois la saisie des 5 libellés des notes, ainsi de suite, jusqu’à la dernière ligne des contrôle) TAB me renvoie au nom du traitement, puis à la date de début, à la durée, au premier nom du 1e critère et enfin à la 1e ligne du tableau contrôle à saisir, (pour faire suite à ma précédente parenthèse, ne serait-il pas plus logique plutôt que ce périple qui se reproduit à la fin de saisie de tous les contrôles d’envoyer directement à la grille des notes C15 et dans l’encart jaune qui conseil de finaliser, peut-être conseiller de cliquer sur le bouton beige si une quelconque modif est à faire avant de finaliser, ça gagnerait du temps et ne donnerait pas l’impression de mouliner dans le vide) TAB change de ligne jusqu’à la 5e ligne du 1er critère, mais en changeant de critère repasse à chaque fois par le nom du critère suivant (ça fait beaucoup de passages inutiles, il me semble) En apportant les modifs préconisées plus haut, le curseur étant positionné sur la cellule < C15 > devait apparaître le panneau (jaune) conseillant avant de finaliser, éventuellement cliquer sur le bouton beige « MODIFIER ou… » et dans le cas de modif renvoyer le curseur sur le traitement < F7 >, Date < H8 < et la durée < H9 > puis retour direct à < C15 > première note du premier jour à saisir et dès la dernière note saisie, TAB devrait repositionner le curseur sur un message du type « Avant d’enregistrer votre travail, voulez-vous continuer le traitement en créant une nouvelle feuille de suivi en cliquant sur le bouton violet sinon sortez du programme après avoir sauvegardé votre travail » et si la réponse est non, voir la meilleur solution pour positionner le curseur (peut-être créer un bouton « SAUVEGARDER ET SORTIR » Est-ce que cela représente beaucoup de travail ? ne crois-tu pas que ça ferait plus sérieux. Bref ! En attendant je vais créer une nouvelle feuille de suivi… (Il est 15h30) OK la feuille s’intègre à gauche des précédentes (effectivement j’ai enregistré ce dernier fichier sur l’ancien N° 5 dans lequel j’avais créé des feuilles de suivi qui sont à éliminer ! mais voilà comment faire ? j’ai essayé de déprotéger la feuille mais rien à faire ?! Pour le reste tout est OK les feuilles de suivi fonctionnent bien, même en modifiant le nombre de jours de traitement Excuses-moi pour la surcharge de travail, merci, si tu peux me mettre des commentaires pour que je puisse suivre et comprendre comment tu as fait Très cordialement Aulane Envoyé 27/11/2015 16:34 Renvoyé le 28/11/2015 17:57 28/11/2015 08:50 Bonjour via, Pour avant première de mon courrier d’hier, ne dit-on pas que la nuit porte conseil, ça doit-être en partie vrai ! Concerne ce que je t’ai écrit hier à propos des modifs éventuelles pour alléger le processus, si ça ne te fait pas trop de travail, ce que je subodore, alors te serait-il possible pour ma remise en phase avec VBA, de m’indiquer : • Quels sont modifs à exécuter pour chaque « phase » concernée et m’écrire les nouvelles lignes corrigées en langage VBA, pour chaque expression. • Surtout à quel endroit elles vont, sous quel « titre » d’un « Sub » ou de toute autre variante ! • Par exemple quelle ligne de commentaire précède ou suit les instructions à remplacer Je me doute que cela va te faire un travail considérable, et je ne m’offusquerai pas si tu me dis que tu n’as pas le temps de faire tout ça… d’ailleurs étant donné que toutes les instructions du programme ne se suivent pas dans l’ordre, je ne me risquerai pas à essayer de faire ces modifications au risque de faire des bêtises irréversibles. À te lire quelle que soit ta réponse, tu resteras toujours un ami « virtuel » si l’on peut dire qui m’a sorti de ma léthargie « basique ». Très cordialement aulane PS par un prochain courrier je t’enverrai la maquette du graphique du CD 28/11/2015 13:55 Aujourd'hui 1er décembre PS si tu as reçu cette prose, dis le moi; merci cordialement aulane

via55 · Answer

Bonjour Aulane

Bon j'ai tout reçu cette fois !

La problématique est que :
1) Le nombre de critères utilisés est variable
2) Ils sont remplis directement sur la feuille donc les cellules sont déverrouillées pour le permettre
3) Le fonctionnement d'Excel à l'appui de la touche TAB ou flèche fait passer à la prochaine cellule déverrouillée sur la feuille
4) Les cellules contrôles doivent rester deverouillées car peuvent être remplis ultérieurement (c'est ce que tu m'avais dit, le praticien nomme les critères et peux remplir les contrôles mais peut laisser aussi au patient de remplir les contrôles ultérieurement)

Pour régler facilement le problème je pense qu'il faudrait peut être mieux verrouiller toutes les cellules du tableau des critères et le remplir à l'aide d'un userform
Reste à déterminer quand et comment faire apparaître l'userform : après avoir saisi la durée de traitement ? par clic sur un bouton dédié (de toutes façons il faudra un bouton pour y revenir et completer pour les contrôles non remplis)

Le tableau critères étant verrouillé la navigation avec tab ne se fera qu'entre l'état civil et les renseignements concernant le patient puis lorsque la feuille aura été finalisée et enregistrée, les cellules du haut de la feuille étant alors verrouillées, la navigation ne se ferait qu'entre les cellules où le patient rentre les notes

Qu'en dis tu?

Après ce point réglé on verra pour le reste

Bien cdlmnt
Via

Aulane · Answer

01/12/2015 Bonsoir via, Non je ne cherche pas des complications, j’ai du mal m’exprimer ! Déjà j’ai bien vu la modification au niveau de la 31e ligne, ça fonctionne bien, ce que j’ai essayé de transcrire dans mon mail du 28/11, c’est tout simplement raccourcir le périple du curseur lorsque le dossier est totalement plein, c’est-à-dire que la dernière ligne des a été saisie, car à ce moment-là TAB renvoie actuellement : 1. A l’état civil 2. Redescend cellule par cellule jusqu’au nombre de jours de durée du traitement 3. Puis (toujours en appuyant sur TAB seulement) se place sur le premier critère 4. Puis (toujours en appuyant sur TAB seulement) sur le 2e jusqu’au dernier 5. Puis (toujours en appuyant sur TAB seulement) remonte au premier contrôle 6. Et (toujours en appuyant sur TAB seulement) redescend jusqu’à la dernière contrôle saisie en repassant chaque fois sur les noms des critères c’est-à-dire : a. Nom du 1er critère et les 6 lignes concernées b. Jusqu’au dernier critère et la dernière ligne des contrôles ET C’EST LA QUE ÇA PÊCHE ! 7. TAB renvoie à nouveau sur l’état civil et refait le même périple comme ci-dessus 8. Que le curseur fasse un premier retour en arrière, (ci-dessus de1 à 6) pour un contrôle, OK ! CE QUE JE PRÉCAUNISE : 9. Lorsque le curseur arrive (après la vérification depuis l’état civil) au dernier contrôle 10. A lieu de recommencer un autre périple (comme ci-dessus de1 à 6) il serai bien qu’il se positionne sur la cellule de la 1e note à saisir et qu’ ce moment-là, un « drapeau » apparaisse, stipulant le choix par exemple a. Si vous souhaitez modifier votre saisie cliquez sur le bouton < BEIGE > sinon cliquez sur le bouton < VERT > (mis en surbrillance) et commencez à saisir vos notes i. Conserver le bouton Beige permettant éventuellement de refaire un tour de piste pour corriger ou ajouter quelque chose ii. Conserver le bouton vert en modifiant un peu le libellé par exemple 1. Enregistrez pour continuer et saisir les notes ! (évidemment ce n’est qu’un suggestion je te fait confiance pour trouver la formule adéquate) b. L’appui sur le bouton renvoie le curseur sur le nom et permet de refaire un cycle jusqu’au dernier contrôle qui retourne alors au bouton vert (ii) 11. L’appui sur le bouton vert renvoie le curseur sur la première note à saisir < C15 > REMARQUE Si j’ai bien compris ton souci, cela tient au nombres de contrôles qui seront rempli ? A ce moment là n’est-il pas possible que si l’appui sur TAB depuis une ligne vide, affiche une « erreur » du type vous avez sauté un contrôle si c’est volontaire cliquez sur si c’est oui appuyé sur la touche (qui renverra à la cellule aves le processus que je développe à partir de la ligne 9 !) si c’est revenez en arrière avec la souris (ou tout autre moyen) et continuez ! Est-ce possible ? Ce que je regrette, c’est de ne pas avoir créé dès le départ un algorithme pour planifier tout ça, mais lorsque je t’ai recontacter après ta première réponse, je ne pensais pas que ma folie de perfectionniste nous entrainerait aussi loin justement dans ce souci de perfection, de toutes façon, même si nous nous attelons à faire ces modifications nous ne serons jamais prêt pour le 7/12, je vais donc lui préparer un disque avec la version actuelle V1.00 et je lui enverrai plus tard un CD avec une version 1.01 ou 1.1 améliorée. Que penses-tu de tout ça ? Suis-je vraiment fou ? rassures-moi ! De toute façons, vu ce que ça va lui coûter il ne pourra qu’être content et encore !!! Une anecdote, dans ma carrière de professionnel du bâtiment, j’ai côtoyé et travaillé pour toutes sortes de citoyens, mais les plus mauvais payeurs tiennent sur les 5 doigts d’une main, dans l’ordre en partant du pire : 1. Les hôteliers 2. Les médecins 3. Les instituteurs et professurs 4. Sans oublier l’administration, qui paye, mais à perte de vue.. Cordialement aulane envoyé 01/12/2015 18:41

via55 · Answer

Re,

La difficulté ne vient pas tant du nombre de critères que du fait que tant qu'on laisse la possibilité de modifier des cellules (critères ou autres) ce qui est souhaitable, une rectification doit toujours être possible avant la finalisation, ces cellules sont déverrouillées et donc le TAB fait passer des unes aux autres sans qu'il soit possible de faire autrement
Ce n'est que lorsque des cellules remplies sont verrouillées que TAB les ignore
Impossible pour Excel de savoir quand verrouiller telles cellules, c'est pour cela qu'il y a le bouton Finaliser que l'utilisateur déclenche quand il est sûr que tout est OK. A partir de ce moment on peut verrouiller les cellules du haut du tableau et les cellules critères mais il faut laisser deverouillées les cellules controles que le patient va peut être remplir plus tard (mais meme si on les verrouille à ce moment là ça ne change rien pour avant)

C'est pour cela que personnellement je ne vois qu'une seule solution : verrouiller toutes les cellules du tableau critères, on n'y aura plus accès avec TAB et créer un userform pour remplir ou modifier critères et contrôles 

Car s'il faut mettre un contrôle par macro pour chaque cellule non remplie avec message ce sera une usine à gaz et on ne s'en sortira pas, sans parler de la lourdeur pour l'utilisateur

Cdlmnt
Via

Aulane · Answer

02/12/2015 09:20

Bonjour via,

Je crois que j’ai compris la difficulté de la « chose » et pas question de remettre tout en cause ; Comme je l’écrivais hier, je vais créer le CD avec la dernière version que j’intitulerai V1.00 avec un lisezmoi approprié et la possibilité (çà c’est pour nous) de créer des versions plus performantes ultérieurement. Qu’en penses-tu ?
Dès que j’aurais terminé la maquette du CD je te l’envoie.
Je rentre à l’hôpital lundi matin jusqu’à jeudi ! Donc Statu quo jusqu’à jeudi après-midi !
Ensuite nous pourrons peut-être envisager parallèlement de commencer à cogiter sur le programme des infirmières, et particulièrement en premier lieu peaufiner la rédaction d’un algorithme qui tienne la route. Ça nous évitera toujours d’avancer à l’aveuglette et surtout de traiter les sujets dans l’ordre de progression de cet algorithme ce qui sera bien plus compréhensible pour moi (comme çà en suivant je pourrai mieux assimiler et me remémorer le langage).
Est-ce que ce programme te convient ?
On reste en contact bien entendu mais peut-être pas la semaine prochaine, le service public vend très cher l’accès à internet, alors si rien ne le justifie, je m’abstiendrai d’y adhérer pour mon portable.
Donne-moi tout de même ta réponse à ce qui précède.
Toujours très cordialement
aulane

via55 · Answer

Bonsoir Aulane

Dernière version simplifiant les choses (avec userform pour les critères) et qui m'a l'air de bien fonctionner
Le classeur comme les feuilles sont protégés par le mot de passe via

http://www.cjoint.com/c/ELcvHNJESFf

Qu'en dis-tu ?

J'ai mis le maximum d'explications dans les macros 

A moins que le docteur souhaite des modifications je pense qu'on est proche du but, on verra ensuite pour le programme pour les infirmière, c'est un autre challenge, plus complexe à gérer mais combien intéressant

Bien cordialement 
Via

Aulane · Answer

03/12/2015 18:51 Bonsoir via, Un peu de retard à l’allumage… des emm… à ne plus finir aujourd’hui et maintenant le temps presse ! J’ai essayé le programme, impeccable ! J’ai jonglé avec les jours, avec les critères en + ou en – ça colle bien sauf quand le dossier est complet et qu’on supprime un ou 2 critères n’importe où, la colonne correspondante se « grise en… rose » c’est ok, le seul bémol et ce n’est pas grave. J’ai ajouté plusieurs feuilles de suivi, là aussi on peut faire ce que l’on veut, c’est très souple. Une chose pour rester cohérent dans la démarche de la validation et de l’enregistrement, il faut rendre obligatoire la saisie du N° sécu et la pathologie, c’est indispensable pour éviter le cafouillage et en sortie du nombre de jour voir si TAB ne pourrait pas mettre en surbrillance ou clignotement et se positionner sur le bouton jaune « MODIFIER LE TABLEAU DES CRITÈRES » Que penses-tu de tout ça ? Autre chose j’ai une m… sur mon imprimante de CD je ne suis pas sûr de pouvoir en imprimer un, j’avais commencé la maquette je t’en envoie une copie, par cjoint de toute façon je pourrai lui faire une étiquette presque semblable sur l’autre imprimante qui épousera la surface du disque mais qui sera quand même plus compliquée à faire, mais je vais me dépatouiller J’ai préparé aussi un lisezmoi, je te le joint aussi, n’hésite pas de trancher dans le vif du sujet si tu trouves des incohérences voir pire. Demain matin j’ai kiné qui va me manger un peu de temps, après je m’attellerai à essayer de dépanner mon imprimante et si je n’y arrive pas je ferai comme dit plus haut. Voilà je te mets le lisezmoi sous ce mail après la maquette du CD, dis-moi si tu l’a reçue On arrive au bout Si tu n’as pas le temps dis moi où placer les modifs je pourrai peut-être les faires Très cordialement Aulane https://www.cjoint.com/c/ELehtRljLM5 PS je relis le lisezmoi avant de te l’envoyer, vu qu’il était prêt depuis quelques temps, je l’ai construit au fur et à mesure que le programme évoluait et je m’aperçois qu’il y a certains paragraphes qui n’ont plus leur place tels quel Vois ce qui peut être oté ou modifié, à ton idée. Il faudrait que j’ai terminé tout ça dimanche midi(après je prépare ma valise et mon portable J’ai veillé un peu mais je n’ai pas pu t’envoyer ce mail hier soir LISEZMOI PROGRAMME DE SUIVI DES POSSIBILITÉS PHYSIQUES DES PATIENTS MISE EN ROUTE : • Votre micro étant allumé activez le logiciel « Excel » • Créer un nouveau dossier dédié à ce programme (par exemple : Contrôle d’agilité) ou un nom de votre choix. • Activez votre nouveau dossier (celui que vous avez créé précédemment) • Insérer le CD du programme « CRITÈRES » dans le lecteur de votre micro • A l’affichage du contenu, ouvrez le dossier « Critères » cliques sur le contenu du dossier avec la touche droite de la souris et dans le menu qui s’affiche cliquez sur « COPIER » • Rendez-vous dans votre nouveau dossier, là 3 possibilités s’offrent pour coller le programme o Cliquez avec la touche droite de la souris et sur le menu qui apparaît, cliquez sur ciller o Cliquez sur l’onglet Accueil puis sur le menu coller o Appuyez simultanément sur les touches « Ctrl+v » • Pour commencer cliquez sur le fichier « Critères » UTILISATION DU PROGRAMME A l’activation du fichier un écran bleu « CALENDRIER DU TRAITEMENT » s’édite Marche à suivre 1. Clic sur le pavé bleu foncé « Cliquer ici pour un nouveau dossier » 2. Dans la fenêtre qui s’édite, compléter les données (majuscules ou minuscules AUTORISÉES) en passant d’une fenêtre à la suivante par pression sur la touche < TAB> 3. A la saisie de la dernière donnée < TAB > enverra le curseur sur le bouton « VALIDER » presser alors la touche « Entrée » du clavier pour entrer dans le programme. a. Aussitôt l’écran affiche le programme prêt à utiliser b. RENDRE LE N° SS ET PATHOLOGIE OBLIGATOIRE REMARQUE : notez que les données saisies au début sont inscrites à leur place 4. Le curseur est automatiquement placé sur la cellule d’identification du traitement ; Presser TAB 5. TAB place automatiquement le curseur sur la cellule pour déclarer la date de début du traitement 6. TAB place automatiquement le curseur sur la cellule pour indiquer la durée en jours du traitement a. TAB positionne le curseur sur le premier « critère1 », saisir son nom, il va s’inscrire dans le première cellule à côté de la cellule < DATE> ; la touche TAB va descendre le curseur au fur et à mesure de leurs saisies jusqu’au dernier critère de la colonne REMARQUE : notez que si vous ne voulez pas utiliser tous les critères vous devrez activer la touche TAB quand même jusqu’à la dernière cellule « CRITÉRE5 » non modifiée et TAB refera le tour complet des dernières saisies pour le cas où une erreur ou un oubli et en fin du « périple » positionnera le curseur sur la première ligne du tableau , vous remarquerez que les lignes et colonnes non utilisée sont grisées ou rosées pour indiquer qu’elles ne sont plus programmables (sauf appui sur le bouton beige ) b. Remplir toutes les lignes de contrôles disponibles 7. Au dernier contrôle, vous pourrez choisir entre le bouton beige si vous le souhaiter ou le bouton vert pour vos saisies et enregistrer ce fichier dans le dossier que vous avez créé sous le Nom et le Prénom plus les 7 premiers chiffres de son numéro de Sécurité Sociale pour palier d’éventuels doublons, le nom de la feuille dans son onglet correspond à la date du début du traitement REMARQUE : notez que tant que vous n’aurez pas finalisé votre saisie, vous pourrez modifier toutes les données du fichier en cliquant sur le bouton beige 8. Votre fichier est finalisé, votre patient peut sans crainte d’erreur remplir chaque jour la grille de notes suivant l’échelle de notes du tableau de contrôles pour indiquer au graphique la position des points de passage de la courbe des moyennes Si le patient nécessite la poursuite de ces contrôles 1. Lorsque le dossier est complet à la fin du traitement, il vous suffira de cliquer sur la touche violette pour ajouter une nouvelle de suivi avec les coordonnées du patient récupérées sur la première feuille qui s’éditera à gauche de la feuille initiales et dont le nom provisoire inscrit dans l’onglet de cette feuille sera qui sera la date du nouveau démarrage du traitement 2. Vous pourrez demander des feuilles de suivi à l’infini (il faudrait une vie pour utiliser toutes les feuilles disponibles dans un classeur Excel)

via55 · Answer

Bonjour Aulane 1) Dernière version (je me suis aperçu que l'ordre de tabulation dans l'userform pour les critères n'était pas bon, j'ai donc rectifié) http://www.cjoint.com/c/ELeorcKhSef 2) le N° SS et la pathologie sont bien obligatoires, pas sur le 1er userform puisque le médecin n'a pas forcement le n° au moment où il crée le dossier mais dans la feuille suivi car si les données patient sont incomplètes il y a refus de valider (message qui s'affiche), de même il y a refus si au moins le nom du 1er critère n'est pas indiqué donc je ne vois pas de risque d'erreur majeur, et puis un professionnel doit être à même d'utiliser ce logiciel assez simple après une rapide prise en main et avec les indications du Lisez-moi 3) Pour le Lisez-moi Partie 1 OK Partie 2 Fonctionnement, je proposerai ceci : UTILISATION DU PROGRAMME A l’activation du fichier un écran bleu « CALENDRIER DU TRAITEMENT » s’édite Marche à suivre 1. Clic sur le pavé bleu foncé « Cliquer ici pour un nouveau dossier » 2. Dans la fenêtre qui s’édite, compléter les données (majuscules ou minuscules AUTORISÉES) en passant d’une fenêtre à la suivante par pression sur la touche < TAB> 3. A la saisie de la dernière donnée < TAB > enverra le curseur sur le bouton « VALIDER » presser alors la touche « Entrée » du clavier pour entrer dans le programme. Aussitôt l’écran affiche la première feuille de suivi avec les données déjà saisies et prête à être complétée (Cette feuille est identifiée provisoirement xxxx) A ce stade le fichier est enregistré sous un nom provisoire (Nom_Prénom_provisoire) Dans la feuille de suivi : 4. Entrer l’identification du traitement ; Presser TAB 5. Entrer la date de début du traitement; Presser TAB A ce stade la feuille de suivi est automatiquement nommée avec la date de début de traitement 6. Entrer la durée en jours du traitement ; Presser TAB 7. Cliquer sur le bouton MODIFIER le tableau de critères pour saisir un ou plusieurs critères (maximum 5) et éventuellement les contrôles associés Une fenêtre s'ouvre avec 5 onglets et un bouton pour valider et quitter Cliquer sur l'onglet désiré et remplir au moins le nom du critère (les 6 contrôles pourront être complétés ultérieurement) 8. Enfin si les données patient (cellules encadrées en rouge) ne sont pas complètes il faut les compléter avant de valider le fichier sinon la validation ne sera pas autorisée Pour débloquer les cellules données patient cliquer sur Modifier les données patient Se positionner ensuite sur la cellule de la donnée à compléter ou modifier avec les flèches directionnelles du clavier ou la souris 9. Lorsque le dossier est complet cliquer sur le bouton vert VALIDER pour finaliser le dossier qui est alors enregsitré sous son nom définitif (Nom_Prénom_début du n°SS) et le fichier provisoire est effacé Votre fichier est finalisé, votre patient peut sans crainte d’erreur remplir chaque jour la grille de notes suivant l’échelle de notes du tableau de contrôles pour indiquer au graphique la position des points de passage de la courbe des moyennes 10. Si lorsque ce premier suivi effectué, la poursuite des contrôles est nécessaire pour une nouvelle durée, vous pouvez à partir de la première feuille de suivi en créer une seconde en cliquant sur "INSERER une nouvelle feuille de suivi" (la nouvelle feuille est créée à gauche de la précédente et reprend les données patient et les critères et contrôles de la 1ere) Le procédure à suivre est la même : compléter avec nom du traitement, date de début de traitement et durée de traitement puis VALIDER Il est possible de créer autant de feuilles de suivi que nécessaire Bon courage pour tout Bien corcialement Via

Aulane · Answer

11/12/2015 17:07
Bonsoir via,
Je suis rentré de l’hôpital hier en fin de matinée (je suis quand même arrivé chez moi à midi et demi) bref tout s’est bien passé, à part que pour enfiler le pac sous la peau ils ont forcé comme des malades, résultat j’ai un gros bleu foncé sous l’épaule gauche qui rentre dans un cercle d’au moins 20 cm de Ø, au-dessus du sein ! Voilà le pansement tire un peu mais c’est l’histoire de q.q. jours.
Et notre programme ? Me diras-tu…
Mon toubib m’a posé un ½ lapin, il est monté me voir mercredi soir dans ma chambre, à mon retour de Grange Blanche (j’ai été opéré à l’hôpital Édouard Herriot à Lyon, le neuro n’est pas équipé pour l’implantation d’un pac sous anesthésie locale, donc ambulance 14h30 pour aller et ambulance pour revenir, bilan : 20 minutes pour aller 15 minutes pour revenir 45 minutes d’opération plus les temps morts retour 17h30) vers 18h s’est excusé du retard et n’a pas pris le temps que je lui fasse une présentation, il va se débrouiller avec mon lisezmoi et il a mes coordonnées, de plus il a l’habitude de réceptionner les différents logiciels pro pour le service. S’il a quelque difficulté que ce soit, il m’appellera bien, on verra !
Je vais me calmer quelques jours, puis on regardera pour les infirmières, si tu cogite quelque chose, pas de problème, n’hésite pas à me contacter, comme d’habitude..
Cordialement
aulane

via55 · Answer

Bonsoir Aulane

Bien content de te savoir de retour

Pour les infirmières j'ai déjà un peu cogité oui, le plus important me semble-t-il pour partir d'un bon pied est de recenser exactement tous les cas de figure à prendre en compte au niveau des visites, c'est à dire par exemple ; la fréquence : journalière ou quelques jours dans la semaine ? une fois ou deux fois par jour ? Ensuite les types de traitement et leur éventuelle évolution (pas les mêmes chaque fois, des traitements qui s'allègent au cours du temps).Ensuite encore l'horaire qui doit être variable sans doute, de même que le nom de l'infirmière etc
Le plus complexe sera la gestion de tous ces paramètres variables dans plusieurs feuilles Excel (certaines pour les données de base qui alimenteront des listes déroulantes de choix dans les userform, d'autres pour les données patient et le traitement du patient, avec une chronologie), mais si on a bien pris en compte tout au départ on devrait pouvoir établir les feuilles en conséquence et ensuite effectuer toutes les entrées de données, les consultations et modifications de données par userform
Voilà où j'en suis pour l'instant 
 
Bon rétablissement  
Bien cordialement
Via

Aulane · Answer

Bonjour via,
Merci pour tes vœux de rétablissement, la bête est solide…
J’ai ressorti mon programme d’infirmières (que j’ai nommé à l’époque « Alice » du nom de la première des 3 infirmières qui me suivent pour mes cures entre autres depuis 2009) je t’envoie un fichier nommé : <TablePrincipale> (c’est à ce moment-là que j’ai arrêté pourquoi ? c’était sûrement la tête qui n’allait pas bien) qui contient tout ce que j’avais « pondu » dans les années 2012-2013, mais à ma grande honte, j’ai du mal à reconnaître ce que j’ai écrit (tout seul je tiens à le dire, à cette époque je n’ai jamais pensé à faire appel à un forum, par ignorance), mais je pense (même convaincu) que je devrais bien m’y retrouver j’avais pris la précaution de commenter ce que je faisais…ça devrait m’aider
Il y aura sûrement des modifs ou des coupes à opérer, il faut déjà que je me remette tout ça dans le crâne, ça devrait aller tu m’as remis du cœur à l’ouvrage et même si je dois ramer un peu je serai heureux d’avoir au moins tenté de m’y remettre ! Mais je ne suis pas défaitiste, loin s’en faut !
Très cordialement à toi
aulane
PS si j’ai un écho de mon toubib, je te le communiquerai dans la foulée, de même que lorsque j’aurai remis le nez dans « Alice » (façon de parler) et refait surface et retrouvé le fil de mon algorithme, je t’en parlerai.

https://www.cjoint.com/c/ELmkM0YxfSa

Macro

77 réponses

Discussions similaires