Identifier un caractère d'une text box par VBA sous excel

Version imprimable

12/04/2007, 18h33
bibi5883

1 pièce(s) jointe(s)

Identifier un caractère d'une text box par VBA sous excel

Bonjour,

voilà mon problème: j'ai dans une feuille de calculs excel, une text box(=zone de texte :D ) (celle que l'on retrouve aussi dans visual basic), dans cette text box, on rentre une date de la forme :
Pièce jointe 11947
en fait j'aimerais récuper dans une variable debut: mars_2007 et dans une variable fin : avril_2007, cad dans la première variable tout ce qu'il y a avant le - et dans la deuxième variable, tout ce qu'il y a après le - (parceque évidemment, les mois vont changer)

Mais voilà, comme se sont des text box, je ne sais pas comment faire pour compter le nombre de caractères avant et après le - et les récupérer.

Quelqu'un sait comment faire? :cry:

Merci

Bonsoir bibi5883,

Essayez ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Separe()
 
 Dim Tableau() As String
    Dim i As Integer
 
    Text = TextBox1
   'N° de ligne dans laquelle on récupère les données
    l = 2
   'N° de colonne dans laquelle on récupère la 1ère partie
    c = 2
    Tableau = Split(Text, "-")
 
       For i = 0 To UBound(Tableau)
      Cells(l, c) = Tableau(i)
        c = c + 1
    Next i
 
End Sub

Amicalement

13/04/2007, 08h49
bibi5883

bonjour,

mon problème justement, c'est que les dates ne sont pas récupérées d'une cellule, mais entrées par l'utilisateur directement dans la textbox. Il me faut donc récupérer les caractères directement de la textbox. et comme le nombre de caractère varient, je ne sais pas comment faire.
:roll:

c bon g réussi

c bon, j'ai réussi en faisant
Code:

1 2 3 4 5 6 Dim tableau() As String tableau = Split(boxMois, "-") debut = tableau(0) fin = tableau(1)
merci beaucoup :king: