Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comparaison de cellules dans une ligne

Comparaison de cellules dans une ligne

14 réponses
Avatar
Guido
Bonsoir/jour à tous,

Dans un tableau (feuille1) j'ai la colonne A avec des mots. Dans la colonne
B, j'ai la traduction des mots en allemand.
Dans le second tableau (feuil2), via une macro, fournie par AV, est généré
aléatoirement ces mots dans divers emplacements.
Je voulais mettre une MFC colorant (en feuil2) les cellules dans une autre
couleur si la
réponse n'est pas la bonne.
je n'arrive pas a faire concordé mon MFC entre la feuil1 et la feuil2.
Qui pourrait m'aider?
Merci d'avance
Guido
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Guido
Re Jacky,

Je suis désolé, je dois être pas trop doué (j'avoue ne pas l'être vraiment)
mais je ne peux que corriger une donnée de la Feuille "Original" qui est
pris en compte, mais rajouter des données, cela ne fonctionne pas chez moi.
Serait-il possible que cela à avoir avec le code VBA ?
Désolé
Guido


"Jacky" a écrit dans le message de
news:%
Ouuupppsss!!

Il faut lire:
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms allemands
et

ÞCALER(Original!$B$2;;;NBVAL(Original!$B:$B)-1) pour les noms français.

JJ

"Jacky" a écrit dans le message de news:

Re...
Donc, si je comprends bien. Il est pas possible de ou de rajouter des
mots



dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"


Si, si , il suffit de rajouter des noms dans la Feuille "Original" pour
qu'ils soient pris en compte, essaie tu verras.
Dans ce fichier, la zone des noms allemands qui est nommée "Base_form"
et


celle des noms français "Past_Simple" dans insertion/noms/définir et ont
comme référence pour se mettre à jour automatiquement :
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
français.
Je n'ai fait que reprendre ces noms pour ne pas avoir à changer le code
dans le module 1. Il n'y avait pas d'autres zones nommées.
Cela dit/écrit, ces noms peuvent être changés par n'importe quels autres
noms, (par exemple "Base_form" peut être remplacé par "toto") à
condition


de les changer partout.

JJ


"Guido" a écrit dans le message de news:

Salut Jacky
merci pour la correction sur le fichier. La notation en rouge
fonctionne



très bien.

=ET(NBVAL($A2:$B2)=2;ESTERREUR(INDEX(Base_form&Past_Simple;EQUIV($A2&$B2;Bas



e_form&Past_Simple;0))))
La formue utilisée ici, je ne sais pas vraiment si les noms sont
d'actualités, car Base Form et Past SImple, ont été utilisé pour un
tableau
que j'ai monté pour l'anglais.
Je pense que tu as utilisé ces termes en Anglais pour des formules
nommées.

En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié


Donc, si je comprends bien. Il est pas possible de ou de rajouter des
mots
dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"

Merci pour ton aide précieuse.

Guido




"Jacky" a écrit dans le message de
news:
Re...
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base.
Non ce code ne modifie en rien le rajout dans la liste de base. Il est

déjà

remplacer par le code du module 1.
La liste est mise à jour à chaque rajout de
donnée.(ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1))
En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié
http://cjoint.com/?dAwPIqfrQR
Salutations
JJ

"Guido" a écrit dans le message de news:
u4Y$
Salut Jacky,
Voici en fait ce que j'ai déjà réussi à élaborer.
http://cjoint.com/?dAufEXilim
le code posé dans le module VBA m'a été aimablement proposé par AV.
Ma méconnaissance du VBA, ne permet en fait pas vraiment de
manipuler





plus
ces écritures.
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base. Mais je ne sais vraiment pas par quel côté le
modifier,


pour que je puisse l'utiliser sur le model d'exercice présenté
ci-dessus.


Ce
code a été émis à la base pour une série de 3 colonnes.
Merci à toi.
Guido
--------------------------------------------------------------
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuille exercice").Select
[A:D] = Clear: [A1] = [Original!A1]
[B1] = [Original!B1]: [C1] = [Original!C1]: [D1] = "Aleas"
[Base_form].Copy Sheets("Feuille exercice").[A2]
[Past_simple].Copy Sheets("Feuille exercice").[B2]
[Past_Participle].Copy Sheets("Feuille exercice").[C2]
x = [Base_form].Count + 1
Range("D2:D" & x) = "=rand()"
Range("D2:D" & x) = (Range("D2:D" & x))
[A1].Sort Key1:=[D2], Order1:=xlAscending, Header:=xlGuess
End Sub




















