addition de nombre hexa

B'jour tlm,

Une solution éventuelle

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Hex_Dec_Hex() Dim HexVal As String, i As Integer, Num As Long   For i = 2 To 100 Num = Val("&H" & Replace(Cells(i, 3), " ", "")) HexVal = Hex(Num + 1) Cells(i, 4) = HexVal '<-- résultats dans colonne D à adapter Next   End Sub

---

Merci vos méthodes fonctionne trés bien :king:


Par contre autre petite question :

J'ai deux chiffres ,un en A2 et un autre en D2 .
En A2 je peux rentrer des nombres négatifs ou positifs alors qu'en D2 je ne peux rentrer que des chiffres positifs .
Je voudrais savoir comment faire pour dire ,que si A2 négatif alors le chiffre en D2 deviendra négatif
UN petit exemple pour mieux expliquer !! lol

A2 = 25 D2=65 Ici aucun problème

A2 = -25 D2=65 mais comme A2 négatif D2 devient : -65

Houaaaaaaaaaa je sais pas si vous allez comprendre ce que je veux faire !!:wow::furieux:

ben oui, tu multiplie par -1

Code:

---

if range("a1").value<0 then range("a2").value=range("a2").value*-1

---

Ha bah oui !! J'y avais pas même pas pensé ,lool
Merci.

;)

Merci beaucoup ! :king:

À tout hasard... Même si le problème est classé résolu...

Citation:

---

Envoyé par ouskel'n'or

:oops: Je n'avais pas testé
Par contre, zazaraignée, ta solution qui fonctionne avec "42FFFFFF" comme première valeur, ne fonctionne plus si on prend les valeurs
Val1 = "42FFFFFE"
Val2 = "43000000"

Code:

---

1 2 3 4 5 6 7 8

Sub test2() Val1 = "42FFFFFE" Val2 = "43000000" y = Format(Hex(CDbl("&H" & Val1) + 1), "## ## ## 00") x = Format(Hex(CDbl("&H" & Val2 + 1)), "## ## ## 00") z = CDbl(x) - CDbl(y) MsgBox Hex(z) End Sub

---

Comment fixes-tu le complément à XXFFFFFF ?

---

Cette fois, c'est corrigé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function IncrementeValHex(valeurHex As Range) As String ' ne marche pas bien Dim temp As String, resultat As String ' récupère la valeur de la cellule en éliminanat les espaces temp = Replace(valeurHex.Value, " ", "") resultat = Hex(CLng("&H" & temp) + 1) IncrementeValHex = IIf(IsNumeric(resultat), _ Format(resultat, "00\ 00\ 00\ 00"), _ Format(resultat, "&&\ &&\ &&\ &&")) End Function   Sub IncrementerPlageValHex() Dim cellule As Range For Each cellule In Selection cellule.Value = IncrementeValHex(cellule) Next cellule End Sub

---

Pour tester :

1. Sélectionner la plage de valeur hexadécimales à incrémenter;
2. Lancer la macro IncrementerPlageValHex.

Bon... ça marche à ceci près... de temps en temps un zéro d'extrême gauche manque à l'appel... Surement dû à ses opinions politiques. ;)

Merci zaza, Chavais bin ! Mais je n'en attendais pas moins de toi ;)
(...même si je ne sais pas à quoi ça va me servir... :mouarf:)
Mais vinssieux a une solution qu'il peut utiliser partout
Bon aprés-midi