Discussion :

[BtjpsspgrW]

Bonjour,

Ce que je souhaite :
Dans une base de données, sur la même colonne en décalant d’une cellule à chaque fois (boucle), je souhaiterais que VISUAL BASIC détecte si le mot clé est contenu dans cette cellule ou pas du tout. On peux trouver ce mot dans la barre de formule après peu de caractères, ou après un grand nombre de caractères.
Dans l’exemple ci-dessous, je veux rechercher s’il y a bien le mot « lait » lorsque la cellule active est B2, ensuite cellule active B3, …

EXEMPLE :
Cellule B2 = le lait équitable
Cellule B3 = j’aime danser
Cellule B4 = j’aime boire du lait
Pour la cellule B2, le mot clé se trouve à partir du 4ème caractère. Pour la cellule B3, le mot clé ne se trouve pas. Pour la cellule B5, le mot clé se trouve à partir du 17ème caractère.

J’ai essayé avec la syntaxe

Code :

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

ActiveCell.Find

, mais ça ne fonctionne pas.

[Filippo]

Hello,
tu peux utiliser la fonction InStr.

par exemple :
Si la cellule B2 contient "le lait équitable".

Code :

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

InStr(1, Range("B2").Value, "lait", vbTextCompare)

va renvoyer la valeur 4.
Le 1 indique qu'on commence les vérifications au premier caractère.
Renvoie 0 si l’occurrence n'est pas trouvée.

Si tu veux que la recherche soit sensible aux majuscules / minuscules, il faut utiliser comme dernier argument vbBinaryCompare à la place de vbTextCompare.

[BtjpsspgrW]

Bonjour,
tu rédiges ça comment dans VISUAL BASIC
quand j'insère

Code :

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

InStr(1, Range("B2").Value, "lait", vbTextCompare)

, VISUAL BASIC m'indique le message suivant :
Erreur de compilation, Erreur de syntaxe

[Filippo]

Par exemple comme ça :

Code :

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

1
2
3
4
5
6
7
8
Public Sub exemple()
    Dim i As Integer
 
    i = InStr(1, Range("B12").Value, "lait", vbTextCompare)
 
    MsgBox i
 
End Sub

[BtjpsspgrW]

Dans l'exemple que tu m'a donné, ça renvoie 0. ça ne fonctionne pas

[Filippo]

Chez moi avec "le lait équitable" en B12 ça me renvoie bien 4.

Vérifie en ajoutant

Code :

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

MsgBox Range("A12").Value

que la fonction utilise bien "le lait équitable".