Avatar
Guido
Après aumoins 350 clic sur le bouton, les textes de BBccc et CCccc rajouté
en ligne suivante sont apparue.
Mais les mots de la secondeligne rajoutée, ne s'affichent pas.

Guido


"Guido" a écrit dans le message de
news:
Re Jacky,

Je suis désolé, je dois être pas trop doué (j'avoue ne pas l'être
vraiment)

mais je ne peux que corriger une donnée de la Feuille "Original" qui est
pris en compte, mais rajouter des données, cela ne fonctionne pas chez
moi.

Serait-il possible que cela à avoir avec le code VBA ?
Désolé
Guido


"Jacky" a écrit dans le message de
news:%
Ouuupppsss!!

Il faut lire:
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et
ÞCALER(Original!$B$2;;;NBVAL(Original!$B:$B)-1) pour les noms
français.



JJ

"Jacky" a écrit dans le message de news:

Re...
Donc, si je comprends bien. Il est pas possible de ou de rajouter des
mots



dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"


Si, si , il suffit de rajouter des noms dans la Feuille "Original"
pour



qu'ils soient pris en compte, essaie tu verras.
Dans ce fichier, la zone des noms allemands qui est nommée "Base_form"
et


celle des noms français "Past_Simple" dans insertion/noms/définir et
ont



comme référence pour se mettre à jour automatiquement :
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
français.
Je n'ai fait que reprendre ces noms pour ne pas avoir à changer le
code



dans le module 1. Il n'y avait pas d'autres zones nommées.
Cela dit/écrit, ces noms peuvent être changés par n'importe quels
autres



noms, (par exemple "Base_form" peut être remplacé par "toto") à
condition


de les changer partout.

JJ


"Guido" a écrit dans le message de news:

Salut Jacky
merci pour la correction sur le fichier. La notation en rouge
fonctionne



très bien.





=ET(NBVAL($A2:$B2)=2;ESTERREUR(INDEX(Base_form&Past_Simple;EQUIV($A2&$B2;Bas

e_form&Past_Simple;0))))
La formue utilisée ici, je ne sais pas vraiment si les noms sont
d'actualités, car Base Form et Past SImple, ont été utilisé pour un
tableau
que j'ai monté pour l'anglais.
Je pense que tu as utilisé ces termes en Anglais pour des formules
nommées.

En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié


Donc, si je comprends bien. Il est pas possible de ou de rajouter des
mots
dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"

Merci pour ton aide précieuse.

Guido




"Jacky" a écrit dans le message de
news:
Re...
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base.
Non ce code ne modifie en rien le rajout dans la liste de base. Il

est





déjà
remplacer par le code du module 1.
La liste est mise à jour à chaque rajout de
donnée.(ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1))
En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié
http://cjoint.com/?dAwPIqfrQR
Salutations
JJ

"Guido" a écrit dans le message de news:
u4Y$
Salut Jacky,
Voici en fait ce que j'ai déjà réussi à élaborer.
http://cjoint.com/?dAufEXilim
le code posé dans le module VBA m'a été aimablement proposé par
AV.






Ma méconnaissance du VBA, ne permet en fait pas vraiment de
manipuler





plus
ces écritures.
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base. Mais je ne sais vraiment pas par quel côté le
modifier,


pour que je puisse l'utiliser sur le model d'exercice présenté
ci-dessus.


Ce
code a été émis à la base pour une série de 3 colonnes.
Merci à toi.
Guido
--------------------------------------------------------------
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuille exercice").Select
[A:D] = Clear: [A1] = [Original!A1]
[B1] = [Original!B1]: [C1] = [Original!C1]: [D1] = "Aleas"
[Base_form].Copy Sheets("Feuille exercice").[A2]
[Past_simple].Copy Sheets("Feuille exercice").[B2]
[Past_Participle].Copy Sheets("Feuille exercice").[C2]
x = [Base_form].Count + 1
Range("D2:D" & x) = "=rand()"
Range("D2:D" & x) = (Range("D2:D" & x))
[A1].Sort Key1:=[D2], Order1:=xlAscending, Header:=xlGuess
End Sub
























Avatar
Jacky
Re...
En effet:
Avec Modif.
http://cjoint.com/?dCaure0CrF
Salutations
JJ

"Guido" a écrit dans le message de news:

Après aumoins 350 clic sur le bouton, les textes de BBccc et CCccc rajouté
en ligne suivante sont apparue.
Mais les mots de la secondeligne rajoutée, ne s'affichent pas.

Guido


"Guido" a écrit dans le message de
news:
Re Jacky,

Je suis désolé, je dois être pas trop doué (j'avoue ne pas l'être
vraiment)

mais je ne peux que corriger une donnée de la Feuille "Original" qui est
pris en compte, mais rajouter des données, cela ne fonctionne pas chez
moi.

Serait-il possible que cela à avoir avec le code VBA ?
Désolé
Guido


"Jacky" a écrit dans le message de
news:%
Ouuupppsss!!

Il faut lire:
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et
ÞCALER(Original!$B$2;;;NBVAL(Original!$B:$B)-1) pour les noms
français.



JJ

"Jacky" a écrit dans le message de news:

Re...
Donc, si je comprends bien. Il est pas possible de ou de rajouter des
mots



dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"


Si, si , il suffit de rajouter des noms dans la Feuille "Original"
pour



qu'ils soient pris en compte, essaie tu verras.
Dans ce fichier, la zone des noms allemands qui est nommée
"Base_form"
et


celle des noms français "Past_Simple" dans insertion/noms/définir et
ont



comme référence pour se mettre à jour automatiquement :
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
français.
Je n'ai fait que reprendre ces noms pour ne pas avoir à changer le
code



dans le module 1. Il n'y avait pas d'autres zones nommées.
Cela dit/écrit, ces noms peuvent être changés par n'importe quels
autres



noms, (par exemple "Base_form" peut être remplacé par "toto") à
condition


de les changer partout.

JJ


"Guido" a écrit dans le message de news:

Salut Jacky
merci pour la correction sur le fichier. La notation en rouge
fonctionne



très bien.





=ET(NBVAL($A2:$B2)=2;ESTERREUR(INDEX(Base_form&Past_Simple;EQUIV($A2&$B2;Bas

e_form&Past_Simple;0))))
La formue utilisée ici, je ne sais pas vraiment si les noms sont
d'actualités, car Base Form et Past SImple, ont été utilisé pour un
tableau
que j'ai monté pour l'anglais.
Je pense que tu as utilisé ces termes en Anglais pour des formules
nommées.

En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié


Donc, si je comprends bien. Il est pas possible de ou de rajouter
des
mots
dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"

Merci pour ton aide précieuse.

Guido




"Jacky" a écrit dans le message de
news:
Re...
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base.
Non ce code ne modifie en rien le rajout dans la liste de base. Il

est





déjà
remplacer par le code du module 1.
La liste est mise à jour à chaque rajout de
donnée.(ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1))
En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié
http://cjoint.com/?dAwPIqfrQR
Salutations
JJ

"Guido" a écrit dans le message de news:
u4Y$
Salut Jacky,
Voici en fait ce que j'ai déjà réussi à élaborer.
http://cjoint.com/?dAufEXilim
le code posé dans le module VBA m'a été aimablement proposé par
AV.






Ma méconnaissance du VBA, ne permet en fait pas vraiment de
manipuler





plus
ces écritures.
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base. Mais je ne sais vraiment pas par quel côté le
modifier,


pour que je puisse l'utiliser sur le model d'exercice présenté
ci-dessus.


Ce
code a été émis à la base pour une série de 3 colonnes.
Merci à toi.
Guido
--------------------------------------------------------------
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuille exercice").Select
[A:D] = Clear: [A1] = [Original!A1]
[B1] = [Original!B1]: [C1] = [Original!C1]: [D1] = "Aleas"
[Base_form].Copy Sheets("Feuille exercice").[A2]
[Past_simple].Copy Sheets("Feuille exercice").[B2]
[Past_Participle].Copy Sheets("Feuille exercice").[C2]
x = [Base_form].Count + 1
Range("D2:D" & x) = "=rand()"
Range("D2:D" & x) = (Range("D2:D" & x))
[A1].Sort Key1:=[D2], Order1:=xlAscending, Header:=xlGuess
End Sub




























Avatar
Guido
Bonjour Jacky,
je te remercie pour ton aide très précieuse.
Cela marche à merveille.
Salutations à toi et à bientôt
Guido
"Jacky" a écrit dans le message de news:
e5$
Re...
En effet:
Avec Modif.
http://cjoint.com/?dCaure0CrF
Salutations
JJ

"Guido" a écrit dans le message de news:

Après aumoins 350 clic sur le bouton, les textes de BBccc et CCccc
rajouté
en ligne suivante sont apparue.
Mais les mots de la secondeligne rajoutée, ne s'affichent pas.

Guido


"Guido" a écrit dans le message de
news:
Re Jacky,

Je suis désolé, je dois être pas trop doué (j'avoue ne pas l'être
vraiment)

mais je ne peux que corriger une donnée de la Feuille "Original" qui est
pris en compte, mais rajouter des données, cela ne fonctionne pas chez
moi.

Serait-il possible que cela à avoir avec le code VBA ?
Désolé
Guido


"Jacky" a écrit dans le message de
news:%
Ouuupppsss!!

Il faut lire:
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et
ÞCALER(Original!$B$2;;;NBVAL(Original!$B:$B)-1) pour les noms
français.



JJ

"Jacky" a écrit dans le message de news:

Re...
Donc, si je comprends bien. Il est pas possible de ou de rajouter
des
mots



dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"


Si, si , il suffit de rajouter des noms dans la Feuille "Original"
pour



qu'ils soient pris en compte, essaie tu verras.
Dans ce fichier, la zone des noms allemands qui est nommée
"Base_form"
et


celle des noms français "Past_Simple" dans insertion/noms/définir et
ont



comme référence pour se mettre à jour automatiquement :
ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
allemands


et ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1) pour les noms
français.
Je n'ai fait que reprendre ces noms pour ne pas avoir à changer le
code



dans le module 1. Il n'y avait pas d'autres zones nommées.
Cela dit/écrit, ces noms peuvent être changés par n'importe quels
autres



noms, (par exemple "Base_form" peut être remplacé par "toto") à
condition


de les changer partout.

JJ


"Guido" a écrit dans le message de news:

Salut Jacky
merci pour la correction sur le fichier. La notation en rouge
fonctionne



très bien.





=ET(NBVAL($A2:$B2)=2;ESTERREUR(INDEX(Base_form&Past_Simple;EQUIV($A2&$B2;Bas

e_form&Past_Simple;0))))
La formue utilisée ici, je ne sais pas vraiment si les noms sont
d'actualités, car Base Form et Past SImple, ont été utilisé pour un
tableau
que j'ai monté pour l'anglais.
Je pense que tu as utilisé ces termes en Anglais pour des formules
nommées.

En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre
les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié


Donc, si je comprends bien. Il est pas possible de ou de rajouter
des
mots
dans la Feuille "Original" et qu'ils soient pris en compte dans la
"feuille
exercice 2"

Merci pour ton aide précieuse.

Guido




"Jacky" a écrit dans le message de
news:
Re...
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base.
Non ce code ne modifie en rien le rajout dans la liste de base. Il

est





déjà
remplacer par le code du module 1.
La liste est mise à jour à chaque rajout de
donnée.(ÞCALER(Original!$A$2;;;NBVAL(Original!$A:$A)-1))
En retour le code adapter qui met en "rouge gras" les réponses
fausses.




Le
copier/coller est possible dans un tableau, MAIS interdit entre
les
tableaux.
Pardon à AV d'avoir osé modifier quelque peu son code. ;o)
En retour le fichier modifié
http://cjoint.com/?dAwPIqfrQR
Salutations
JJ

"Guido" a écrit dans le message de news:
u4Y$
Salut Jacky,
Voici en fait ce que j'ai déjà réussi à élaborer.
http://cjoint.com/?dAufEXilim
le code posé dans le module VBA m'a été aimablement proposé par
AV.






Ma méconnaissance du VBA, ne permet en fait pas vraiment de
manipuler





plus
ces écritures.
Alain m'a même fourni ce code si dessous qui aurais permit les
rajouts





dans
la liste de base. Mais je ne sais vraiment pas par quel côté le
modifier,


pour que je puisse l'utiliser sur le model d'exercice présenté
ci-dessus.


Ce
code a été émis à la base pour une série de 3 colonnes.
Merci à toi.
Guido
--------------------------------------------------------------
Sub zzz()
Application.ScreenUpdating = False
Sheets("Feuille exercice").Select
[A:D] = Clear: [A1] = [Original!A1]
[B1] = [Original!B1]: [C1] = [Original!C1]: [D1] = "Aleas"
[Base_form].Copy Sheets("Feuille exercice").[A2]
[Past_simple].Copy Sheets("Feuille exercice").[B2]
[Past_Participle].Copy Sheets("Feuille exercice").[C2]
x = [Base_form].Count + 1
Range("D2:D" & x) = "=rand()"
Range("D2:D" & x) = (Range("D2:D" & x))
[A1].Sort Key1:=[D2], Order1:=xlAscending, Header:=xlGuess
End Sub

































1 2