Discussion :

[edouardg]

Décidément vous êtes très forts, j'ai réponse à tout ! (Je tente de répondre aux questions des autres, mais en vain... je pourrai sûrement le faire plus tard quand je m'y connaitrai mieux :-) )

Dernière question pour ce soir :

Soit la chaîne de caractère suivante : (c'est bien une chaîne de caractère et non des nombres)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim a as string
a ="3 45 2 67 98"

Je voudrais à partir de ça créer le tableau à une dimension suivant : (qui reprend la chaîne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim t(1 to 5) as integer
t(1)=3
t(2)=45
t(3)=2
t(4)=67
t(5)=98

J'essaie un tas de truc avec des boucles For, des len(), des mid(), des boucles While...mais je ne m'en sors pas !!
C'est bien sur un exemple pour illustrer ma question, car je voudrais pouvoir le faire de façon générale.
Ce qui est pénible, c'est que les nombres ne font pas tous la même taille. Certains sont de taille 1, d'autres 2.


Ed

[ucfoutu]

Bonsoir,

Intéresse-toi tout simplement à la fonction Split (la voir dans ton aide en ligne) qui te fais ce tableau toute seule, comme une grande.

[jolop35]

Bonjour


Pour rejoindre l'avis de ucfoutu

et au cas ou l'aide VBA ne serait pas installé sur ton poste.

Split, fonction
Description
Renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes.
Syntaxe
Split(expression[, delimiter[, limit[, compare]]])

J.L

[edouardg]

Effectivement, la fonction Split a l'air d'être ce que je cherche, mais j'arrive pas à l'utiliser !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim w As String
Dim g() As Integer
 
w = "5 34 21 3"
 
Split (w)

Et après ??



Ed

[ucfoutu]

oui...

Et si, par contre, tu veux t'amuser à réinventer la roue , voilà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim a As String, sep As String
  sep = " "
  a = "3 45 2 67 98"
  a = a & sep
  Dim g() As String, i As Integer
  Do While InStr(a, sep)
    ReDim Preserve g(i)
    g(i) = Left(a, InStr(a, sep) - 1)
    a = Mid(a, InStr(a, sep) + 1)
    i = i + 1
  Loop
 
  'juste pour voir
  For i = 0 To UBound(g)
    MsgBox g(i)
  Next

[JackOuYA]

pas besoin de ré-inventer la roue , c'est déjà dans la faq :

http://access.developpez.com/sources...onctionSplit97

mais c'est pour Access 97 pas Excel 07

[jolop35]

Rebonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub testSPLIT()
w = "5 34 21 3"
t=Split(w," ")
MsgBox t(0)
End Sub

J.L

[JackOuYA]

et tu peu même ommettre l'espace, il est utilisé par défaut pas split :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

t=Split(w)

tu dis quoi..

[jolop35]

Re bonsoir


Je dis ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub testSPLIT()
Dim w$
Dim i as Byte, j As Byte
w = "5 34 21 3"
t = Split(w)
For i = LBound(t) To UBound(t)
MsgBox t(i) & "* 2 = " & t(i) * 2
Next
End Sub

Puis je dis merci Jacques.



J.L