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

  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å
    0
    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." ?
      0
      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
        0
        1. Matheux ^^
          J'ai eu tout juste
          0
      2. marietti Auteur
        Tu n'as pas eu de message d'erreur ????
        Excel 2003 / 2007 / 2010 ?
        0
        1. UsulArrakis Contributeur
          salut
          moi j'ai le message d'erreur avec excel 2007
          0
      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)]
        0