Astérisque

Question

Sur Excel, j'ai un bouton en VB.  Je veux que ce bouton recherche dans la cellule A11 si il y a le mot "cleveland".  Si le mot est inclus, je veux qu'il &#233;crive "&#231;a fonctionne" dans A12.  Sinon, je veux qu'il &#233;crive "d&#233;sol&#233;" dans A12.  Mon probl&#232;me est que je veux qu'il fontionne m&#234;me lorsque le mot cleveland est inclus dans une citation.  Par exemple, si il est &#233;crit "je vais a cleveland demain" dans A11, je veux que &#231;a fonctionne.  J'ai essay&#233; avec "*" mais &#231;a ne fonctionne pas...  J'ai aussi essay&#233; avec * sans guillemet mais il y a un erreur de syntaxe.

Voici mon code qui ne fonctionne pas... aidez-moi s'il vous plait.

Private Sub CommandButton1_Click()
If Range("a" & 11) = "*" & "cleveland" & "*" Then
Range("a" & 12) = "&#231;a fonctionne"
Else: Range("a" & 12) = "d&#233;sol&#233;"
End If
End Sub

D&#233;sol&#233; si ce n'est pas clair, je suis un d&#233;butant...

mongol77 · Answer

salut,

regardes par l&#224;, apparement ca a march&#233; pour lui , mais personellement j'ai pas test&#233;

mongol77 · Answer

oups , le lien 

http://www.vbfrance.com/infomsg/RECHERCHE-CHAINE-CARACTERE-DANS-EXCELL_293341.aspx

EDIT : Une touche EDIT s'il vout plait ;)

cs_Jack · Answer

Salut
If Range("a" & 11) Like "*" & "cleveland" & "*" Then

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

groundos · Answer

Merci pour les r&#233;ponses, mais &#231;a n'a malheureusement pas r&#233;gl&#233; mon probl&#232;me.

La premi&#232;re r&#233;ponse ne s'appliquait pas &#224; mon probl&#232;me puisque, d'apr&#232;s ce que j'en comprends, elle recherche parmi toutes les cases pour trouver le mot alors que dans ma situation je veux qu'il recherche dans une seule case pour voir si le mot est pr&#233;sent.

La deuxi&#232;me r&#233;ponse semblait destin&#233;e &#224; fonctionner, mais pour une raison que j'ignore elle ne fonctionne pas.

Avez vous un autre id&#233;e?

groundos · Answer

Bonne nouvelle, j'ai r&#233;ussi a le faire fonctionner.  Merci pour vos r&#233;ponses, c'est gr&#226;ce &#224; elles que j'ai pu y arriver!

mortalino · Answer

Salut à tous,

With Worksheets(1).Range("a11")
    Set c = .Find("cleveland")
    If Not c Is Nothing Then
        Range("a12").Value = "Ca fonctionne !"
    else
        Range("a12").Value = "Désolé !"
    End If
End With

Voilou !!

Mortalino

neostars · Answer

jarrive pas a faire marché le decodeure

mortalino · Answer

Faut le brancher !!
Avec un peu de chance, il va courir 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Astérisque

8 réponses

Discussions similaires