Macro
Fermé
Aulane
Messages postés
84
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
29 juillet 2017
-
Modifié par Aulane le 20/09/2015 à 14:30
Aulane Messages postés 84 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 29 juillet 2017 - 12 déc. 2015 à 11:54
Aulane Messages postés 84 Date d'inscription mardi 27 janvier 2009 Statut Membre Dernière intervention 29 juillet 2017 - 12 déc. 2015 à 11:54
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Telecharger macro nblettre.xla - Forum Bureautique
77 réponses
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
3 nov. 2015 à 10:38
3 nov. 2015 à 10:38
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
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
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
4 nov. 2015 à 13:08
4 nov. 2015 à 13:08
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 :
o With Selection.Interior
o .Pattern = xlNone
o .TintAndShade = 0
o .PatternTintAndShade = 0
o End With
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
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
4 nov. 2015 à 21:42
4 nov. 2015 à 21:42
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
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
Messages postés
84
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
29 juillet 2017
5 nov. 2015 à 09:11
5 nov. 2015 à 09:11
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é :
o Atterri sur F7 « traitement » et touche Tab (2 fois pour aller sur)
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 à
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
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
5 nov. 2015 à 10:40
5 nov. 2015 à 10:40
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
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
Messages postés
84
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
29 juillet 2017
5 nov. 2015 à 17:44
5 nov. 2015 à 17:44
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
5 nov. 2015 à 18:16
5 nov. 2015 à 18:16
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
5 nov. 2015 à 18:17
5 nov. 2015 à 18:17
Re,
Oui j'ai bien eu le message pour le SetUp mais pas eu le temps de me plonger dedans
Oui j'ai bien eu le message pour le SetUp mais pas eu le temps de me plonger dedans
Aulane
Messages postés
84
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
29 juillet 2017
6 nov. 2015 à 10:59
6 nov. 2015 à 10:59
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
Modifié par via55 le 7/11/2015 à 01:07
Modifié par via55 le 7/11/2015 à 01:07
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
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
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
Modifié par via55 le 7/11/2015 à 01:21
Modifié par via55 le 7/11/2015 à 01:21
Re,
Erreur dans le dernier fichier envoyé dans mon message 73, la bonne version 22 avec grisé et verrouillage est ici :
http://www.cjoint.com/c/EKhauftTihj
Erreur dans le dernier fichier envoyé dans mon message 73, la bonne version 22 avec grisé et verrouillage est ici :
http://www.cjoint.com/c/EKhauftTihj
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
12 nov. 2015 à 21:36
12 nov. 2015 à 21:36
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
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
Messages postés
84
Date d'inscription
mardi 27 janvier 2009
Statut
Membre
Dernière intervention
29 juillet 2017
22 nov. 2015 à 11:09
22 nov. 2015 à 11:09
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
22 nov. 2015 à 19:38
22 nov. 2015 à 19:38
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
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
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
25 nov. 2015 à 22:53
25 nov. 2015 à 22:53
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 735
26 nov. 2015 à 15:10
26 nov. 2015 à 15:10
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
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