Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Condition si un mot compose le choix (VBA)

Condition si un mot compose le choix (VBA)

7 réponses
Avatar
Jacques
Bonsoir a toutes et tous

Voila, j'aimerai faire un test si la valeur de la ComboBox contient au mois
le therem "Mariage"

Donc je pensais que :

If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If

suffirais, mais en faite cela ne va pas, car la je test que si cela contien
juste le therme.

Moi j'aimerais que cela test si par exemple dans le choix fait dans la liste
il y a le mot mariage.

Exemple :

Animations de mariage, anniversaire 10 ans de mariage, anniversaire 20 ans
de mariage

Merci, jacques
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Jacques,

Dim T as String
T = combobox1
If InStr(1, t, "Mariage", vbTextCompare) <> 0 Then
MsgBox "le texte affiché par le combo contient Mariage"
End If


Salutations!



"Jacques" a écrit dans le message de news: 437f7fdf$0$29228$
Bonsoir a toutes et tous

Voila, j'aimerai faire un test si la valeur de la ComboBox contient au mois
le therem "Mariage"

Donc je pensais que :

If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If

suffirais, mais en faite cela ne va pas, car la je test que si cela contien
juste le therme.

Moi j'aimerais que cela test si par exemple dans le choix fait dans la liste
il y a le mot mariage.

Exemple :

Animations de mariage, anniversaire 10 ans de mariage, anniversaire 20 ans
de mariage

Merci, jacques
Avatar
Modeste
Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
Jacques
Michedenis, Modeste, le forum

Merci a vous deux, je vais regarder cela dans l'aide, pour y voir plus
claire sur ces fonctions.

Merci, Jacques
"Modeste" a écrit dans le message de news:

Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr





Avatar
Jacques
Re

J'ai voulu mettre votre code sur un autre UserForm, qui me sert de résultat
d'une recherche, (Idem au premier, mais celui-la me sert pour des
modifications de données)mais a l'emplacement de la ComboBox, j'ai une
TextBox qui se rempli a l'activation de l'UserForm.

Mais il ne se passe rien, voici ce que j'ai adapté et mis dans l'activate de
l'userForm

Dim x As String
'Test si le controle a une donnée particulière pour gérer l'interface
x= txtTypeDeSoiree
If InStr(1, t, "Mariage", vbTextCompare) <> 0 Then
MsgBox "le texte affiché par le combo contient Mariage"
End If


Merci, Jacques
"Jacques" a écrit dans le message de news:
437f874c$0$6684$
Michedenis, Modeste, le forum

Merci a vous deux, je vais regarder cela dans l'aide, pour y voir plus
claire sur ces fonctions.

Merci, Jacques
"Modeste" a écrit dans le message de news:

Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr









Avatar
michdenis
Bonjour Jacques,

Je veux bien que tu changes la variable T pour X, mais il faut aussi la changer là :
If InStr(1, X, "Mariage", vbTextCompare) <> 0


Salutations!



"Jacques" a écrit dans le message de news: 437f8ac9$0$20160$
Re

J'ai voulu mettre votre code sur un autre UserForm, qui me sert de résultat
d'une recherche, (Idem au premier, mais celui-la me sert pour des
modifications de données)mais a l'emplacement de la ComboBox, j'ai une
TextBox qui se rempli a l'activation de l'UserForm.

Mais il ne se passe rien, voici ce que j'ai adapté et mis dans l'activate de
l'userForm

Dim x As String
'Test si le controle a une donnée particulière pour gérer l'interface
x= txtTypeDeSoiree
If InStr(1, t, "Mariage", vbTextCompare) <> 0 Then
MsgBox "le texte affiché par le combo contient Mariage"
End If


Merci, Jacques
"Jacques" a écrit dans le message de news:
437f874c$0$6684$
Michedenis, Modeste, le forum

Merci a vous deux, je vais regarder cela dans l'aide, pour y voir plus
claire sur ces fonctions.

