OVH Cloud OVH Cloud

Compter les ; dans un textbox

4 réponses
Avatar
Alain
Bnnjour.
Je désire savoir comment compter les ; dans un textbox ?
Merci beaucoup
Alain

4 réponses

Avatar
FxM
Bonjour Alain,

De la même manière que tu comptes les / ?
Hier n'est pas si loin :o)

@+
FxM


Alain wrote:

Bnnjour.
Je désire savoir comment compter les ; dans un textbox ?
Merci beaucoup
Alain




Avatar
Alain
Mille pardons.
En fait, je croyais sincèrement que NbSlash ne concernait que les slashes
et de ce fait je cherchais la syntaxe NBpointvirgule...
P.S. J'ai honte.

Private Sub CommandButton60_Click()
txt = TextBox11
For I = 1 To Len(txt)
If Mid(txt, I, 1) = ";" Then
NbSlash = NbSlash + 1
End If
Next
MsgBox NbSlash
End Sub



"FxM" a écrit dans le message de
news:
Bonjour Alain,

De la même manière que tu comptes les / ?
Hier n'est pas si loin :o)

@+
FxM


Alain wrote:

Bnnjour.
Je désire savoir comment compter les ; dans un textbox ?
Merci beaucoup
Alain






Avatar
FxM
Ou bien encore comme le dit si bien AV :

txt = TextBox11
MsgBox Len(txt) - Len(Application.Substitute(txt, ";", ""))

@+
FxM



Alain wrote:

Mille pardons.
En fait, je croyais sincèrement que NbSlash ne concernait que les slashes
et de ce fait je cherchais la syntaxe NBpointvirgule...
P.S. J'ai honte.

Private Sub CommandButton60_Click()
txt = TextBox11
For I = 1 To Len(txt)
If Mid(txt, I, 1) = ";" Then
NbSlash = NbSlash + 1
End If
Next
MsgBox NbSlash
End Sub



"FxM" a écrit dans le message de
news:

Bonjour Alain,

De la même manière que tu comptes les / ?
Hier n'est pas si loin :o)

@+
FxM


Alain wrote:


Bnnjour.
Je désire savoir comment compter les ; dans un textbox ?
Merci beaucoup
Alain











Avatar
Alain
Bien pris note.
Alain

"FxM" a écrit dans le message de
news:%
Ou bien encore comme le dit si bien AV :

txt = TextBox11
MsgBox Len(txt) - Len(Application.Substitute(txt, ";", ""))

@+
FxM



Alain wrote:

Mille pardons.
En fait, je croyais sincèrement que NbSlash ne concernait que les
slashes


et de ce fait je cherchais la syntaxe NBpointvirgule...
P.S. J'ai honte.

Private Sub CommandButton60_Click()
txt = TextBox11
For I = 1 To Len(txt)
If Mid(txt, I, 1) = ";" Then
NbSlash = NbSlash + 1
End If
Next
MsgBox NbSlash
End Sub



"FxM" a écrit dans le message de
news:

Bonjour Alain,

De la même manière que tu comptes les / ?
Hier n'est pas si loin :o)

@+
FxM


Alain wrote:


Bnnjour.
Je désire savoir comment compter les ; dans un textbox ?
Merci beaucoup
Alain