Comparaison d'une liste de String à un String

Question

Voila, j'ai besoin de comparer un String &#224; une liste de String.
Tout d'abord, je suis ultra d&#233;butant de quelques heures pour les infos -:)

J'ai trouv&#233; sur le site un formule qui compare deux chaines de caract&#232;re, j'ai test&#233; elle marche impek.

J'aimerai maintenant l'utiliser pour comparer un champs &#224; une liste de champs.
Mon probl&#232;me est que je ne sais pas comment appeler un champs typer auparavant.

Du coup je suis bloqu&#233; la : 

Donc le if c'est du n'importe quoi, mais bon je viens de d&#233;buter VB il y a 2 heures donc faut pas m'en vouloir.
De plus, pour retourner le r&#233;sultat, j'arrive pas &#224; voir ou faut le d&#233;clarer.

Merci amis programmeurs ! -:)

PS : 
Le copier coller du code pour une correction plus facile :

' Prend en param&#232;tre le String (S1) &#224; comparer et '
' la liste de String (ListeString) attach&#233; &#224; un indice (IndiceString)


' D&#233;claration des donn&#233;es d'entree'
Type Enreg
     Dim ListeIndice() As Long 'identifiant du string'
     Dim ListeString() As String 'un string de la liste'
End Type


' D&#233;claration du r&#233;sultat '
Type Resultat
     Dim StringRes() As String 'concat&#233;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&#233;sultats'
   Dim n As Byte 'indice de parcours de la liste de champs d'entree'
   Dim i As Byte 'indice de rentr&#233;e des r&#233;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

cs_lacomm · Answer

A vue de nez, je te conseillerais d'utiliser ADO sous VB6 et des bases de donn&#233;es, par ex. Access. J'utilise &#231;a et ca marche assez bien. Il y a plein de tutos sur ce site ou sur le site

PCPT · Answer

salut,
pense &#224; toujours commencer ta premi&#232;re ligne de code par Option Explicit
ainsi, tu provoques une erreur en cas de variable non-d&#233;clar&#233;e.
(quoi que, je ne sais pas si cette option est reconnue sous VBA)

quel rapport? et bien tu aurais vu une faute de frappe  Then Resultat.StringRes(i) = Enreg.ListeIndice(n) si des types s'utilisaient comme tu l'as fait.

une variable est typ&#233;e.
c'est ta variable que tu instancies, pas ton type.

comment veux-tu les remplir, ce sont des tableaux NON dimentionn&#233;s !!!

essaie de bien expliquer ce que tu veux, j'avoue que de chez moi, je ne vois pas tr&#232;s bien C:/Documents%20and%20Settings/zarate/Desktop/Test/Code.JPG 

++
PCPT   [AFCK]

philippe laschweng 1 · Answer

Essayes d'expliquer plus clairement ce que tu veux faire avec des exemples pr&#233;cis ! Dans quoi est ta liste de String????
J'aimerais t'aider (si je le peux) mais je comprends mal ce que tu veux faire ... Peut &#234;tre suis-je un peu c..
 
Phil

Comparaison d'une liste de String à un String

3 réponses

Discussions similaires