Discussion :

[maxazac]

Voila, j'ai besoin de comparer un String à une liste de String.
Tout d'abord, je suis ultra débutant de quelques heures pour les infos -

J'ai trouvé sur le site un formule qui compare deux chaines de caractère, j'ai testé elle marche impek.

J'aimerai maintenant l'utiliser pour comparer un champs à une liste de champs.
Mon problème est que je ne sais pas comment appeler un champs typer auparavant.

Du coup je suis bloqué.

ci dessous le code :

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
26
27
28
29
30
31
32
 
 
' Prend en paramètre le String (S1) à comparer et '
' la liste de String (ListeString) attaché à un indice (IndiceString)
 
' Déclaration des données d'entree'
Type Enreg
     Dim ListeIndice() As Long 'identifiant du string'
     Dim ListeString() As String 'un string de la liste'
End Type
 
' Déclaration du résultat '
Type Resultat
     Dim StringRes() As String 'concaténation indice et string'
End Type
 
Public Function ComparerStringEtListe(ByVal string1 As String, UnEnreg As Enreg)
Dim TabResult(10) As Resultat ' on prend les 10 premiers résultats'
   Dim n As Byte 'indice de parcours de la liste de champs d'entree'
   Dim i As Byte 'indice de rentrée des résultats en sortie'
   i = 0
     For n = 0 To Len(Enreg)
 
     If (Comparer(string1, Enreg.ListeString(n)) > 0.75)
     Then Resultat.SringRes(i) = Ereng.ListeIndice(n)
     n = n + 1
     i = i + 1
     Else
     n = n + 1
     Next
 
End Sub

Donc le if c'est du n'importe quoi, mais bon je viens de débuter VB il y a 2 heures donc faut pas m'en vouloir.
De plus, pour retourner le résultat, j'arrive pas à voir ou faut le déclarer.

Merci amis programmeurs ! -

[pc75]

Bonjour,

Si j'ai bien compris, tu as une variable MaVariable qui contient un string, ainsi qu'un tableau de variables MonTableau qui contient une liste de strings.

Donc :

Code :

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

1
2
3
4
5
6
 
For i = 0 to uBound(MonTableau)
   if MaVariable = MonTableau(i) then
      MsgBox "Identique"
   end if
Next

[leroissejp]

Bonjour,
Si tu veux un exemple plus complet, en utilisant le code de pc75, tu peux faire comme ceci.

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
 
Option Explicit
 Dim MonTableau(4)
 
Private Sub Command1_Click()
Dim i, MaVariable
MaVariable = "Léon"
For i = 0 To UBound(MonTableau)
   If MaVariable = MonTableau(i) Then
      MsgBox MonTableau(i) & " correspond à MaVariable"
   End If
Next
End Sub
 
Private Sub Form_Load()
MonTableau(0) = "Pierre"
MonTableau(1) = "Louis"
MonTableau(2) = "Marcel"
MonTableau(3) = "Jean"
MonTableau(4) = "Léon"
End Sub

jpleroisse

[ouskel'n'or]

Je viens de corriger mon post...
At'tation !

Une fois tu mets

Dim StringRes() As String 'concaténation indice et string'

et une autre fois :

Then Resultat.SringRes(i) = Ereng.ListeIndice(n)

Juste comme ça...
Quand à ta comparaison, ce ne serait pas plutôt la mesure d'un écart ?