Discussion :

[DenisHen]

Bonjour à la communauté...
Voilà, j'ai un tableau avec des string construit comme :

Code :

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

1
2
3
4
5
6
Tableau(1)="4/12/4"
Tableau(....)="..."
Tableau(6)="4/18/4"
Tableau(....)="..."
Tableau(33)="44.2/16/44.2"
Tableau(44)="44.2/16/4"

Je cherche donc avec un Do While dans mon tableau, du début à la fin, jusq'à trouvé un InStr <> 0, puis je sors.

Mon problème est que si je cherche "44.2/16/4", InStr le trouve en premier dans "44.2/16/44.2" dans Tableau(33), alors que j'aimerais le trouver dans Tableau(44).

Ce qui est normal, la chaine a été trouvée, mais pas que... J'aimerais trouver l'exacte chaine, de la bonne longueur. D'où mon sujet, c'est trop court, ou trop long ! !

J'avais pensé à un Mid, mais je n'y arrive pas...

Il faut savoir aussi que la chaine recherchée sera TOUJOURS de la bonne longueur, et je dois trouver l'exacte réplique, bref, les deux chaines doivent être de la même taille...

Et oui, je parle bien ici de double vitrage...

Si quelqu'un a une astuce, un conseil, voir même la solution... Je suis preneur...
Bien à toi la communauté.
Denis...

[licardentaistor]

Code vba :

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
 
Dim i As Integer
Dim foundIndex As Integer
Dim searchString As String
Dim tableau(1 To 44) As String
 
' Initialisation du tableau (exemple)
tableau(1) = "4/12/4"
tableau(6) = "4/18/4"
tableau(33) = "44.2/16/44.2"
tableau(44) = "44.2/16/4"
 
searchString = "44.2/16/4"
foundIndex = -1
 
i = 1
Do While i <= UBound(tableau)
    If InStr(tableau(i), searchString) <> 0 And Len(tableau(i)) = Len(searchString) Then
        foundIndex = i
        Exit Do
    End If
    i = i + 1
Loop
 
If foundIndex <> -1 Then
    MsgBox "Chaîne trouvée à l'index " & foundIndex
Else
    MsgBox "Chaîne non trouvée"
End If

[Nain porte koi]

Juste une interrogation, si "les deux chaines doivent être de la même taille" pourquoi utiliser InStr et pas directement avec une égalité ?

si je reprend le code de licardentaistor ça donnerait 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
22
23
24
25
26
27
28
Dim i As Integer
Dim foundIndex As Integer
Dim searchString As String
Dim tableau(1 To 44) As String
 
' Initialisation du tableau (exemple)
tableau(1) = "4/12/4"
tableau(6) = "4/18/4"
tableau(33) = "44.2/16/44.2"
tableau(44) = "44.2/16/4"
 
searchString = "44.2/16/4"
foundIndex = -1
 
i = 1
Do While i <= UBound(tableau)
    If tableau(i) = searchString Then
        foundIndex = i
        Exit Do
    End If
    i = i + 1
Loop
 
If foundIndex <> -1 Then
    MsgBox "Chaîne trouvée à l'index " & foundIndex
Else
    MsgBox "Chaîne non trouvée"
End If

[licardentaistor]

c'est juste en effet...

[DenisHen]

Bonjour à la communauté, et aux aidants ! !
Très joli vos codes, et très élégants...
(la beauté de vos codes aide à la pédagogie).
Après une première lecture (sans pouvoir tester), je suis certain que ça va fonctionner...
Un super très grand merci à vous deux...
Denis...

[pijaku]

Bonjour,

J'ajouterai que, si ton tableau contient moins de 65536 valeurs, alors tu peux te passer de la boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim index As Long
Dim Tableau(1 To 44) As String
Tableau(1) = "4/12/4"
Tableau(2) = "..."
Tableau(6) = "4/18/4"
Tableau(22) = "...."
Tableau(33) = "44.2/16/44.2"
Tableau(44) = "44.2/16/4"
index = Application.WorksheetFunction.Match("44.2/16/4", Tableau, 0)
MsgBox index