Discussion :

[bibi5883]

Bonjour,

voilà mon problème: j'ai dans une feuille de calculs excel, une text box(=zone de texte ) (celle que l'on retrouve aussi dans visual basic), dans cette text box, on rentre une date de la forme :
Doc1.doc
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?

Merci

[Invité]

Bonsoir bibi5883,

Essayez ce code :

Code :

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

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

[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.

[bibi5883]

c bon, j'ai réussi en faisant

Code :

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

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

merci beaucoup