Consignes de travail modifier

Finalement j’ai réorganisé la leçon Macro-commandes de façon à ce que vous complétiez le chapitre Création de Formulaire à cette adresse ==> https://fr.wikiversity.org/wiki/Macros-commandes/Création_de_Formulaire

Ce que j'attends de vous au minimum (plus vous démarrez tôt, plus je pourrais vous aider) :

  • Une personnalisation des informations de présentation de votre alias BKMVBA
  • Une réécriture complète et conséquente du chapitre Création de Formulaire qui comprend déjà beaucoup de contenu mais qui est très inorganisé
  • La création d'un nouveau QUIZ sur les formulaires VBA, complémentaire (et non pas redondant) avec le QUIZ déjà existant sur les formulaires
  • La création d'une nouvelle annexe spécifique sur les formulaires VBA (par exemple : liste des propriétés des contrôles ACTIVEX, liste des événements sur ces contrôles, ...)
  • La création d'un nouvel exercice spécifique sur les formulaires avec un titre, un énoncé et une solution (corrigé) masquable (voir exercices d'autres leçons)

Pour ce faire, vous disposez :

  • de mon support de cours WIKIVERSITY
  • de mon support de cours VBA
  • de votre compte BKMVBA vous permettant de vous connecter de manière reconnue à cette adresse : https://fr.wikiversity.org/wiki/Utilisateur:BKMVBA
  • du mot de passe de ce compte que je vous ai communiqué
  • des pages de discussion concernant aussi bien votre compte que chaque page de votre leçon

À bientôt

Mamagalubru (discussion) 4 avril 2014 à 20:29 (UTC)Répondre

--Lydie Noria (discussion) 24 mai 2014 à 10:46 (UTC)Répondre

Premiers Commentaires modifier

Bonjour,

Quelques commentaires sur votre leçon.

Les 5 premiers paragraphes me semblent être des vrais paragraphes de leçons mais ne me semblent encore pas très clairs (manque de phrases d'explication et d'images).

Les paragraphes suivants (jusqu'aux annexes) me semblent soit mal placés (soit superflus)

  • À déplacer vers les chapitres d'exemple/exercice
    • Exemple d'initialisation d'un formulaire
    • Exemple de code associé à un contrôle
  • À déplacer vers les chapitres d'annexe
    • Les principales propriétés des contrôles

Le quiz (QCM Controles Activex) a été généré par recopie sans modification d'un autre QCM

Vous n'avez pas ajouté d'annexe à la leçon VBA, je vous en propose (par déplacement) une ci-dessus Vous n'avez pas ajouté d'exemple/exercice à la leçon VBA, je vous en propose (par déplacement) deux ci-dessus

À bientôt

Mamagalubru (discussion) 30 mai 2014 à 19:42 (UTC)Répondre

Votre présentation orale modifier

Bonjour,

Ce que j'attends de vous précisément pour l'oral de début juin :

Les 10 premières minutes :

   Présentation de votre groupe grâce à votre page Wikiversité de présentation
   Présentation de votre page d'accueil de leçon Wikiversité
   Présentation de votre plan de leçon
   Présentation de la partie de votre leçon qui permet de répondre et de comprendre le quiz et l'exemple/exercice que vous présentez ci-après

Les 10 minutes suivantes :

   Présentation orale de votre QUIZ
   Soumission électronique de votre QUIZ aux autres sous-groupe d'étudiants (soit toutes les questions d'un coup avec correction différée, soit question participative et réponse en direct)
   Correction orale de votre QUIZ (si vous avez opté pour la correction différée)

Les 10 dernières minutes :

   Présentation orale de votre exemple/exercice
   Soumission électronique de votre exemple/exercice aux autres sous-groupe d'étudiants (soit vous développez tout (énoncé et correction), soit vous laissez les étudiants chercher)
   Correction orale de votre exemple/exercice (si vous avez opté pour la correction différée)

À bientôt

Mamagalubru (discussion) 30 mai 2014 à 19:44 (UTC)Répondre

Et si on s'inspirait maintenant des bonnes idées des autres modifier

Bonjour,

Votre leçon étant bien avancée, je vous propose d'aller espionner les leçons des autres groupes de travail afin de vous inspirer de toutes les bonnes idées de chacun (il y en a beaucoup ...) pour affiner encore un peu plus la vôtre.

Voici ci-dessous les leçons et les pseudos qui sont utilisés par tous les groupes :

À bientôt

Mamagalubru (discussion) 2 juin 2014 à 08:03 (UTC)Répondre

