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

    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
    1. 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
    2. 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
    3. 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
      2. 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