Discussion :

[fabregace]

Slt les amis j 'ai un problème lorsque j ai importer des données de puis excel s'affiche comme ça

Exemple " 2020/1626/320" dans un textbox


mais je veux l 'affichera comme ça "320/1626/2020"

SVP aide moi

[Phil Rob]

Bonjour,

Voici une fonction qui fait ce que tu demandes :

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
19
 
    Private Function InverseMaTextBox(ByRef ChaineIni As String) As String
        Dim Tmp() As String
        Dim EchangeEnCours As String  ' variable temporaire pour la permutation
        Dim NombreElements As Integer
        Dim Separateur As Char = "/"c
        Tmp = ChaineIni.Split(Separateur) ' Faire un tableau de sous-chaines
        NombreElements = Tmp.Length
        For I As Integer = 0 To ((NombreElements - 1) \ 2)   ' Inverser les sous-chaines
            EchangeEnCours = Tmp(I)
            Tmp(I) = Tmp(NombreElements - I - 1)
            Tmp(NombreElements - I - 1) = EchangeEnCours
        Next
        Tmp(0) = Tmp(0).Trim() ' Refaire une chaine avec les sous-chaines et les /.
        For I As Integer = 1 To NombreElements - 1
            Tmp(0) &= Separateur & Tmp(I).Trim
        Next
        Return Tmp(0)
    End Function

Elle s'utilise comme ceci :

Code :

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

1
2
 
       TextBoxAInverser.Text = InverseMaTextBox(TextBoxAInverser.Text)

Bon dimanche,

[fabregace]

Merci BQ BQ Chef