XL 2007 Vérifier la présence d'une chaine de caractére dans une autre en VBA sujet

Bonjour,
j'ai une macro qui ne fonctionne pas vraiment comme je veux alors je me permet de solliciter des experts.
Le problème est simple et tout d'abord je précise qu'il me faut un code vba (autrement dit je ne veux pas de formule de calcul)
J'ai un ensemble de mot appelé cible (exemple engrenage, problème etc)
Dans ma cellule A1 je vais avoir un texte d'environs 20 mots
Je souhaite tester la présence d'un mot cible dans la cellule A1.

Mon code fonctionne si il y a un seul mot dans la cellule A1
Exemple si je met engrenage dans A1 alors il détecte la présence du mot mais si je met une phrase qui contient le mot engrenage cela ne fonctionne plus.

Voici mon fichier pour être plus claire

Fichiers attachés

• 
  
  cherche trouve vba.xlsm‎
  (13,5 Ko)
  

Comment vérifier si la config est chargée ? sujet

Bonjour

Voila un bout de code que j'utilise, qui a l'air de fonctionner, pour savoir si oui ou non la config geoportail est chargée avant de lancer la création d'une carte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var count = 0; for (var t in Geoportal.Catalogue.TERRITORIES) { if (Geoportal.Catalogue.TERRITORIES.hasOwnProperty(t)) { ++count; } } if (count === 0) { // charge la config avant de créer la carte Geoportal.GeoRMHandler.getConfig([geoportalApiKey], null,null, { onContractsComplete: initMap }); } else { initMap(); // lance la création de la carte sans recharger la config pour aller plus vite }

---

Je fais la vérification sur Geoportal.Catalogue.TERRITORIES parce que c'est un objet que j'ai l'habitude d'aller fouiller, mais est-ce qu'il y aurait un test plus pertinent à faire ?

Sylvain

XL 2003 Vérifier si valeur présente dans Listbox sujet

Bonjour,
Je bloque (une fois de plus :( ). J'ai trois objets différents :
- 1 Listbox (contenant des valeurs définies) - Name folders
- 1 zonne de texte (contenant une valeur a entrer manuellement) - Name f_name
- 1 bouton valider - Name btn_créer

Mon but est, aprés avoir valider, vérifier si la valeur entrer dans la zonne de texte est présente dans la listbox. si oui, afficher msgbox "oui", si non afficher msgbox "non". j'avais réalisé ce code a partir d'aide, mais il ne fonctionne pas :

Code :

---

Private Sub Btn_créer_Click()
    Dim i As Integer
   
    For i = 0 To Me.folders.ListCount - 1
        If Me.folders.ItemData(i) = Me.f_name.Value Then
            MsgBox "Oui": Exit For
        Else:
            MsgBox "Non": Exit For
        End If
    Next i
End Sub

---

Pourriez-vous m'aider svp?

Merci,
Bonne journée,
Fab.