vba: if contient then

[lnizetesc]

bjr,

j'ai un petit souci en vba:
je n'arrive pas à retranscrire : si le caractere "a" est contenue dans la cellule A1 alors....

en fait je dois transcoder la formule de type suivante:
=IF(ISERROR(SEARCH("a";A1));" NE RIEN FAIRE ";" OK")

et en vba:
Sub Macro()

If IsError = If Cells(1, 1).Value = "a" Then

Else
MsgBox ("la lettre a est contenue dans la cellule A1")

End If
End Sub

Merci !!!

 

[mutzik]

Re : vba: if contient then

bonjour


msgbox "fghjkl" like "*a*" te renverra FAUX car le caractère 'a' n'est pas dans la chaine 'fghjkl'

je te laisse le soin d'adapter

 

[Raja]

Re : vba: if contient then

Bonjour,

Essaye le code suivant :

Sub Macro()
  If WorksheetFunction.CountIf(Cells(1, 1), "*a*") Then
    MsgBox ("la lettre a est contenue dans la cellule A1")
  End If
End Sub

édit : salut mutzik

 

[ROGER2327]

Re : vba: if contient then

Bonjour lnizetesc

Essayez

[COLOR="DarkSlateGray"]Sub toto()
   If [A1].Value Like "*a*" Then MsgBox ("la lettre a est contenue dans la cellule A1")
End Sub[/COLOR]

ROGER2327
#1842
_
_
... bonjour mutzik, Raja.

 

[soenda]

Re : vba: if contient then

Bonjour à tous

transcoder la formule ... suivante:
=IF(ISERROR(SEARCH("a";A1));" NE RIEN FAIRE ";" OK")

Soit

=IIf([A1] Like "*a*", "Ok", "NE RIEN FAIRE")

par exemple:

MsgBox IIf([A1] Like "*a*", "Ok", "NE RIEN FAIRE")

A plus

 

[YANN-56]

Re : vba: if contient then

Bonjour Inizetesc et à tous,

Ci-joint un p'tit truc qui pourra peut-être te servir.

Bonne fin de journée

YANN-56