Caractères spéciaux [Résolu]

Re : Caractères spéciaux

Bonjour Pascal,

la formule en B32:
=SI(B31=1;$B29;SI(B31=2;$C29;SI(B31=3;$D29;SI(B31=4;$E29;SI(B31=5;$F29;SI(B31=6;$G29;SI(B31=7;$H29;SI(B31=8;$I29;SI(B31=9;$J29;$K29)))))))))

peut être remplacée par: =INDEX($B$29:$K$29;;B31) à recopier vers la droite

pour le reste, j'ai pas trop compris la question et le fonctionnement

à+
Philippe

Re : Caractères spéciaux

Bonjour Philippe,

Merci pour la simplification apportée, cependant ce n'était pas le sens de la question, je n'ai donc pas été suffisamment explicit, désolé.
Je vais donc tenter d'être plus clair:
Pour générer des lettres de façon aléatoire j'utilise
"=CHAR(INT(RAND()*26+1)+64)" ce qui me permet de renseigner toutes les cases "lettres" de façon aléatoire.

For a = 0 To 9
For b = 0 To 20 Step 2
Range("B6").Offset(b, a).FormulaR1C1 = "=CHAR(INT(RAND()*26+1)+64)"
Next
Next

Cliquez pour agrandir...

Pour générer un caractère spécial j'utilise
"= ChrW(&H2260)"
par contre je n'arrive pas a modifier automatiquement le chiffre 2260 qui correspond à un caractère en 2265 qui en est un autre etc..
Le fichier initial est modifié pour faire apparaître une grille avec des lettres "a deviner", comme vous pouvez le constater le tableau B28:K31 de l'onglet "lettre" a disparu.
Pour résumer je désire remplacer "=CHAR(INT(RAND()*26+1)+64)" par "= ChrW(&H2260)"

Encore merci

Re : Caractères spéciaux

Re,

sans changer le code mais en changeant la fonte des caractères

à+
Philippe

Re : Caractères spéciaux

Bonsoir Philippe,

Je ne connaissais pas cet aspect particulier des polices, je reste tout penaud face a cette possibilité.

Encore un grand merci