Diviser une valeur en plusieurs valeurs

**Pitou5464** · 12/09/2006, 18h19

Salut,

Je voudrais diviser une variable

Code :

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

a = "501Z;502Z;503Z;"

en trois variables

Code :

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

1
2
3
a = "501Z"
b = "502Z"
c = "503Z"

Merci pour votre aide

**argyronet** · 12/09/2006, 18h39

Bonjour,

Utilise la fonction Split()

Argy

**nicou50** · 13/09/2006, 01h41

Je te donne un exemple que j'Ai fait pour te faciliter la vie :

Code :

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

1
2
3
4
5
6
7
8
 
Dim a As String
Dim monTab() As String
a =  "132;123;Nicolas"
monTab = Split(a, ";")
NoBonCommande = monTab(0)
NoClient = monTab(1)
NomPatient = monTab(2)

**Pitou5464** · 13/09/2006, 09h51

Le problème c'est que ma zone de texte ou se trouve les valeurs a spliter varie en nombres de valeurs, un coup ça sera 501Z;502Z, et ça peut etre 502Z;512Z;011A;666A etc...
Je ne peut pas determiner le nombre de valeurs à spliter. Ce que je voudrais c'est qu'a chaque ; rencontré il me stock la valeur ex 502Z dans une variable a par ex, le suivant 512Z dans un variable b etc...
J'ai peur par contre d'avoir a déclarer les variables où les stocker et ça c'est forcément fixe puisqu'il faut les déclarer.
Merci d'avance pour votre aide.

**Pitou5464** · 13/09/2006, 09h59

Code :

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

1
2
3
4
5
6
Dim avarmotclé as string, varmotclé as string
If Me.CODENAF <> "" Then
avarmotclé = Split(Nz(CODENAF), ";")
For Each varmotclé In avarmotclé
  str = str & " OR T_EntrepriseContact.CODENAF Like '" & varmotclé & "'"
Next

Message d'erreur: For each ne peut itérer que sur un objet collection ou tableau

**argyronet** · 13/09/2006, 10h34

Bonjour,

Une variable Tableau se redimensionne (ReDim [Preserve])
Un tableau splitté possède des bornes (LBound & UBound)
Une boucle For/Next pour parcourir le tableau et le tour est joué.

Argy

P.S. Pitou5464 , ton code contient une grosse erreur :

Code :

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

Dim avarmotclé as string, varmotclé as string

**Pitou5464** · 13/09/2006, 11h20

Merci pour tes réponses argy
voila comment j'ai fait meme si c'est pas très propre, je cherche une solution pour avoir un AND dans ma requete SQL pour la premiere valeur du tableau et un OR pour toutes les valeurs qui suivent.

Code :

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

1
2
3
4
5
6
7
8
Dim X() As String, z As Variant
If Me.CODENAF <> "" Then
X = FctSplit(Me.CODENAF.Value, ";")
str = str & " AND T_EntrepriseContact.CODENAF = '" & X(0) & "'"
    For Each z In X
    str = str & " OR T_EntrepriseContact.CODENAF = '" & z & "'"
    Next
End If

Ma grosse erreur est d'avoir oublié le () après X je pense.
avec dans un module:

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
Public Function FctSplit(ByVal strg As String, Sep As String) As Variant
    Dim i As Integer
    Dim TblSplit() As String
    i = 1
    While InStr(1, strg, Sep) <> 0
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = Left(strg, InStr(1, strg, Sep) - 1)
        strg = Mid(strg, InStr(1, strg, Sep) + Len(Sep))
        i = i + 1
    Wend
    If Len(strg) > 0 Then
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = strg
    End If
    FctSplit = TblSplit
End Function

**argyronet** · 13/09/2006, 11h37

groose j'ai un peu exagéré...

Bref, pour ta fonction, je te propose cela :

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
17
18
19
20
21
22
23
24
25
Function GetWhereCondition(ByVal Criteria As String)
Dim strSQL As String
Dim straCriteria() As String
Dim I As Integer
&#160;&#160;If InStr(1, Criteria, ";") Then
&#160;&#160;&#160;&#160;straCriteria = Split(Criteria, ";")
&#160;&#160;&#160;&#160;Select Case UBound(straCriteria())
&#160;&#160;&#160;&#160;&#160;&#160;Case Is < 1
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; strSQL = "AND T_EntrepriseContact.CODENAF = " & Chr(34) & _
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; straCriteria(0) & Chr(34) & ";"
&#160;&#160;&#160;&#160;&#160;&#160;Case Else
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;For I = 0 To UBound(straCriteria)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;strSQL = strSQL & IIf(I = 0, " AND", " OR") & _
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;" T_EntrepriseContact.CODENAF = " & Chr(34) & straCriteria(I) _
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;& Chr(34) & IIf(I < UBound(straCriteria), "", ";")
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Next
&#160;&#160;&#160;&#160;&#160;&#160;
&#160;&#160;&#160;&#160;End Select
&#160;&#160;Else
&#160;&#160;&#160;&#160;strSQL = "AND T_EntrepriseContact.CODENAF = " & Chr(34) & _
&#160;&#160;&#160;&#160;Criteria & Chr(34) & ";"
&#160;&#160;End If
GetWhereCondition = strSQL

End Function

Argy

**Pitou5464** · 13/09/2006, 12h00

comment j'utilise la fonction sur une zone de texte qui comprend par ex: 501Z;502Z;

**argyronet** · 13/09/2006, 12h26

Bien par exemple si c'est pour alimenter un listbox, tu peux faire :

Code :

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

1
2
3
4
5
Dim SQLSelect As String
&#160;&#160;
&#160;&#160;SQLSelect = "SELECT IDEntreprise, NomEntreprise WHERE _
NombreSalaries > " & txtNBSalaries & GetWhereCondition(Me!CodeNaf)
&#160;&#160;Me!lstEntreprise.RowSource = SQLSelect