Question sur l'insertion de notre exo modifier

Bonjour Monsieur,

Étant donné que le thème de notre leçon c’est : "création d'un formulaire", il me semblerait intéressant d'ajouter non pas simplement l'énoncé et le code réponse, mais directement le fichier EXCEL pour que l'utilisateur puisse manipuler, se familiariser et s'approprier les formulaires sous VBA.

bonne idée (à intégrer dans la solution) mais l'énoncé et la solution doivent cependant présents sur la leçon

Je n'ai pas trouvé sous wiki comment intégrer des fichiers EXCEL, pensez vous que c’est possible ? Ou la plateforme wiki ne permet pas de faire ce type de chose ?

en premier lieu, il faut trouver un hébergeur de fichier (il y en a beaucoup de gratuits)
en second lieu, il faut insérer le fichier EXCEL chez cet hébergeur, récupérer l'URL de ce fichier (l'adresse INTERNET de ce fichier)
dans un troisième temps, insérer dans votre solution d'exercice un lien vers l'URL de ce fichier ==> voir Aide:Liens_externes
À bientôt
Mamagalubru (discussion) 5 juin 2014 à 10:04 (UTC)Répondre

Questions - débogages modifier

Merci pour votre réponse précédente, j’ai encore une question... j’ai un problème avec l'exercice encore simplifié, et je ne trouve pas mon erreur... serait-il possible d’avoir une aide de votre part sur ce point ? L'exo que nous voulons mettre en ligne tourne bien mais il est trop long et trop complexe pour notre auditoire de demain et nous voulons vraiment qu’ils sortent de notre présentation en ayant envie de créer leur propre formulaire, donc j’ai simplifié grandement le ficher, simplement j’ai du oublier quelque chose car le transfert de données de fonctionne pas et je vous avoue que je ne trouve pas l'erreur...

Voici le code :

Option Explicit

Public numeroDeProjet As Integer Dim f As Object

Dim projet As Integer Dim ligned As Integer Dim lignef As Integer Dim ligne As Integer Dim boite As Integer Dim colonne As Integer Dim I As Integer Dim lign As Integer


Private Sub ComboBoxProjet_AfterUpdate()


   I = numeroDeProjet

lign = 3 + (I * 5) UserForm1.LabelActeur1 = Sheets("BDD").Cells(lign, 2) lign = lign + 1 UserForm1.LabelActeur2 = Sheets("BDD").Cells(lign, 2) lign = lign + 1 UserForm1.LabelActeur3 = Sheets("BDD").Cells(lign, 2)

End Sub

Private Sub ComboBoxProjet_Change()

   ' se positionne sur la feuille suivi
   Set f = Sheets("BDD")
   ' récupère le numéro d'ordre du projet
   numeroDeProjet = ComboBoxProjet.ListIndex
   ' attention la numérotation commence à 0
   

End Sub


Private Sub CommandButtonQuitter_Click()

   ' se positionne sur la feuille suivi
   Set f = Sheets("BDD")
   'Bouton de commande quitter, qui décharge le formulaire quand on clique
   Unload Me

End Sub

Sub CommandButtonEnregistrer_Click()

   ' se positionne sur la feuille suivi
   Set f = Sheets("BDD")
   ' teste l’ordre du projet sélectionné
   If numeroDeProjet >= 0 Then
       'initialise les lignes de début et de fin
       'en fonction de l’ordre du projet dans le combo
       ligned = (numeroDeProjet * 5) + 3
       lignef = ligned + 2
   End If
   
   ' initialiser les box
   boite = 0
   ' boucle sur les lignes de début à fin
   For ligne = ligned To lignef
       ' boucle sur les colonnes C à F
       For colonne = 3 To 6
           ' change de textbox à chaque tour
           boite = boite + 1
           ' range dans la cellule pointée par la colonne et la ligne
           ' la valeur de la boite de texte pointée par le numéro de box
           f.Cells(ligne, colonne) = Me.Controls("TextBox" & boite).Value
       ' va à la colonne suivante
       Next colonne
   ' va à la ligne suivante
   Next ligne
   

End Sub


Private Sub UserForm_Initialize()


   ' se positionne sur la feuille projet
   Set f = Sheets("Projets")
   'initialise les variables de projets
   numeroDeProjet = -1
   'Alimentation de la combobox avec le nom des différents projets
   For projet = 2 To 4
       ComboBoxProjet.AddItem f.Cells(projet, 1)
   Next projet
   ' se positionne sur la feuille suivi
   Set f = Sheets("BDD")
   
          

End Sub