A voir également:
- Enigme pere fourras
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Voici du code ascii : 34 2d 3f 3d 31 décodez-le et résolvez l'énigme trouvée ✓ - Forum Loisirs / Divertissements
- Voici du code ascii : 34 2d 3f 3d 31 décodez-le et résolvez l'énigme trouvée. - Forum Loisirs / Divertissements
- Polyland énigme ✓ - Forum Loisirs / Divertissements
- Énigme - Forum Loisirs / Divertissements
4 réponses
Salut, c'est exactement ce que je voudrais créer. Pouvez vous m'expliquer comment m'y prendre ? Je sais qu'il y a un rapport avec la fonction SI SI(test_logique;valeur_si_vrai;valeur_si_faux)
mais comment faites vous pour cacher les réponses comme ici en E3 =SI(D3="";"";EXACT(C3;D3)). Et comment faites vous pour faire ensuite apparaitre une question lorsque la cellule marque vrai ? merci de bien vouloir m'éclairer
Sinon Pourriez vous également m'envoyer un fichier excel vierge avec macro inclus ou j'écrirai seulement les questions et réponses ?
mais comment faites vous pour cacher les réponses comme ici en E3 =SI(D3="";"";EXACT(C3;D3)). Et comment faites vous pour faire ensuite apparaitre une question lorsque la cellule marque vrai ? merci de bien vouloir m'éclairer
Sinon Pourriez vous également m'envoyer un fichier excel vierge avec macro inclus ou j'écrirai seulement les questions et réponses ?
Bonjour,
Dans le fichier donné plus haut, les lignes sont cachées et apparaissent en fonction de la valeur contenue en colonne E grâce à une macro. En voici son code :
Ensuite, pour afficher les réponses en colonne E, la formule : =SI(D3="";"";EXACT(C3;D3)) dit exactement : Si D3 est vide alors on n'affiche rien, sinon on affiche le résultat de la formule EXACT(C3;D3). Cette formule EXACT renvoie vrai si les 2 valeurs sont rigoureusement identiques sinon elle renvoie FAUX
Dans le fichier donné plus haut, les lignes sont cachées et apparaissent en fonction de la valeur contenue en colonne E grâce à une macro. En voici son code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DrLig As Long
If Target.Column <> 4 Then Exit Sub
DrLig = Range("D" & Rows.Count).End(xlUp).Row
If DrLig = Target.Row And Target.Offset(0, 1).Value = "Vrai" Then
Rows(Target.Offset(1, 0).Row).EntireRow.Hidden = False
End If
End Sub
Ensuite, pour afficher les réponses en colonne E, la formule : =SI(D3="";"";EXACT(C3;D3)) dit exactement : Si D3 est vide alors on n'affiche rien, sinon on affiche le résultat de la formule EXACT(C3;D3). Cette formule EXACT renvoie vrai si les 2 valeurs sont rigoureusement identiques sinon elle renvoie FAUX