Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

probleme de vba

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

picronte

XLDnaute Occasionnel
Bonjour le fil
Dans l'onglet récap je clic sur réponse il me retranscrit bien les données, mais il ne me donne pas les bonnes réponses. Je m'explique, dans l'onglet "grille des réponses" sont coloriées en rouge les bonnes réponses. Quand le candidat a passé l'épreuve je retranscris ces réponses dans un onglet renommé à son nom. Et quand je vais dans récap en cliquant sur réponse je voudrais qu'il me donne les bonne et mauvaise réponses par oui ou non
Merci de me donner mon erreur
Picronte
 

Pièces jointes

Trier par date Trier par votes
Re : probleme de vba

Bonjour picronte,

Je reconnais un travail que j'ai fait avec vous en janvier 2010.

1) Vous avez protégé la feuille JARRIL Alain, mais j'ai trouvé le mot de passe 😎

2) Dans la feuille grille des réponses, les cases incolores sont colorées... en blanc (code 2), ce qui faussait le test de couleur (>0) dans la macro.

J'ai donc corrigé la macro ainsi :

Code: 
Sub Reponses()
'------
For Each F3 In Worksheets 'analyse de chaque feuille
  If F3.Name <> F1.Name And F3.Name <> F2.Name Then
    F3.Unprotect "picronte"
'------
        If (F2.Cells(lig, col).Interior.ColorIndex = 3) <> (F3.Cells(lig, col) <> "") Then
'------
    F3.Protect "picronte"
  End If
Next F3
End Sub

Fichier (3) joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : probleme de vba

bonsoir job 75
effectivement tu as bien reconnu ton travail, et encore merci. peux tu me dire la signification ce cette ligne If (F2.Cells(lig, col).Interior.ColorIndex = 3) <> (F3.Cells(lig, col) <> "") Then
merci
picronte
 
Vote positif 0 Vote négatif
Re : probleme de vba

Bonsoir picronte,

Code: 
If (F2.Cells(lig, col).Interior.ColorIndex = 3) <> (F3.Cells(lig, col) <> "") Then
Vous êtes resté un an sans comprendre 😕

Si le test de couleur (rouge) de la cellule de la feuille F2 est différent du test de présence d'une valeur dans la même cellule de la feuille F3, ALORS...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : probleme de vba

bonjour job
et merci pour l'explication. effectivement je n'avais pas cherché a comprendre l'année dernière, j'ai été au plus simple.
mais la j'ai compris et je ne ferai plus le même erreur l'année prochaine, enfin je l’espère!!!!!
Encore merci pour ce site et de votre réactivité
Cordialemment
Picronte
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
580
Gégé-45550
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
679
Jaykerz
J
R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
518
Rosario.
R
  • Question Question
Microsoft 365 NFC et Excel
Réponses
1
Affichages
252
sylvanu
E
  • Question Question
Microsoft 365 Analyse de données temps de prod
Réponses
4
Affichages
309
ejik85
E
L
  • Résolu(e)
XL 2016 formule nombre de véhicules mensuel
2 3
Réponses
34
Affichages
1 K
Lionel 25
L
J
  • Question Question
Autres Protection de données
Réponses
6
Affichages
315
TooFatBoy
F
  • Question Question
Microsoft 365 Excel - Report des valeurs et détection de doublons
Réponses
7
Affichages
362
djidji59430
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
544
AtTheOne
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
  • Résolu(e)
XL 2010 Extraction de la valeur de l’heure d’une date
2
Réponses
15
Affichages
1 K
jeanmi
  • Question Question
XL 2016 * RESOLU *Automatisation jours de récup
Réponses
2
Affichages
215
Agecanonix35400
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
957
vgendron
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
609
Raziel abel
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
671
cindynico38
C
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
390
richardlion
C
  • Question Question
XL 2016 Création d'un fichier Excel de planification d'équipe avec contraintes
Réponses
8
Affichages
969
fanfan38
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
680
Dégé59
D
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
3 K
Dranreb
  • Question Question
XL 2016 rajouter une colonne en macro
Réponses
0
Affichages
254
richardlion
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…