Discussion :

[cinc]

Bonjour à tout le monde.

J'utilise Excel et VB

Voila j'utilise dans une macro le fonction "Find".
J'aimerais savoir s'il est possible de définir de manière précise ce que l'on recherche, en fait j'aimerais lui passer des paramètres pour faire le distinguo entre les majuscules/minuscule, le mot seul ou le mot dans une phrase. Pour distinguer plusieurs cas:

Ex: je cherche le mot "France"

- Faire une action si le mot "France" est trouvé de manière exacte
- Si je trouve "france" une autre action
- Si je trouve "ifrance" une autre action

Si ce n'est pas très clair dites le moi

Merci d'avance
Cinc

[bidou]

Il y a deux solutions :
Construire des plages répondant aux critères. Pour cela il faut forcément aller dans le sens du plus restrictif vers le moins.
Ou alors analyser à chaque concordance, dans une recherche la moins stricte.
Dans ce cas, par exemple

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
Sub Macro1()
 
Dim PlageStricte As Range, PlageCasse As Range, PlagePartiel As Range
Dim MaCell As Range, PremCell As Range
 
    With Worksheets(1).Cells
    Set MaCell = .Find(What:="France", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If Not MaCell Is Nothing Then
        Set PremCell = MaCell
        Do
            If StrComp(MaCell.Value, "France", vbBinaryCompare) = 0 Then
                MsgBox "correspondance stricte"
            ElseIf StrComp(MaCell.Value, "France", vbTextCompare) = 0 Then
                MsgBox "correspondance sans casse"
            Else
                MsgBox "correspondance partielle"
            End If
            Set MaCell = .FindNext(MaCell)
        Loop While Not MaCell Is Nothing And Not MaCell.Address = PremCell.Address
    End If
    End With
 
End Sub

[cinc]

Bien merci.

Je vais essayer les deux méthodes. 8)
Mais je pense a la deuxième car ce ne sera pas toujours france, ifrance etc..
La recherche vient en fait d'une saisie de l'utilisateur.

a bientôt...je pense