|
|
|
|
Configuration: Windows Vista Internet Explorer 7.0
bonjour
Je ne sais pas si c'est ce que tu souhaites, mais essaye ceci : Sub test()
Chaine = "208200184EEAA"
Chaine1 = Left(Chaine, 5)
Chaine2 = Mid(Chaine, 6, 4)
Chaine3 = Right(Chaine, 4)
a = Hex(Chaine2)
Do Until Len(a) = 4
a = "0" + a
Loop
NeoChaine = Chaine1 & a & Chaine3
End Sub
à plus |
Bonjour,
ou bien par formule : =GAUCHE(A1;5)&DROITE("0000"&Dec2Hex(STXT(A1;6;4));4)&DROITE(A1;4) eric |
Bonjour tous,
Beh moi j'ai pas la fonction Dec2Hex, du 2007 ? Mais avec le 2000 et l'add-in MoreFunc.. =GAUCHE(A1;5)&CHBASE(STXT(A1;6;4);;16;4)&DROITE(A1;4) A+ L'expérience instruit plus sûrement que le conseil. (André Gide) |
Bonjour,
Merci à vous tous, Eriic, Pour que ta formule fonctionne de mon coté j'ai du remplacer la fonction DEC2HEX par DECHEX.. En tous cas cela fonctionne... Concernant le post de Le pierre ( merci Le Pierre) je n'arrive pas à faire fonctionner cette macro, je suis en train de me tirer les cheveux...apparemment il y a une erreur sur la ligne a = Hex(Chaine2)... Je pense que la logique est bonne mais je ne vois pas ou ça cloche...
|
Alors c'est moi qui doit mal m'y prendre en l'executant..
Je vais plancher dessus jusqu'à ce que j'y arrive... Je suis nouveau dans le domaine des macros d'excel. En tout cas merci à tous de m'avoir répondu aussi rapidement.. |