[VBA-W] Comparer 2 string

Hello,

voilà j'ai un souci, surement tout bete,

voici mon texte dans word :

Citation:

Public function test as byte

mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub tests() Debug.Print ThisDocument.Words.Count For i = 1 To ThisDocument.Words.Count - 1 'If (CStr(ThisDocument.Words(i)) = "Public") Then If (StrComp(ThisDocument.Words(i), "Public", 1) = 0) Then MsgBox "hu" End If Next End Sub
j'ai essayé avec toutes les comparaisons que je connaissais, meme avec des Ucase etc... rien à faire je n'ai jamais le msgbox qui apparait. ThisDocument.Words.Count me renvoit 6 (j'ai cru deja voir qu'il y avait dans un doc vierge toujours 1 mot donc ca ne m'etonne pas de voir 6 en ayant 5 mots :P ) par contre pour le msgbox... :?

Hop,

jviens de retester un truc

Code:

1
2
3
4
5
6
7
8
9
10
    Dim Tableau As Variant
 
    Tableau = Array("Public", "2", "as")
    For i = 1 To ThisDocument.Words.Count - 1
        For j = 1 To UBound(Tableau)
            If CStr(UCase(ThisDocument.Words(i))) = CStr(UCase(Tableau(j))) Then
                ThisDocument.Words(i).Bold = True
            End If
        Next
    Next

et là pour le "2" ca fonctionne...

Citation:

Public function test as byte
Blabla 2
End function

Public sub test
Bla
End sub

mais uniquement pour le "2" 8O

bonjour

tu peux tester cette synthaxe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
Dim Plage As Object, Wd As Object
Dim x As Integer
 
Set Plage = ThisDocument.Words
 
For Each Wd In Plage
    If InStr(1, Wd, "Public") > 0 Then
    x = x + 1
    MsgBox "hu"
    End If
Next Wd
 
MsgBox x & " mots trouvés ."
End Sub

bonne apres midi
michel

Bah...

ca va tout de suite mieux !! :D

merci silky :mouarf: