Création d'un fichier excel avec macro et userform
pasdouémacro
Messages postés
94
Statut
Membre
-
pasdouémacro Messages postés 94 Statut Membre -
pasdouémacro Messages postés 94 Statut Membre -
Bonjour,
Je voudrais créer un fichier excel avec Macro et userform afin de controler des documents techniques:
https://www.cjoint.com/?DBArOxOlp50 voici le fichier de base (sans macro ni rien)
A partir de là je voudrais dans un premier temps:
-Lancer (à partir de la feuille "lancement") la fiche de controle à partir des modèles: bouton 1 pour modèle "pl" et bouton 2 pour le modele "am". Les boutons sont a créer selon le modèle de l'userform ci-dessous.
-Lorsque je clic sur bouton 1 ou bonton 2: excel me demandera (par userform) "Prénom NOM", ensuite une feuille (qui se nommera avec prénom-nom) s'ouvrira et Prénom nom s'inscrira en B1 et B2 respectivement de la nouvelle feuille (nommée "Prénom NOM" cf macro ci-dessous).
-Une fois la nouvelle feuille créer je dois cliquer sur les boutons proposés (cf. feuilles modèles pl ou modèle am)
-Chaque bouton de la nouvelle feuille ("Donnée générale" par exemple) ouvre un userform à créer avec choix: Item1: conforme, remarque ou NC (je privilégierai "case à cocher" dans l'userform).
-Une fois la nouvelle feuille fini alors la feuille "recap" se rempli automatiquement (cf. macro ci-dessous et 1ere ligne de la feuille recap)
Exemple de macro pour la première partie et le recap:
Sub clique()
'MAcro Dan
np = InputBox("Prénom et NOM ?")
If np = "" Then Exit Sub ' cas du bouton Annuler
'copie du Modele en dernier
Sheets("Modèle").Copy after:=Worksheets(Worksheets.Count)
' Donne à la nouvelle feuille un nom composé du prénom et du nom
Sheets("Modèle (2)").Select
Sheets("Modèle (2)").Name = np
' Décompose le nom et le et le prénom (appel aux fonctions ci-dessous)
Nomf = Nom(np)
prenomff = Prénom(np)
'Enlève l'espace après le prénom
prenomf = Left(prenomff, Len(prenomff) - 1)
'Inscris le nom et le prénom en haut de la nouevlle feuille
Sheets(np).Range("C1").Value = prenomf & " " & Nomf
' Recherche de la denière ligennon vide de la colonne 1 de Recap
dl = Sheets("Recap").Range("A" & Rows.Count).End(xlUp).Row
'Inscris nom et prénom à la ligne suivante de Recap
Sheets("Recap").Cells(dl + 1, 1).Value = np
End Sub
Je ne me sens pas capable d'insérer l'userform de contrôle dans chaque modèle.
Une fois l'étape de l'intégration userform plus macro (voir ci-dessus) faite je devrais surement apporter des modifications afin d'adapter à un usage quotidien et prendre en compte quelques procédures.
Si quelqu'un peut m'aider à avancer?
Par soucis de confidentialité aucun termes techniques n'est utilisé dans mon modèle.
Cdlt
Je voudrais créer un fichier excel avec Macro et userform afin de controler des documents techniques:
https://www.cjoint.com/?DBArOxOlp50 voici le fichier de base (sans macro ni rien)
A partir de là je voudrais dans un premier temps:
-Lancer (à partir de la feuille "lancement") la fiche de controle à partir des modèles: bouton 1 pour modèle "pl" et bouton 2 pour le modele "am". Les boutons sont a créer selon le modèle de l'userform ci-dessous.
-Lorsque je clic sur bouton 1 ou bonton 2: excel me demandera (par userform) "Prénom NOM", ensuite une feuille (qui se nommera avec prénom-nom) s'ouvrira et Prénom nom s'inscrira en B1 et B2 respectivement de la nouvelle feuille (nommée "Prénom NOM" cf macro ci-dessous).
-Une fois la nouvelle feuille créer je dois cliquer sur les boutons proposés (cf. feuilles modèles pl ou modèle am)
-Chaque bouton de la nouvelle feuille ("Donnée générale" par exemple) ouvre un userform à créer avec choix: Item1: conforme, remarque ou NC (je privilégierai "case à cocher" dans l'userform).
-Une fois la nouvelle feuille fini alors la feuille "recap" se rempli automatiquement (cf. macro ci-dessous et 1ere ligne de la feuille recap)
Exemple de macro pour la première partie et le recap:
Sub clique()
'MAcro Dan
np = InputBox("Prénom et NOM ?")
If np = "" Then Exit Sub ' cas du bouton Annuler
'copie du Modele en dernier
Sheets("Modèle").Copy after:=Worksheets(Worksheets.Count)
' Donne à la nouvelle feuille un nom composé du prénom et du nom
Sheets("Modèle (2)").Select
Sheets("Modèle (2)").Name = np
' Décompose le nom et le et le prénom (appel aux fonctions ci-dessous)
Nomf = Nom(np)
prenomff = Prénom(np)
'Enlève l'espace après le prénom
prenomf = Left(prenomff, Len(prenomff) - 1)
'Inscris le nom et le prénom en haut de la nouevlle feuille
Sheets(np).Range("C1").Value = prenomf & " " & Nomf
' Recherche de la denière ligennon vide de la colonne 1 de Recap
dl = Sheets("Recap").Range("A" & Rows.Count).End(xlUp).Row
'Inscris nom et prénom à la ligne suivante de Recap
Sheets("Recap").Cells(dl + 1, 1).Value = np
End Sub
Je ne me sens pas capable d'insérer l'userform de contrôle dans chaque modèle.
Une fois l'étape de l'intégration userform plus macro (voir ci-dessus) faite je devrais surement apporter des modifications afin d'adapter à un usage quotidien et prendre en compte quelques procédures.
Si quelqu'un peut m'aider à avancer?
Par soucis de confidentialité aucun termes techniques n'est utilisé dans mon modèle.
Cdlt
A voir également:
- Création d'un fichier excel avec macro et userform
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment ouvrir un fichier epub ? - Guide
- Word et excel gratuit - Guide
35 réponses
Avec des impression écran c'est mieux:
https://www.cjoint.com/?3CkpiYpnCiT
Fichier word valable 4 jours.
https://www.cjoint.com/?3CkpiYpnCiT
Fichier word valable 4 jours.
Bonjour,
Je vous suggère de réaliser un exemple manuellement directement sur le classeur (pasdouemacro_ccm_modele_surv_v04.xlsm)en créant une feuille client pour un des domaines y compris 2-4 référence de rapport, vous remplissez les divers thèmes et par la même occasion vous renseignez une ligne de la feuille [recap] avec les résultats à obtenir. Ensuite poster le classeur.
Je vous suggère de réaliser un exemple manuellement directement sur le classeur (pasdouemacro_ccm_modele_surv_v04.xlsm)en créant une feuille client pour un des domaines y compris 2-4 référence de rapport, vous remplissez les divers thèmes et par la même occasion vous renseignez une ligne de la feuille [recap] avec les résultats à obtenir. Ensuite poster le classeur.
Bonjour,
Concerne :
Dans l'exemple il n'y a que deux remarques alors....
Pour moi il y a 3 remarques dans thème 1 ( 2 identiques (item 4) et 1 item 6 soit compte pour 2
Et 2 remarques dans le thème 4 (2 identiques (item 1) soit compte pour 1
Résultat pour [recap] : 2 remarques pour thème 1 au lieu de 1 et c'est ok pour thème 4.
Concerne :
Dans l'exemple il n'y a que deux remarques alors....
Pour moi il y a 3 remarques dans thème 1 ( 2 identiques (item 4) et 1 item 6 soit compte pour 2
Et 2 remarques dans le thème 4 (2 identiques (item 1) soit compte pour 1
Résultat pour [recap] : 2 remarques pour thème 1 au lieu de 1 et c'est ok pour thème 4.
Dans le recap les remarques identiques ne se comptent qu'une fois: ce qui importe c'est la référence des rapports (entre parenthèse)
Excel devrait être en mesure de reconnaitre des valeurs identiques pour ne les comptabiliser qu'une seule fois.
J'entends remarques identiques dans deux rapports différents.
Cdlt,
Excel devrait être en mesure de reconnaitre des valeurs identiques pour ne les comptabiliser qu'une seule fois.
J'entends remarques identiques dans deux rapports différents.
Cdlt,
Bonjour,
Pas d'accord, dans votre exemple il y a 2 remarque différentes pour le thème 1 et une pour thème 4.
Note Excel n'est pas en mesure de reconnaitre de lui-même, c'est pourquoi on existe encore...!
Pas d'accord, dans votre exemple il y a 2 remarque différentes pour le thème 1 et une pour thème 4.
Note Excel n'est pas en mesure de reconnaitre de lui-même, c'est pourquoi on existe encore...!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon jour,
Je reviens une encore une fois sur les items des thèmes, suite à votre citation : Le nombre d'item doit pouvoir être flexible.
Les divers items par thèmes sont certainement fixés et pour un contrôle il y aura qu'une partie de contrôlé. Par contre pour le formulaire (UserForm) il serait bien de connaitre le nombre maximum d'items pour chaque thème.
Dans ce sens il est impératif que les feuilles modèle est des tableaux avec la totalité des items et pas seulement 7 comme ici.
Salutations.
Le Pingou
Je reviens une encore une fois sur les items des thèmes, suite à votre citation : Le nombre d'item doit pouvoir être flexible.
Les divers items par thèmes sont certainement fixés et pour un contrôle il y aura qu'une partie de contrôlé. Par contre pour le formulaire (UserForm) il serait bien de connaitre le nombre maximum d'items pour chaque thème.
Dans ce sens il est impératif que les feuilles modèle est des tableaux avec la totalité des items et pas seulement 7 comme ici.
Salutations.
Le Pingou
"pasdouémacro - 5 mars 2014 à 15:18
Bonjour
on commence par le domaine (pl, am etc...): pour chaque domaine il y a 4 rapports (sauf pour le domaine am: 10 rapports) et pour chaque rapport il y a x thèmes déjà explicité (voir mon fichier word)
Par thème il y a de 1 à 7 items (on peut aller jusqu'à 12?: ça je saurais avec la pratique en fait).
Dsl pour le retard... bcp de boulot."
Bonjour
on commence par le domaine (pl, am etc...): pour chaque domaine il y a 4 rapports (sauf pour le domaine am: 10 rapports) et pour chaque rapport il y a x thèmes déjà explicité (voir mon fichier word)
Par thème il y a de 1 à 7 items (on peut aller jusqu'à 12?: ça je saurais avec la pratique en fait).
Dsl pour le retard... bcp de boulot."
Bonjour,
Merci, je l'avais retrouvé entre-deux. En conséquences les feuilles modèle doivent avoir aussi 12 items, ce qui veut dire que le formulaire doit aussi allez jusqu'à 12.
Vous parlez de votre fichier Word, je pense qu'il s'agit de celui ou j'ai mis de petite note qui sont toujours sans réponse..!
Salutations.
Le Pingou
Merci, je l'avais retrouvé entre-deux. En conséquences les feuilles modèle doivent avoir aussi 12 items, ce qui veut dire que le formulaire doit aussi allez jusqu'à 12.
Vous parlez de votre fichier Word, je pense qu'il s'agit de celui ou j'ai mis de petite note qui sont toujours sans réponse..!
Salutations.
Le Pingou
Bonjour,
Vous essayez cette version au niveau du fonctionnement pour l'entrée des rapports et renseignent des feuilles de contrôle.
La suite se fera uniquement quand cette première phase sera OK à 100%.
Note: vous me renvoyez le classeur avec les essais, merci.
La version 6 : https://www.cjoint.com/?3CoxwilfXW5
Salutations.
Le Pingou
Vous essayez cette version au niveau du fonctionnement pour l'entrée des rapports et renseignent des feuilles de contrôle.
La suite se fera uniquement quand cette première phase sera OK à 100%.
Note: vous me renvoyez le classeur avec les essais, merci.
La version 6 : https://www.cjoint.com/?3CoxwilfXW5
Salutations.
Le Pingou
Bonjour,
Merci infiniment de votre réponse qui ne ...
Ma proposition : https://www.cjoint.com/?3CsxemhfsDB
Merci infiniment de votre réponse qui ne ...
Ma proposition : https://www.cjoint.com/?3CsxemhfsDB
Excellent
Cependant il faudrait un modèle par thème (ex: un modele Données générales, un modèle réglementation) et par domaine (Am, Pl).
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Rem et nc se selectionnent dans l'userform.
Petit rappel: je dois pouvoir modifier les phrases et les item selon les procédures que j'utilise.
Cependant il faudrait un modèle par thème (ex: un modele Données générales, un modèle réglementation) et par domaine (Am, Pl).
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Rem et nc se selectionnent dans l'userform.
Petit rappel: je dois pouvoir modifier les phrases et les item selon les procédures que j'utilise.
Bonjour,
J'ai remarqué une grosse faute dans la feuille [recap], les valeurs ne correspondait pas aux feuilles de contrôles, cela vous a échappé sans doute.... !
Cette version est valable : https://www.cjoint.com/?3Ctq4jnd7Sd
J'ai remarqué une grosse faute dans la feuille [recap], les valeurs ne correspondait pas aux feuilles de contrôles, cela vous a échappé sans doute.... !
Cette version est valable : https://www.cjoint.com/?3Ctq4jnd7Sd
Bonjour,
Concerne:
Cependant il faudrait un modèle par thème (ex: un modele Données générales, un modèle réglementation) et par domaine (Am, Pl).
Réponse :
Pourquoi cela, vous avez indiqué un modèle par domaine et c'est tout.
L'application vous crée une feuille par client et domaine avec les intitulés de thème correcte et un résumé des remarques / nc dans la feuille [recap]. Dans ce sens, il est simple de retrouver dans vos feuille [phrases..] la phrase y relative aux référence de la feuille [recap]... domaine : xxx / theme 1/ rem : item1 ;item3....
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Réponse :
inutile puisque la feuille [recap] vous donne le domaine, le thème, remarque :item ,, et nc :item.. qui suffisent à pointé vers la phrase correspondante.
Petit rappel: je dois pouvoir modifier les phrases et les item selon les procédures que j'utilise.
Réponse :
vous avez dans vos feuilles [phrases..] les phrase exactes qui correspondes aux référence de la feuille [recap] alors c'est là et uniquement la que vous modifiiez le texte.... Oui / Non....
Concerne:
Cependant il faudrait un modèle par thème (ex: un modele Données générales, un modèle réglementation) et par domaine (Am, Pl).
Réponse :
Pourquoi cela, vous avez indiqué un modèle par domaine et c'est tout.
L'application vous crée une feuille par client et domaine avec les intitulés de thème correcte et un résumé des remarques / nc dans la feuille [recap]. Dans ce sens, il est simple de retrouver dans vos feuille [phrases..] la phrase y relative aux référence de la feuille [recap]... domaine : xxx / theme 1/ rem : item1 ;item3....
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Réponse :
inutile puisque la feuille [recap] vous donne le domaine, le thème, remarque :item ,, et nc :item.. qui suffisent à pointé vers la phrase correspondante.
Petit rappel: je dois pouvoir modifier les phrases et les item selon les procédures que j'utilise.
Réponse :
vous avez dans vos feuilles [phrases..] les phrase exactes qui correspondes aux référence de la feuille [recap] alors c'est là et uniquement la que vous modifiiez le texte.... Oui / Non....
"
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Réponse :
inutile puisque la feuille [recap] vous donne le domaine, le thème, remarque :item ,, et nc :item.. qui suffisent à pointé vers la phrase correspondante. "
Pourquoi inutile? C'est très utile car le recap sert de publipostage pour éditer un courrier qu'on envoie au client... Le client n'a pas besoin de connaitre les item mais d'avoir une formulation qui résume les "rem" ou "nc".
Il faut avoir en tête la vision finale du truc: un outil pour le controleur et un courrier pdf pour le client.
Le controleur a besoin de critère de controle qui n'ont pas a etre divulgués aux clients
Le client à besoin d'un résume des "nc" et "rem".
Je ne peux pas modifier la procédure dans me fond. Au tant je suis libre pour la création d'outil autant je ne suis lié à une procédure.
Concernant la modification des "phrases" et des "items" je ne le fais que dans les feuilles modele et phrase uniquement.
Bien à vous.
Concernant le recap: les phrases qui apparaissent ne sont pas "item1"; "item2" mais bien les phrases correspondant à "item1"; ...
Exemple: domaine am/Thème données générales:
item 1 (si rem alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_xxxx_1/ si nc alors la phrase suivante apparaitra pour l'item 1 dans le recap :dgam_zzz_1)
Réponse :
inutile puisque la feuille [recap] vous donne le domaine, le thème, remarque :item ,, et nc :item.. qui suffisent à pointé vers la phrase correspondante. "
Pourquoi inutile? C'est très utile car le recap sert de publipostage pour éditer un courrier qu'on envoie au client... Le client n'a pas besoin de connaitre les item mais d'avoir une formulation qui résume les "rem" ou "nc".
Il faut avoir en tête la vision finale du truc: un outil pour le controleur et un courrier pdf pour le client.
Le controleur a besoin de critère de controle qui n'ont pas a etre divulgués aux clients
Le client à besoin d'un résume des "nc" et "rem".
Je ne peux pas modifier la procédure dans me fond. Au tant je suis libre pour la création d'outil autant je ne suis lié à une procédure.
Concernant la modification des "phrases" et des "items" je ne le fais que dans les feuilles modele et phrase uniquement.
Bien à vous.
Bonjour,
J'attends le résultat de vos essais sur le dernier classeur et en indiquant les corrections directement sur la feuille en question (en insérant une forme avec texte...), me renvoyer le classeur.
Au passage les phrase modèle pour DEP et term manquent tous comme celle pour les items de 7 à 12...... !
J'attends le résultat de vos essais sur le dernier classeur et en indiquant les corrections directement sur la feuille en question (en insérant une forme avec texte...), me renvoyer le classeur.
Au passage les phrase modèle pour DEP et term manquent tous comme celle pour les items de 7 à 12...... !
Bonjour,
Réflexion faite, je pense qu'il serait mieux de reprendre l'application depuis le début pas à pas en mentionnant ce qui est correct si pas alors qu'elle devrait être la suite correcte .....
Réflexion faite, je pense qu'il serait mieux de reprendre l'application depuis le début pas à pas en mentionnant ce qui est correct si pas alors qu'elle devrait être la suite correcte .....
Bonjour,
Est-ce que cette version est dans le bon sens (ne pas tenir compte de la feuille [recap])... ?
Note : la feuille [Listes] sert de base pour le formulaire qui s'adapte selon le domaine et les sous-thèmes (ancien item...) ... !
A voir : https://www.cjoint.com/?3CuxmoaZZED
Est-ce que cette version est dans le bon sens (ne pas tenir compte de la feuille [recap])... ?
Note : la feuille [Listes] sert de base pour le formulaire qui s'adapte selon le domaine et les sous-thèmes (ancien item...) ... !
A voir : https://www.cjoint.com/?3CuxmoaZZED
Bonjour,
Je pense que la version 10 est une base très intéressante.
Toutes fois quand je saisi un deuxième et troisième rapport, le n° du rapport n'apparait pas dans la fiche client: voir impression écran jointe
J'ai testé avec rapport "N°"123" ce numéro apparait ok
Ensuite rapports N°"456" et "789" : ces numéros n'apparaissent pas.
https://www.cjoint.com/?DCvjBIZNPCv
L'idée des sous thème est bien vu: surtout que ça semble vous aider à mieux saisir mes attentes.
Merci beaucoup.
Je pense que la version 10 est une base très intéressante.
Toutes fois quand je saisi un deuxième et troisième rapport, le n° du rapport n'apparait pas dans la fiche client: voir impression écran jointe
J'ai testé avec rapport "N°"123" ce numéro apparait ok
Ensuite rapports N°"456" et "789" : ces numéros n'apparaissent pas.
https://www.cjoint.com/?DCvjBIZNPCv
L'idée des sous thème est bien vu: surtout que ça semble vous aider à mieux saisir mes attentes.
Merci beaucoup.
Bonjour,
Merci pour l'information.
Votre image d'écran ne m'apporte absolument rien.
Par contre quand je demande de me renvoyer le classeur après les tests, pourquoi ne pas le faire... ?
Et en plus vous pouvez mettre une note directement à l'endroit concerné .... !
Merci pour l'information.
Votre image d'écran ne m'apporte absolument rien.
Par contre quand je demande de me renvoyer le classeur après les tests, pourquoi ne pas le faire... ?
Et en plus vous pouvez mettre une note directement à l'endroit concerné .... !
Bonjour,
Eh bien pour moi ce n'est pas juste car selon mon test, vous devriez avoir 456 et 01 à la place de 789.
Encore une fois si je demande le retour du classeur après essai ce n'est pas pour rien.
Eh bien pour moi ce n'est pas juste car selon mon test, vous devriez avoir 456 et 01 à la place de 789.
Encore une fois si je demande le retour du classeur après essai ce n'est pas pour rien.
Super d'avoir pensée à cette possibilité.
Je vous fais remarquer qu'à aucun moment vous avez mentionnez que les item1/7 représentaient une date et que le titre de colonne dans les feuilles [modele...] n'existait pas du tout, le résultat vous l'avez devant-vous.
Salutations.
Le Pingou
"Date de visite" c'est le point de controle "item1" de donnée générale
Que ce soit écrit "item1", "date de visite" ou "blabla" ça ne change rien ni pour les formules, ni pour l'userform, ni les macros.
ça change juste pour le contrôleur.
Le controleur vérifie juste que le rapport qu'il controle comporte bien les informations "items" prévues par la réglementation.
J'ai des contraintes de confidentialité, donc je ne pourrais pas tout révéler. Mais ne vous occupez pas des termes qui remplaceront les "items".
c'est vrai que ça peut influencer pour les phrases à inscrire dans le recap: mais on n'y est pas encore.
Desolé d'avoir semé la confusion.
Cdlt,
Séb
Merci pour les informations.
Je vais donc attendre de voir ce que vous décidez avec ma suggestion...!
Salutations.
Le Pingou