OVH Cloud OVH Cloud

a partir d'une cellule, en creer d'autres

7 réponses
Avatar
jysimon
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B=1010 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail : jysimon@tif.ti.com

7 réponses

Avatar
garnote
Bonjour,

Cette fonction permet d'extraire un caractère d'une
chaîne à la position spécifiée.
=STXT($E$6;1;1)
=STXT($E$6;2;1)
=STXT($E$6;3;1)
=STXT($E$6;4;1)
...

Serge





"Jean-Yves Simon" a écrit dans le message de
news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :



Avatar
garnote
Et avec une macro, ça donnerait :

Sub Extraction()
texte = [e6]
For i = 1 To Len(texte)
Cells(7 + i, 5) = Mid(texte, i, 1)
Next i
End Sub

Serge

"garnote" a écrit dans le message de news:
M1s_b.74486$
Bonjour,

Cette fonction permet d'extraire un caractère d'une
chaîne à la position spécifiée.
=STXT($E$6;1;1)
=STXT($E$6;2;1)
=STXT($E$6;3;1)
=STXT($E$6;4;1)
...

Serge





"Jean-Yves Simon" a écrit dans le message de
news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :







Avatar
garnote
Si tu entres B en E6, tu pourrais entrer
=HEXABIN(E6) en E7 et ensuite séparer les
chiffres obtenus :

Sub Extraction()
texte = [e7]
For i = 1 To Len(texte)
Cells(7 + i, 5) = Mid(texte, i, 1)
Next i
End Sub

Serge






"garnote" a écrit dans le message de news:
M1s_b.74486$
Bonjour,

Cette fonction permet d'extraire un caractère d'une
chaîne à la position spécifiée.
=STXT($E$6;1;1)
=STXT($E$6;2;1)
=STXT($E$6;3;1)
=STXT($E$6;4;1)
...

Serge





"Jean-Yves Simon" a écrit dans le message
de


news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :











Avatar
garnote
Et une tite dernière sans macro :

Exemple
En E6 : BF
En E7 : =HEXBIN(E6)
En E8 : =STXT($E$7;LIGNE()-LIGNE($E$7);1)
La formule en E8 est à recopier vers le bas aussi
longtemps qu'il le faut.

Serge




"garnote" a écrit dans le message de news:
3hs_b.74491$
Si tu entres B en E6, tu pourrais entrer
=HEXABIN(E6) en E7 et ensuite séparer les
chiffres obtenus :

Sub Extraction()
texte = [e7]
For i = 1 To Len(texte)
Cells(7 + i, 5) = Mid(texte, i, 1)
Next i
End Sub

Serge






"garnote" a écrit dans le message de news:
M1s_b.74486$
Bonjour,

Cette fonction permet d'extraire un caractère d'une
chaîne à la position spécifiée.
=STXT($E$6;1;1)
=STXT($E$6;2;1)
=STXT($E$6;3;1)
=STXT($E$6;4;1)
...

Serge





"Jean-Yves Simon" a écrit dans le message
de


news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :















Avatar
ChrisV
Bonjour Jean-Yves,

Bh10 (binaire)


???, plutôt 1011 non ?

En E8, à recopier en H8:

=STXT(HEXBIN($E6);COLONNE()-4;1)


ChrisV


"Jean-Yves Simon" a écrit dans le message de
news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :



Avatar
jysimon
ChrisV () wrote:
Bonjour Jean-Yves,

Bh10 (binaire)


???, plutôt 1011 non ?

En E8, à recopier en H8:

=STXT(HEXBIN($E6);COLONNE()-4;1)


Bonjour,

Oui, bien sur :). J'ai fait 2 erreurs B11 en binaire et dans mon
example, j'ai ecrit 1001 ce qui fait neuf. Je vais apprendre a
recompter.

Merci en tout cas, je vais essayer la formule.


"Jean-Yves Simon" a écrit dans le message de
news: c1dgv4$l6a$
Bonjour,

Nouveau dans excel, j'ai une toute petite maitrise de VBA.
Je souhaite savoir si ce que je veux faire est possible et
surtout comment le faire.


Ex en E6, j'ai un texte qui represente une valeur hexa sur
1 digit (de 0 a F). Prenons B comme example, B10 (binaire)

Je souhaite avoir en E8 la valeur 1, F8 la valeur 0, G8 la
valeur 0 et H8 la valeur 1.

E F G H
6 B
7
8 1 0 0 1

J'ai dans l'idee de faire une fonction qui me transforme
mon chiffre hexa en chaine binaire, mais je suis bloque sur
la facon de mettre chaque chiffre binaire dans une case differente.

Merci d'avance.

--
Jean-Yves SIMON E-mail :




Avatar
j_y_simon
"garnote" wrote in message news:<8Is_b.74497$...
Et une tite dernière sans macro :

Exemple
En E6 : BF
En E7 : =HEXBIN(E6)
En E8 : =STXT($E$7;LIGNE()-LIGNE($E$7);1)
La formule en E8 est à recopier vers le bas aussi
longtemps qu'il le faut.


Merci pout tous les examples, ca m'a bien aide et permit de trouver
une erreur dans un de mes scripts VBA par la meme occasion.

Merci.

Jean-Yves.


Serge