Remplir un tableau

[ericTA]

Bonjour,
Je cherche à remplir un tableau en décomposant une chaine de caractère:
J'ai une chaine "10011101001001110010" et je cherche à remplir chaque case de mon tableau avec chaque valeur de la chaine tab1 = 1, tab2 = 0, tab3=0, tab4=1, tab5=1,...tab20=0.
Je ne sais pas si je suis très clair.
Help
Merci d'avance
Eric

 

[Pierrot93]

Re : Remplir un tableau

Bonsoir Eric

essaye la macro ci dessous :

Sub test()
Dim i As Integer
For i = 1 To Len(Range("A1").Formula)
    Range("B" & i).Value = "tab1 = " & Mid(Range("A1").Formula, i, 1)
Next i
End Sub

bonne soirée
@+

Edition : ta chaîne decaractères en A1, renvoie les differents caractères dans la colonne b

 

[Catrice]

Re : Remplir un tableau

Bonsoir,

Un exemple ci-joint

 

[ericTA]

Re : Remplir un tableau

Merci de cette réponse mais je cherche une macro en VB
je ne passe pas par une cellule.
Encore merci

 

[Pierrot93]

Re : Remplir un tableau

Re Eric, Bonsoir Catrice

as tu vu ma réponse, je crois que c'est du vba.

@+

 

[ericTA]

Re : Remplir un tableau

Ce que je veux dire c'est que je cherche une fonction du style
RemplirTab "10011101001001110010"

et une SUB du style

Sub Remplirtab ( valeur)

Code sans passer pas une celule ( ex A1) ou je remplis un tableau avec chaque valeur du mot, passe la valeur d'une macro à une autre.

End sub

Merci

 

[Pierrot93]

Re : Remplir un tableau

Re

regarde le code ci dessous :

Sub test()
Dim i As Integer, x As String, montableau()
x = "10011101001001110010"
For i = 1 To Len(x)
    ReDim Preserve montableau(1 To i)
    montableau(i) = Mid(x, i, 1)
Next i
End Sub

tu peux éventuellement déclarer "montableau()" en publi ou de niveau procédure pour l'utiliser dans une autre macro.

@+

 

[ericTA]

Re : Remplir un tableau

Genial,
Ca marche super bien.
Encore MERCI....
Eric