Discussion :

[crocket95]

Bonjour, ce post fait suite à un autre post "formulaire appli éducative".
j'ai cette formule dans un tableau structuré, je n'arrive pas à remplacer les références "t_nombres" par la valeur
qui se trouve dans une cellule avec liste déroulante. j'ai bien essayé de crée une cellule nommée et le remplacer dans la formule, voir exemple mais il y a un message d'érreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI([@Réponse]="";"";INDEX(t_nombres[Français];EQUIV([@anglais];t_nombres[anglais];0))=[Réponse])

J'ai crée une liste déroulante afin de choisir le tableau de "donnée" avec lequel je souhaite travailler.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI([@Réponse]="";"";INDEX(t_Dico[Français];EQUIV([@anglais];t_Dico[Anglais];0))=[Réponse])

.

j'espère être claire.
Merci de me guider.

[Philippe Tulliez]

Bonjour,

Bonjour, ce post fait suite à un autre post "formulaire appli éducative".

Afin d'éviter que l'on cherche inutilement, il serait intéressant que tu intègres le lien de la discussion parce-que je suppose qu'il y a une image de la présentation des données

Sauf erreur de ma part, tu utilises seulement une colonne comme référence au tableau de la fonction INDEX si je me réfère à t_nombres[Français] et donc si on pouvait visualiser l'organisation des données, ce serait plus simple pour apporter une réponse pertinente.

[crocket95]

voici le lien:

---

https://www.developpez.net/forums/d2061108/logiciels/microsoft-office/excel/formulaire-appli-educative/ et voici le fichier:

[Pierre Fauconnier]

Salut.

Tu pourrais t'en sortir avec INDIRECT qui permet de recomposer une adresse valide

[crocket95]

Pierre, je ne saisie pas très bien ton approche. Pour voir si on parle bien de la même chose.
si en (J1) je choisi un thème, il faut que c'est celui-ci qui s'applique. Je sais que je dois également modifier le code vba dans la réference. mais je verrai cela plus tard.

[Pierre Fauconnier]

Indirect permet de recomposer une adresse "par ricochet". Le but ici est de recomposer le nom du tableau qui est soit t_Anglais soit t_Français. On assemble donc des morceaux de texte dont certains sont variables (le nom du tableau) et d'autres sont fixes (t_ et [Mots] afin de recomposer une adresse utilisable au sein de la formule. Cette adresse peut être une "vraie" adresse ($A$2), une plage nommée ou une référence structurée comme dans ce cas-ci.

Tu peux utiliser un chouette outil pour comprendre comment fonctionne cette formule (voir mon billet de blog), c'est l'audit de formules (Onglet du ruban Formules>Vérification des formules>Evaluer la formule). (Cet outil est depuis longtemps sur ma barre d'accès rapide car je l'utilise souvent!).



Cet outil te permet d'avancer pas à pas dans la résolution de ta formule, et chaque clic sur EVALUER va remplacer ce qui est souligné dans le cadre d'évaluation par la vraie valeur utilisée par Excel.



Après quelques clics sur EVALUER (Prends le temps de bien observer chaque étape), tu verras que INDIRECT("t_" & $e$1 & "[Mots]") a été remplacé par $C$2:$C$8, soit la plage des mots du tableau t_Français. Si tu ferme la boite de dialogue et que tu saisis Anglais en E1 puis que tu utilises à nouveau l'outil d'évaluation, tu verras qu'à la même étape, Excel va utiliser la plage $A$2:$A$7.

[crocket95]

un grand merci pour tes explications, j'étais justement entraint de tester tes formules.
je te fais retour plus tard.

[crocket95]

Bonjour à tous,
Pierre j'ai réussi à aménager la formule avec la fonction indirect, comme tu me l'as suggéré ;
maintenant comment dois je faire pour modifier "t_nombres" pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Prepare()
  Dim Counter As Long
  Dim Index As Long
  Dim Dico
 
  
    
  Set Dico = CreateObject("Scripting.Dictionary")
  For Counter = 1 To Range("t_Test").Rows.Count
    Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Do While Dico.Exists(Index)
      Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Loop
    Dico.Add Index, Index
    Range("t_test[anglais]")(Counter).Value = Range("t_nombres[anglais]")(Index)
  Next
  Range("t_test[anglais]").Value = Range("t_test[anglais]").Value
  Range("t_test[Réponse]").Value = ""
End Sub

[crocket95]

oups,
en fonction de la valeur d'une cellule par exemple (I1), comment faire pour "t_nombres" prenne la valeur de (I1).
Je pense qu'il faut passer par une variable? j'ai fait des essais, mais non concluant pour le moment.

[78chris]

Bonjour à tous

Soit on passe par une formule et on utilise INDIRECT soit on passe par VBA et dans ce cas le plus simple est de définir une variable ListObject

I y a un truc que je pige pas dans ton code

ligne 15 tu remplaces la valeur de la colonne anglais par la valeur d'une autre ligne

à la fin de la boucle tout est donc remplacé

ligne 17 tu copies la colonne sur elle-même, ce qui ne sert à rien : y a t'il une erreur ? Utiliser le Dictionary peut-être ?

