macro animation fichier avec 2 boutons

Question

bonjour 

je suis entrain de créer un fichier de préparation à un concours avec des questions a choix multiples ....

la feuille 1 contient les questions et la feuille 2 les réponses... 
le bouton correction permet d'afficher les bonnes réponses et de faire le total de bonnes réponses..
le bouton RAZ remet tout a zéro et efface tout

j'ai recréé une feuille 3 et une feuille 4 sur le même modèle mais je n'arrive pas à les animer comme 1 et 2.
la programmation est en VBA

je joins le fichier sur www.cjoint.com

merci d'avance pour toute votre aide

cordialement


https://www.cjoint.com/c/FBAhfabucty




Configuration: Windows 7 / Chrome 48.0.2564.116

didibonf · Answer

Bonjour,
Je pense qu'il y a un souci avec le lien, je n'arrive à accéder à votre document.

didibonf

pegase67000 · Answer

bonjour

désolé si ton accès est difficile même si j'ai essayé et ça à fonctionné... toujours es-il qu je te remets un nouveau lien ci-dessous

cdnt

https://www.cjoint.com/c/FBAjMUPWRVy

didibonf · Answer

Dans tes constantes il y a une erreur :
Const F3 = "Feuil1"
La correction se fait sur la mauvaise feuille

didibonf

pegase67000 · Answer

re .. merci de ta réponse mais malgré la correction les macros sur la feuille 3 restent inactivent

Maurice · Answer

Bonjour
Mettre plutôt les codeName
car si tu change les nom des onglet ça ne marche plus
exemple

Sub RAZ()
Dim liF1 As Long, lifinF1 As Long
   With Feuil1 ' Feuil1 = CodeName
      lifinF1 = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
         For liF1 = 1 To lifinF1
           If UCase(.Cells(liF1, cocoF1)) = "X" Then  'RAZ réponses
              .Cells(liF1, cocoF1).Value = ""
           End If
           If UCase(.Cells(liF1, coreF1)) = "X" Then  'RAZ corretion
              .Cells(liF1, coreF1).Value = ""
           End If
         Next liF1
      .Range(celscF1).Value = ""  'RAZ score final
   End With
End Sub

A+
Maurice

michel_m · Answer

Bonjour Pegase  et Cie

un petite démo pour modifier une valeur dans un tableau en 1 seule boucle et en travaillant que sur la valeur à modifier
a adapter au contexte
http://www.cjoint.com/c/FBAnBNzDXhu
< Michel

Macro animation fichier avec 2 boutons

6 réponses

Discussions similaires

Newsletters