produire un tableau "reorganise"

[CAPUCIN]

Salut a tous, j'aimerais savoir s'il est pensable de produire un tableau a partir d'un autre sous excel et VBA, mais en appliquant certaines regles propre au fichier de type ".hex". Je fournis un fichier avec mes objectifs.

Capucin

[Mytå]

Salut le forum

Pour les erreurs de saisies on arrête le traitement . . .

Code: Tout sélectionner


0063    DD      CB             
0065    CB      60             
                               
0066    FD      A8      00     
0069    CB      5E             
 

Mytå

[CAPUCIN]

Salut Myta! je crois m'apercevoir que tu as decele une erreur dans le tableau que j'ai rempli a la mitaine, Excuse-moi, je t'envoie une version sans conflit a cette adresse. J'ai l'impression que tu es un brin familier avec ce que je veux faire? cool!

Capucin

[Banzai64]

Bonjour

Avec ton 1er fichier

[Mytå]

Salut le forum

A tester

Code: Tout sélectionner


Sub MatriceConversion()
Dim Cel As Range, LigTablo As Byte
Dim I As Byte, J As Byte, CelDec As Integer
Dim Tablo()

LigTablo = Int(WorksheetFunction.Hex2Dec(Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)) / 16)
ReDim Tablo(LigTablo, 15)

For I = 0 To LigTablo
  For J = 0 To 15
    Tablo(I, J) = "00"
  Next J
Next I

For Each Cel In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
  If Cel <> "" Then
    I = 0
    Do
      CelDec = WorksheetFunction.Hex2Dec(Cel) + I
      Tablo(Int(CelDec / 16), CelDec Mod 16) = Format(Cel.Offset(, I + 1), "00")
      I = I + 1
    Loop Until Cel.Offset(, I + 1) = ""
  End If
Next Cel

[K4].Resize(UBound(Tablo, 1) + 1, UBound(Tablo, 2) + 1) = Tablo

End Sub
 

Mytå

[CAPUCIN]

Salut Banzai! ta version marche tres bien!

Myta, j'ai un petit bug sur une ligne mais il se peut que ce soit cause par une erreur additionnel dans mon tableau ecris a la main car Banzai m'a encercle quelques erreurs additionnelles qui m'avais echappe. Voici la ligne en erreur:
LigTablo = Int(WorksheetFunction.Hex2Dec(Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)) / 16)
Est-ce que chez toi, ca fonctionnais?
Je vais travaille la-dessus.

Merci a vous deux! il semblerais qu'on peut faire n'importe quoi en VBA!

Je vous reviens la-dessus des que possible.

[Mytå]

Re le forum

Je ne rencontre aucun problème après avoir décocher les référence manquant dans VBA.
Tu dois aussi activer l'utilitaire d'analyse (Sous Excel 2007)

Modifie pour Excel 2003 (Ajouter Function Hex2Dec)

Code: Tout sélectionner


Sub MatriceConversion()
Dim Cel As Range, LigTablo As Byte
Dim I As Byte, J As Byte, CelDec As Integer
Dim Tablo()

LigTablo = Int(Hex2Dec(Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)) / 16)
ReDim Tablo(LigTablo, 15)

For I = 0 To LigTablo
  For J = 0 To 15
    Tablo(I, J) = "00"
  Next J
Next I

For Each Cel In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
  If Cel <> "" Then
    I = 0
    Do
      CelDec = Hex2Dec(Cel.Value) + I
      Tablo(Int(CelDec / 16), CelDec Mod 16) = Format(Cel.Offset(, I + 1), "00")
      I = I + 1
    Loop Until Cel.Offset(, I + 1) = ""
  End If
Next Cel

[K4].Resize(UBound(Tablo, 1) + 1, UBound(Tablo, 2) + 1) = Tablo

End Sub

Function Hex2Dec(n1 As String) As Long
  Hex2Dec = CLng("&H" & n1)
End Function
 

Mytå

[CAPUCIN]

Myta, l'utilitaire d'analyse et l'utilitaire d'analyse VBA sont maintenant coche mais j'ai encore le message d'erreur sur la ligne surligne

"propriete ou methode non gere par cette objet"
Qu'est-ce que je fais d'incorecte? peux-tu m'envoyer le fichier, ca serais plus sur, car je ne suis pas habile comme toi en VBA.

[Mytå]

Re le forum

Le fichier : ConvertHexa.xls

Mytå

[CAPUCIN]

Myta, je viens de m'apercevoir que tu m'avais envoye une nouvelle macro pour Excel2003, je l'essai!