Discussion :

[Henri1830]

Bonjour à toutes les bonnes volontés,

La question posée en son temps a été résolue et je remercie une fois de plus mes différents sauveteurs.

Aujourd'hui, se présente une autre difficulté. La fonction de recherche que j'utilise est :

Code :

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

Set rngFound = Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

Cela fonctionne très bien sauf qu'à un moment la variable Nom contient "Colon" et que j'ai une en-tête qui est nommée "Colonne". Il juge que "Colonne" est Ok et il continue sa procédure.
Je pourrais renommer Colonne en Col mais ça ne me met pas à l'abri d'une autre confusion.

J'ai cherché un peu partout mais je n'ai pas trouvé le moyen de dire à Cells.Find que je ne veux que le contenu de la variable Nom et pas les à-peu-près.

Pouvez-vous m'aider ?

Merci d'avance.

Henri

[Franc]

Bonjour, essaie avec le paramètre LookAt:=xlWhole au lieu de LookAt:=xlPart

[Henri1830]

Merci pour ta réponse Franc.
Après essai, je n'ai malheureusement pas de bonnes nouvelles puisqu'il devient à ce point restrictif qu'il ne sélectionne plus rien du tout.
Si tu as une autre idée, je suis preneur...

Belle journée !

Henri

[Franc]

Comme ça j'ai pas d'autre idée qui me vient. Si tu peux éventuellement mettre un fichier à disposition pour tester...

[Nain porte koi]

Hello,

LookAt:=xlPart recherche une partie de "Nom" (début, milieu ou fin)
LookAt:=xlWhole recherche exactement "Nom"
et il n'y a que ces 2 possibilités
https://learn.microsoft.com/fr-fr/of...excel.xllookat

Si les 2 ne vont pas je ne crois pas qu'il y ait de solution avec Cells.Find.

[Henri1830]

Merci pour vos retours.

Le problème est que la fonction cherche (et trouve) n'importe quoi.
Par exemple, En cherchant Colon, il trouve colonne. Ou en cherchant Lis, il trouve Alison.
Il faut aussi savoir que les mots recherchés sont perdus au milieu de communication bancaires, elles-mêmes non standardisées.
Exemple :
Virement en euros (SEPA) Vers: XXXXXXXXX ALISON - BE36363111010981 Communication: /A/106996 177 2023/01-1 1 0 Info personnelle: 106996 177 2023/01-1 1 0
Ça rend la fonction inutilisable :-(

Ne pourrait-on pas préciser que c'est le mot exact que je cherche dans la phrase et non au milieu de n'importe quoi.

Il me vient une idée : pourquoi ne pas chercher " Colon " avec un espace devant et derrière, ça devrait résoudre mon problème.
Je vais tester, je vous reviens.

A tout à l'heure.

Henri

[Franc]

Voici une proposition en utilisant les expressions régulières. Dans les références il faut activer "Microsoft VBScript Regular Expressions 5.5".
Dans RegEx.Pattern on utilise \b, qui est un "délimiteur de mot" en RegEx. Cela garantit que "Colon" est recherché comme un mot entier, et non comme une partie de "Colonne". Teste ceci et adapte selon tes besoins:

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
Dim RegEx As Object
Dim Match As Object
Dim CellValue As String
Dim Nom As String
Dim rngFound As Range
 
Nom = "Colon" ' Mot que vous cherchez
 
' Créer l'objet RegEx
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.IgnoreCase = True
RegEx.Global = False
RegEx.Pattern = "\b" & Nom & "\b" ' Cherche uniquement le mot exact avec des délimiteurs de mots (\b)
 
' Chercher la première correspondance
Set rngFound = Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
 
' Vérifier si une cellule a été trouvée et si elle contient le mot exact
If Not rngFound Is Nothing Then
    Do
        CellValue = rngFound.Value
 
        ' Appliquer RegEx pour voir si c'est un mot exact
        If RegEx.Test(CellValue) Then
            ' Correspondance exacte trouvée
            Exit Do
        End If
 
        ' Continuer la recherche
        Set rngFound = Cells.FindNext(After:=rngFound)
    Loop While Not rngFound Is Nothing And rngFound.Address <> Cells.Find(What:=Nom, After:=ActiveCell).Address
End If

[BENNASR]

Bonjour
je ne sais pas si ça va aider mais je pense que Instr fait l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Option Compare Text
Sub test()
Dim F As Worksheet
Dim Textt As String
Dim lig As Long
Set F = ThisWorkbook.Worksheets("Feuil1")
Textt = "Col"
 
 For lig = 1 To 10
 If InStr(F.Range("A" & lig).Value, Textt) <> 0 Then F.Range("B" & lig) = "OK"
    Next lig
End Sub

[Henri1830]

Bonjour BENNASR,

Merci pour votre proposition.
J'ai lu un jour dans une intervention de Pierre Fauconnier que "Option Compare Text en début de module, ce qui va affecter toutes les lignes du module qui traitent du texte, notamment avec = ou like mais également avec des fonctions".

Je me méfie donc de ce "Compare Text". Peut-être peut-on faire sans ?

Bien à vous.

Henri

[Henri1830]

Bonjour Franc,

La solution " Colon " a fonctionné mais j'essaierai quand même ta proposition qui a l'air plus saine que l'hypothèse qu'il y ait toujours un espace avant et après le mot recherché.
Dans les communications bancaires, rien n'est moins certain.

Belle journée !

Henri

[Henri1830]

Bonjour Nain porte koi,

Merci pour l'info, je vais essayer la solution de Franc.

Belle journée !

Henri

[Nain porte koi]

J'ai lu un jour dans une intervention de Pierre Fauconnier que "Option Compare Text en début de module, ce qui va affecter toutes les lignes du module qui traitent du texte, notamment avec = ou like mais également avec des fonctions".

Je me méfie donc de ce "Compare Text". Peut-être peut-on faire sans ?

Oui, mais...
Option Compare Text permet de ne pas tenir compte des majuscules/minuscules, donc "machin" est différent de "MACHIN" et de "MaChIn" si cette option n'est pas active.
A vous de voir, mais elle n'affecte QUE le module dans lequel elle se trouve, donc ça limite pas mal si vous mettez la macro dans un module spécifique

[Henri1830]

Effectivement, s'il n'y a que la recherche dans un module à part, tout le reste fonctionnera comme avant.
Bonne idée. Merci Nain porte koi !
je testerai donc aussi BENNASR.
Belle journée à tous !

[Valtrase]

Bonjour à tous,
La fonction Instr possède l'argument Compare donc tu peux virer, l'option Compare du début de module et le renseigner juste au moment de la recherche.

Aide sur la fonction :