classeur de dessins de vacances ...

Dom50 a écrit:Ca a l'air super !
J'ai téléchargé malheureusement je ne dispose que de EXCEL 97 :-) sur mon PC  et bien sûr cela ne fonctionne pas...
Pourtant, ça pourrait me servir pour "Murders in Venice"
Ce serait possible d'avoir une version compatible avec ma vieillerie de 97 ?

Symoon a écrit:Hello,

DECHEX n'est pas une fonction native d'Excel, de mémoire il faut installer la macro complémentaire "Utilitaire d'Analyse" (menu "outils")

Code:

Function ConvertDecHex(Num_Dec As Long) As String

    Dim sTemp As String
  
    If Num_Dec >= 16 Then
        'if greater than 16 then
        'call recursively this function
        sTemp = ConvertDecHex(Num_Dec \ 16) _
            & ConvertDecHex(Num_Dec Mod 16)
          
    ElseIf Num_Dec > 9 Then
        'if within 10 to 15 then assign A...F
        Select Case Num_Dec
            Case 10: sTemp = "A"
            Case 11: sTemp = "B"
            Case 12: sTemp = "C"
            Case 13: sTemp = "D"
            Case 14: sTemp = "E"
            Case 15: sTemp = "F"
        End Select
    Else
        'If within 0 to 9 then no change
        sTemp = Num_Dec
    End If
          
    ConvertDecHex = sTemp
      
End Function