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 Anti doublon dans un textbox

Anti doublon dans un textbox

6 réponses
Avatar
Michel
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub
Signaler un problème avec ce contenu

6 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
Michel Pierron
Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub





Avatar
Michel
Chaleureuses félicitations, cela fonctionne parfaitement.
Encore un très grand merci.
Michel

"Michel Pierron" a écrit dans le message de news:

Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne
puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub








Avatar
Michel
Bonsoir Michel
peux-tu m'expliquer cela ?
Encore merci
Michel
If InStr(1, TextBox1, mavar, 1)


"Michel Pierron" a écrit dans le message de news:

Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne
puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub








Avatar
Michel Pierron
Re Michel;
En clair, si dans la chaîne TextBox.Text est contenue la chaîne égale à
mavar, la fonction InStr renvoie la position à laquelle elle a été trouvée;
sinon, elle retourne la valeur zéro. Si la valeur retournée est supérieure à
0, la condition est vérifiée et vaut True.
MP

"Michel" a écrit dans le message de
news:%
Bonsoir Michel
peux-tu m'expliquer cela ?
Encore merci
Michel
If InStr(1, TextBox1, mavar, 1)


"Michel Pierron" a écrit dans le message de news:

Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne
puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub












Avatar
Michel Pierron
Re michel;
J'ai oublié:
Le premier paramètre indique la position dans la chaîne où doit commencer la
recherche, en occurrence, 1 désigne le premier caractère et le dernier
paramètre le type de comparaison à effectuer; en occurrence, 1 désigne une
comparaison textuelle sans distinction des majuscules et minuscules.
MP

"Michel" a écrit dans le message de
news:%
Bonsoir Michel
peux-tu m'expliquer cela ?
Encore merci
Michel
If InStr(1, TextBox1, mavar, 1)


"Michel Pierron" a écrit dans le message de news:

Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne
puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub












Avatar
Michel
Merci beaucoup
Michel

"Michel Pierron" a écrit dans le message de news:

Re michel;
J'ai oublié:
Le premier paramètre indique la position dans la chaîne où doit commencer
la
recherche, en occurrence, 1 désigne le premier caractère et le dernier
paramètre le type de comparaison à effectuer; en occurrence, 1 désigne une
comparaison textuelle sans distinction des majuscules et minuscules.
MP

"Michel" a écrit dans le message de
news:%
Bonsoir Michel
peux-tu m'expliquer cela ?
Encore merci
Michel
If InStr(1, TextBox1, mavar, 1)


"Michel Pierron" a écrit dans le message de
news:

Bonsoir Michel;
Private Sub CommandButton1_Click()
If OptionButton1 Then mavar = "Alpha"
If OptionButton2 Then mavar = "Bêta"
If OptionButton3 Then mavar = "Charly"
If OptionButton4 Then mavar = "Delta"
If OptionButton5 Then mavar = "Echo"
If InStr(1, TextBox1, mavar, 1) Then Exit Sub
If TextBox1 = "" Then
TextBox1 = mavar
Else
TextBox1 = TextBox1 & " + " & mavar
End If
End Sub

MP

"Michel" a écrit dans le message de
news:
Bonsoir.
J'ai cette sub qui ajoute dans un textbox des éléments.
Je souhaite que si un élément se trouve déjà dans le textbox, il ne
puisse
pas aller dans ce textbox,
Merci beaucoup et bonne soirée
Michel

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
mavar = "Alpha"
End If
If OptionButton2 = True Then
mavar = "Bêta"
End If
If OptionButton3 = True Then
mavar = "Charly"
End If
If OptionButton4 = True Then
mavar = "Delta"
End If
If OptionButton5 = True Then
mavar = "Echo"
End If

If TextBox1 <> "" Then
TextBox1 = TextBox1 & " + " & mavar
'Unload Me
End If

If TextBox1 = "" Then
TextBox1 = mavar
'Unload Me
End If

End Sub