Discussion :

[malsin]

Bonjour,

Je voudrais faire un programme vba dans lequel je tape mon mot, je tape une lettre et qu'il puisse me marquer la longueur du mot et le nombre de lettres que je lui ai demandé de compter.

Pour cela j'ai créer un bouton, 2 textbox et 2 label.

Voila ce que j'ai fait et cela marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
len(TextBox1.Text) = Label2.Text
InStr(TextBox3.Text, , , ) = Label1.Text

Une astuce ?

[pc75]

Bonjour,

Désolé, mais je ne comprends pas ce que tu cherches à faire. Peux-tu expliquer un peu plus stp ?

[edelweisseric]

Bonsoir à tous

Au coup d'oeil, je ferai plutôt l'inverse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Label2.Text=len(TextBox1.Text)

pour avoir le nombre de lettres de "textbox1" dans "label2"
Si j'ai bien compris
Eric

[ninouchfis]

Voici un exemple pour avoir la longueur d'une chaine de caractère et calculer l'occurence d'un caractère ("e" dans l'exemple) dans cette même chaine:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Mon_Mot As String
Dim Lettre_a_chercher As String
Dim Nombre_caractere As Integer
 
Mon_Mot = "Ceci est un essai"
Lettre_a_chercher = "e"
Nombre_caractere = 0
 
Longueur = Len(Mon_Mot)
 
For i = 1 To Longueur
    If Mid$(Mon_Mot, i, 1) = Lettre_a_chercher Then Nombre_caractere = Nombre_caractere + 1
Next

Il faudra adapter le code à ton besoin.