Condition Si la cellule A1 contient un i alors

Le
Alex
Bonjour à tous,

Je souhaiterai faire en VBA, contrôler la cellule A1, si la cellule A1 co=
ntient un "i" alors j'execute une action sinon pas de "i" une autre action.
Le contenu de la cellule A1 peut être variable en nombre de caractère e=
t est de type alpha numérique, le "i" peut être positionné n'importe =
ou, le tout est d'identifier que la cellule aA1 contient ou non un "i"
Quelqu'un aurait il la solution à ce problème.
Merci par avance de votre aide.
Bien cordialement.
Alex
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #26213502
Bonjour,
If Len([A1]) = Len(Application.Substitute([A1], "i", "")) Then
Cordialement.
Daniel


Bonjour à tous,

Je souhaiterai faire en VBA, contrôler la cellule A1, si la cellule A1
contient un "i" alors j'execute une action sinon pas de "i" une autre action.
Le contenu de la cellule A1 peut être variable en nombre de caractère et est
de type alpha numérique, le "i" peut être positionné n'importe ou, le tout
est d'identifier que la cellule aA1 contient ou non un "i" Quelqu'un aurait
il la solution à ce problème. Merci par avance de votre aide. Bien
cordialement. Alex
Alex
Le #26213752
Merci pour ce retour.
Alex
Jacquouille
Le #26214032
Bonjour
Un peu tard, mais j'aime ceci: (I like...)

Sub compter_les_i()
If Range("A1") Like "*i*" Then MsgBox "OK" Else MsgBox "No i"
End Sub

Ce filet de macro te dira si la cel A1 contient ou non le car (i)

Jacquouille, sans mérite, mais qui avait cela dans ses archives

" Le vin est au repas ce que le parfum est à la femme."


"Alex" a écrit dans le message de groupe de discussion :


Bonjour à tous,

Je souhaiterai faire en VBA, contrôler la cellule A1, si la cellule A1
contient un "i" alors j'execute une action sinon pas de "i" une autre
action.
Le contenu de la cellule A1 peut être variable en nombre de caractère et est
de type alpha numérique, le "i" peut être positionné n'importe ou, le tout
est d'identifier que la cellule aA1 contient ou non un "i"
Quelqu'un aurait il la solution à ce problème.
Merci par avance de votre aide.
Bien cordialement.
Alex


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Jacquouille
Le #26214022
Sub compter_les_i()

a = Len([A1])
MsgBox a

b = Len(Application.Substitute(a, "i", ""))
MsgBox b


MsgBox a - b


End Sub
--------------
C'est marrant, mais ce truc ne me compte que 1 seul i, même s'il y en a
plusieurs dans A1 (i4i5i, p ex)
???


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
isabelle
Le #26214042
plutot

b = Len(Application.Substitute([A1], "i", ""))

isabelle

Le 2014-06-23 10:59, Jacquouille a écrit :
Sub compter_les_i()

a = Len([A1])
MsgBox a

b = Len(Application.Substitute(a, "i", ""))
MsgBox b


MsgBox a - b


End Sub
--------------
C'est marrant, mais ce truc ne me compte que 1 seul i, même s'il y en a
plusieurs dans A1 (i4i5i, p ex)
???


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce
que la protection avast! Antivirus est active.
http://www.avast.com

Jacquouille
Le #26214332
Isa belle-belle,
Bat-Woman qui vole toujours au secours ....
merci -))

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
lo9g4a$2hq$


plutot

b = Len(Application.Substitute([A1], "i", ""))

isabelle

Le 2014-06-23 10:59, Jacquouille a écrit :
Sub compter_les_i()

a = Len([A1])
MsgBox a

b = Len(Application.Substitute(a, "i", ""))
MsgBox b


MsgBox a - b


End Sub
--------------
C'est marrant, mais ce truc ne me compte que 1 seul i, même s'il y en a
plusieurs dans A1 (i4i5i, p ex)
???


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce
que la protection avast! Antivirus est active.
http://www.avast.com





---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Jacquouille
Le #26214372
Et pour compter le nombre de "i" dans A1:

Sub compter_les_i()
a = Len([A1])
b = Len(Application.Substitute([A1], "i", ""))
MsgBox a - b
End Sub

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."


---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Publicité
Poster une réponse
Anonyme