Savez vous compter en héxadécimal ?

  • Initiateur de la discussion Initiateur de la discussion Océane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Océane

XLDnaute Impliqué
Bonjour le forum

Un peu absent en ce moment, et pour cause je suis en plein dans la vidéo.Je reviens vers vous pour un Pb de numérotation.
Je possède un caméscope à disque dur, et lorsque je télécharge mes fichiers vidéo sur le disque dur de mon ordinateur, ils adoptent une numérotation en hexadécimal, c'est JVC qui le dit, mais moi je ne sais pas compter en hexadécimal; quelqu'un peut il m'aider en complétant le fichier joint, pour exemple, afin que je retrouve mes petits. (le commentaire est de JVC)
Merci d'avance.
 

Pièces jointes

Re : Savez vous compter en héxadécimal ?

Bonsoir

J'ai commencé à faire un fichier permettant la transformation en hexadécimal, puis, tout d'un coup, j'ai pensé qu'excel savait certainement faire ça directement...

Résultat, voir la fonction DECHEX().

@ plus
 
Dernière édition:
Re : Savez vous compter en héxadécimal ?

Bonjour à tous,

Un essai avec la fonction préconisée par Cisco :

Code:
=SI(B1="";"";"MOV"&DECHEX(B1;3))

A+ à tous
 

Pièces jointes

Re : Savez vous compter en héxadécimal ?

Merci à tous
Brigitte pour ton lien, qui m'a permis de comprendre l'hexadécimal.
Cisco et JCGL, pour m'avoir donné l'occasion de vérifier la table que je commençais à écrire.
Perso j'ai pensé, tout de suite à Excel, mais je n'ai jamais trouvé la bonne formulation, de la question dans l'assistant, pour la trouver .
A+
 
Re : Savez vous compter en héxadécimal ?

Bonsoir tous

Une autre proposition (MOVnnn stocké en colonne A)

Test OK de MOV001 à MOV3E7 (001 à 999)


Code:
Sub HexToDec()
Dim fin As Long, r As Long
fin = [A65536].End(xlUp).Row
For r = 1 To fin
Cells(r, 2) = "MOV" & HEXA2DEC(Mid(Cells(r, 1), 4, 3))
Next r
End Sub
Public Function HEXA2DEC(ByVal sHex As String) As Integer
On Error Resume Next
HEXA2DEC = Val("&h" & sHex)
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour