Qcm sur excel

marietti -  
Bonjour,

J'utilisais des qcm pour mes éléves avec excel 2003 et windows XP mais depuis que mon nouveau pc tourne sur windows 7 avec excel 2010 le qcm bloque au début.
Ily a un message d'eereur 100a impossible de lire les caractéres de la charte drawing.
Il ya certainement un parametrage a faire mais lequel.
Merci de votre aide.

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. Mytå Contributeur
    salut le forum

    Essaye de nous joindre le fichier

    Pour joindre un fichier, tu crées un lien à l'aide de
    https://www.cjoint.com/ ou de http://cijoint.fr/ et tu
    recopies le lien dans ton prochain message.

    Mytå
    1. Raymond PENTIER Contributeur
      ... parce que, pour le moment, ton explication est parfaitement incompréhensible !

      Tu confirmes l'exactitude de cette phrase : "ly a un message d'eereur 100a impossible de lire les caractéres de la charte drawing." ?
      1. marietti Auteur
        Ok j'etais fatigué.
        J'ouvre le fichier , à la demande j'active les macros , ensuite je rentre un nom puis un message d'erreur Voici un exemple de qcm :https://www.cjoint.com/?AJlhB2WdMKc
        Erreur 1004 "impossible de lire la charte des Characters drawing"
        Le debuger donne : erreur surla ligne soulignée en gras

        Sub AfficheConsigne(Txt)
        Déprotège
        ActiveSheet.Shapes("Nuage").Select
        Selection.Characters.Text = Txt
        With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 16
        .ColorIndex = 1
        End With
        Protège
        End Sub
        Merci
        1. Matheux ^^
          J'ai eu tout juste
      2. marietti Auteur
        Tu n'as pas eu de message d'erreur ????
        Excel 2003 / 2007 / 2010 ?
        1. UsulArrakis Contributeur
          salut
          moi j'ai le message d'erreur avec excel 2007
      4. Mytå Contributeur
        Salut le forum

        C'est la forme Nuage qui ne gère pas les actions, cela fonctionne avec une ellipse 
        Sub AfficheConsigne(Txt)
 Déprotège
    ActiveSheet.Shapes("Ellipse 13").Select
    Selection.Characters.Text = Txt
    With Selection.Characters(Start:=1, Length:=5).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 16
        .ColorIndex = 1
    End With
'    ActiveSheet.Shapes("Nuage").Select
'    Selection.Characters.Text = Txt
'    With Selection.Characters(Start:=1, Length:=5).Font
'        .Name = "Arial"
'        .FontStyle = "Gras"
'        .Size = 16
'        .ColorIndex = 1
'    End With
 Protège
End Sub

        Mytå
        Quelle prétention de prétendre que l'informatique est récente
        Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]