[Pierre Fauconnier]

Salut.

J'ai fusionné les deux discussions pour une meilleure compréhension de la problématique.

Perso, je pense qu'il faut que Crocket définisse d'abord ce qu'il souhaite réaliser, en français et sans jargon informatique Excel ou VBA, et qu'il explique, pourquoi pas avec une ou deux copies d'écran, comment est organisé son classeur au départ.

Sans cela, on va créer des petits bouts de solution dans chacune des discussions, et qu'en Crocket essayera d'assembler le tout, ça risque fort ne pas fonctionner...

[78chris]

Erreur de ma part

[crocket95]

L'appli fonctionne ainsi:
le tableau "t_test" m'affiche un certains nombres de mots en anglais dans la colonne "anglais". On écrit les réponses correspondantes dans la colonne "réponse". si la réponse est juste, il m'affiche "vrai" dans la colonne "résultat" sinon faux. Si la réponse est fausse alors la réponse exact s'affiche dans la colonne "verif".
le fait d'appuyer sur le bouton prépare, fait une remise à zéro de la liste dans le tableau "t_test".
Mon objectif:
Travailler avec les différents tableaux qui sont sur la "feuil2", pour cela j'ai crée une liste dans la colonne "h" avec les noms des tableaux que j'ai repris dans une liste déroulante, dans la cellule (I1). Quand je choisis par exemple" les dizaines". il faut que le tableau "t_test" puisse prendre en compte ce tableau, pour que je puisse travailler le vocabulaire de cette liste.

Si je ne fais pas d’erreur tout le travail sur le tableau "t_test" est réalisé, grâce à l'aide de Pierre. Il me reste qu'à modifier le code VBA en conséquence.

voilà pour les explications.

[78chris]

Bonjour

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Prepare()
  Dim Counter As Long
  Dim Index As Long
  Dim Dico
  Dim Tablo As ListObject, Tablo2 As Range
  Dim Choix As String
 
  Set Dico = CreateObject("Scripting.Dictionary")
  Set Tablo = [T_Test].ListObject
  Choix = "t_" & Worksheets("Feuil1").Cells(1, 9)
 
  Set Tablo2 = Range(Choix).ListObject.ListColumns("anglais").DataBodyRange
  With Tablo.ListColumns("anglais").DataBodyRange
    For Counter = 1 To .Rows.Count
      Index = Application.RandBetween(1, .Rows.Count)
      Do While Dico.Exists(Index)
        Index = Application.RandBetween(1, .Rows.Count)
      Loop
      Dico.Add Index, Index
      .Cells(Counter, 1).Value = Tablo2.Cells(Index, 1).Value
    Next
    Tablo.ListColumns("Réponse").DataBodyRange.Value = ""
  End With
End Sub

[crocket95]

78chris Merci pour ton code, il fonctionne exactement comme je le voulais sur les essais que j'ai fait.
Donc super et merci encore.

Je vais essayer de trouver une solution au code VBA qui est posté plus haut. j'ai réalisé plusieurs essai en changeant le nom du tableau(t_nombres) par un autre nom de tableau(ex t_dizaines) et avec d'autres tableau et cela marche tout aussi bien.

[78chris]

RE


Si tu tiens à ton code, il manque juste des espaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("t_test[anglais]")(Counter).Value = Range("t_" & var & "[anglais]")(Index)

Cependant je te conseille de préciser la feuille dans la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var = Range("I1").Value

comme je l'ai fait dans mon code

Toujours se méfier du manque de précisions quand aux Workbooks et Worksheets...

Et toujours une ligne inutile comme déjà signalé

[crocket95]

Comme je le disais au début du post, je suis "débutant" en VBA et également sur les Fonctions d'excel.
Les réponses du forum me permettent de comprendre comment tout ça fonctionne d'où mon désir de finaliser le code vba premier.
Je te remercie encore pour ta réponse 78chris.
Je vais continuer à améliorer ce projet car l'aboutissement de celui-ci grâce à vos aides, me donne envie de poursuivre l'aventure.

[crocket95]

Une question?
Lorsqu'on utilise la méthode aléatoire, comment faire pour que tous les mots d'une liste soient traiter au moins une fois?

[Pierre Fauconnier]

Prendre toute la liste... ^^

Il n'y a plus d'aléatoire, alors... ou alors je n'ai pas compris la question. Tu les demandes "au moins une fois", mais avant, tu les voulais sans "doublons"

Prendre tous les mots de la liste "au moins une fois" et "sans doublons" revient à prendre toute la liste "une fois"...

[crocket95]

, lorsque je parlais de doublon qu'il fallait éviter c'est comme affiché sur l'image.
Le code fonctionne parfaitement, car je n'ai pas ce type de situation.
.
ex: je fais une série, j'appuie sur le bouton, il y une nouvelle série qui s'affiche et ceci autant de fois que j'appuie sur le bouton. lorsque je travaille sur une liste de 50 mots, est-ce que je suis sur d'avoir travailler au moins une fois sur les mots de cet liste.