Merci, Jacques
"Modeste" a écrit dans le message de news:

Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr









Avatar
Jacques
Michdenis

Oui, cela a été fait quand, the VBA débogeur, m'a littéralement remis dans
le droit chemin.

Et cela n'a rien changé.

Merci, Jacques
"michdenis" a écrit dans le message de news:
%
Bonjour Jacques,

Je veux bien que tu changes la variable T pour X, mais il faut aussi la
changer là :
If InStr(1, X, "Mariage", vbTextCompare) <> 0


Salutations!



"Jacques" a écrit dans le message de news:
437f8ac9$0$20160$
Re

J'ai voulu mettre votre code sur un autre UserForm, qui me sert de
résultat
d'une recherche, (Idem au premier, mais celui-la me sert pour des
modifications de données)mais a l'emplacement de la ComboBox, j'ai une
TextBox qui se rempli a l'activation de l'UserForm.

Mais il ne se passe rien, voici ce que j'ai adapté et mis dans l'activate
de
l'userForm

Dim x As String
'Test si le controle a une donnée particulière pour gérer l'interface
x= txtTypeDeSoiree
If InStr(1, t, "Mariage", vbTextCompare) <> 0 Then
MsgBox "le texte affiché par le combo contient Mariage"
End If


Merci, Jacques
"Jacques" a écrit dans le message de news:
437f874c$0$6684$
Michedenis, Modeste, le forum

Merci a vous deux, je vais regarder cela dans l'aide, pour y voir plus
claire sur ces fonctions.

Merci, Jacques
"Modeste" a écrit dans le message de news:

Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la
source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr














Avatar
Jacques
Re

Oups, j'ai trouvé, je l'avait mal placer dans mon code.

Merci a vous et bon week-end, Jacques
"Jacques" a écrit dans le message de news:
437f97b8$0$18339$
Michdenis

Oui, cela a été fait quand, the VBA débogeur, m'a littéralement remis dans
le droit chemin.

Et cela n'a rien changé.

Merci, Jacques
"michdenis" a écrit dans le message de news:
%
Bonjour Jacques,

Je veux bien que tu changes la variable T pour X, mais il faut aussi la
changer là :
If InStr(1, X, "Mariage", vbTextCompare) <> 0


Salutations!



"Jacques" a écrit dans le message de news:
437f8ac9$0$20160$
Re

J'ai voulu mettre votre code sur un autre UserForm, qui me sert de
résultat
d'une recherche, (Idem au premier, mais celui-la me sert pour des
modifications de données)mais a l'emplacement de la ComboBox, j'ai une
TextBox qui se rempli a l'activation de l'UserForm.

Mais il ne se passe rien, voici ce que j'ai adapté et mis dans l'activate
de
l'userForm

Dim x As String
'Test si le controle a une donnée particulière pour gérer l'interface
x= txtTypeDeSoiree
If InStr(1, t, "Mariage", vbTextCompare) <> 0 Then
MsgBox "le texte affiché par le combo contient Mariage"
End If


Merci, Jacques
"Jacques" a écrit dans le message de news:
437f874c$0$6684$
Michedenis, Modeste, le forum

Merci a vous deux, je vais regarder cela dans l'aide, pour y voir plus
claire sur ces fonctions.

Merci, Jacques
"Modeste" a écrit dans le message de news:

Bonsour®
Jacques wrote:
Voila, j'aimerai faire un test si la valeur de la ComboBox contient au
mois
le therem "Mariage"
If cbxTypeDeSoiree.Value = "Mariage" Then
MsgBox "mariage"
End If



il faut utiliser l'opérateur Like (Voir aide VBA)

If cbxTypeDeSoiree.Value Like "*Mariage*" Then
MsgBox "mariage"
End If
attention également la méthode Option Compare Text
instruction à placer en tête de module

@+

--
les news pas à jour ?? ne passez plus par votre FAI, les news à la
source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr