Macro animation fichier avec 2 boutons

pegase67000 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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




A voir également:

6 réponses

Réponse 1 / 6
didibonf Messages postés 419 Date d'inscription   Statut Membre Dernière intervention   96
 
Bonjour,
Je pense qu'il y a un souci avec le lien, je n'arrive à accéder à votre document.

didibonf
0
Réponse 2 / 6
pegase67000 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 6
didibonf Messages postés 419 Date d'inscription   Statut Membre Dernière intervention   96
 
Dans tes constantes il y a une erreur :
Const F3 = "Feuil1"
La correction se fait sur la mauvaise feuille

didibonf
0
Réponse 4 / 6
pegase67000 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
re .. merci de ta réponse mais malgré la correction les macros sur la feuille 3 restent inactivent
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Maurice
 
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
0
Réponse 6 / 6
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0