Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba: if contient then

  • Initiateur de la discussion Initiateur de la discussion lnizetesc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lnizetesc

Guest
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 !!!
 
Dernière modification par un modérateur:
Re : vba: if contient then

Bonjour,

Essaye le code suivant :

Code:
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
 
Dernière édition:
Re : vba: if contient then

Bonjour lnizetesc
Essayez
Code:
[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.
 
Dernière édition:
Re : vba: if contient then

Bonjour à tous

transcoder la formule ... suivante:
=IF(ISERROR(SEARCH("a";A1));" NE RIEN FAIRE ";" OK")
Soit
Code:
=IIf([A1] Like "*a*", "Ok", "NE RIEN FAIRE")
par exemple:
Code:
MsgBox IIf([A1] Like "*a*", "Ok", "NE RIEN FAIRE")
A plus
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
793
Réponses
7
Affichages
179
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…