Problème avec range et cells

Bonjour,

Je souhaite afficher un tableau de valeur à partir d'une cellule active. Par exemple A= 1235877, chaque caractère étant dans une cellule différente, je voudrais que A soit affichée à partir de la cellule que j'aurais définie quand je clique sur un bouton.

Pouvez-vous m'aider ?

Bonjour

Pour me sauver ( ) un fichier serait utile

Tu y indiques ce que tu as et ce que tu veux obtenir (des exemples seraient aussi bienvenus)

Ok pas de soucis, en fait mon code fonctionne bien. Quand j'appuie sur "mise en marche, j'ai bien ce que je veux, sauf que je souhaite afficher ces valeurs, tels quels, mais à partir d'une cellule que j'aurais prédéfinie dans la textbox

ci dessous le fichier .h que je traite.

Merci d'avance

Bonjour

Modifies ta macro

If Me.TextBox1 <> "" Then
  col = Range(Me.TextBox1).Column
  i = Range(Me.TextBox1).Row
Else
  col = 1   ' Colonne de départ
  i = 1     ' Ligne de départ
End If

Merci bien, ok c'est bon je vois, sauf que je n'ai pas le résultat attendu

Bonjour

Et quel est le résultat attendu ?

Il faut peut-être modifier ton code mais je ne sais pas, tu utilises des noms de variable qui ne sont pas trop explicites

Col : on arrive à comprendre, mais i, z, k correspondent à quoi

je pense avoir compris que i représente la ligne mais pour les autres ??????

Bonjour

Un essai de transformation de ton code

Private Sub CommandButton2_Click()
On Error GoTo errorhandler
Dim u As Long
Dim Ligne As Long, Colonne As Integer, ColDep As Integer, LigBis As Long
Dim DocVal As Integer
Dim LigneDOC As String
Dim val2 As String

  DocVal = FreeFile

  Open "C:\Users\disney\Desktop\ecriture.h" For Input As DocVal

  k = 1                                         'k=> n° de ligne document

  If Me.TextBox1 <> "" Then
    Colonne = Range(Me.TextBox1).Column
    Ligne = Range(Me.TextBox1).Row
  Else
    Colonne = 1   ' Colonne de départ
    Ligne = 1     ' Ligne de départ
  End If

  ColDep = Colonne
  LigBis = Ligne + 8

  Do While Not LigneDOC = "};"
    Line Input #DocVal, LigneDOC                                'col => colonne excel
    x = Len(LigneDOC)                           'nombre de caractère sur ligne document texte
    If k > 9 Then
      If x = 0 Then
        Ligne = Ligne + 8
        LigBis = LigBis + 8       ' a corriger en +8
        Colonne = ColDep
      Else
        j = 1                                       'j => numéro de colonne sur ligne document texte
        Do While j < x + 1
          car = Mid(LigneDOC, j, 1)
          If (car = "," Or car = " ") And t < 1 Then
            Cells(Ligne, Colonne + 1).Value = HexToBin(Right(car1, 2))
            val2 = Format(Cells(Ligne, Colonne + 1).Value, "00000000")

            For u = 1 To Len(CStr(val2))
              LigBis = LigBis - 1
              Cells(LigBis, Colonne + 1) = Mid(val2, u, 1)
            Next u

            Colonne = Colonne + 1
            t = t + 1
            j = j + 1
            LigBis = LigBis + 8
          Else
            car1 = 0
            car1 = car1 & car
            t = 0
          End If
          j = j + 1
        Loop
      End If
    End If
    k = k + 1
  Loop

errorhandler:   Close DocVal

End Sub

Bonjour Banzai64. Désolé j'étais déjà plus en ligne hier. Excellent ça fonctionne merci beaucoup