Sujet Précédent Sujet Suivant

Macro animation fichier avec 2 boutons

Fermé
pegase67000 Messages postés 7 Date d'inscription vendredi 12 février 2016 Statut Membre Dernière intervention 26 février 2016 - 26 févr. 2016 à 08:24
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 févr. 2016 à 14:02
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 vendredi 18 juillet 2008 Statut Membre Dernière intervention 21 mai 2019 95
26 févr. 2016 à 10:20
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 vendredi 12 février 2016 Statut Membre Dernière intervention 26 février 2016
26 févr. 2016 à 10:42
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 vendredi 18 juillet 2008 Statut Membre Dernière intervention 21 mai 2019 95
26 févr. 2016 à 11:06
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 vendredi 12 février 2016 Statut Membre Dernière intervention 26 février 2016
26 févr. 2016 à 12:22
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
26 févr. 2016 à 12:24
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 26/02/2016 à 14:28
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

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses