Discussion :

[Tatouine]

Bonjour,
Alors voila, je recuper les données d'une cellule d'un tableau Excel

Code :

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

x2Sheet.Cells(5, 4)

cette celule contients ce genre d'informations :

C2,10,14,16,26,28,31,40,42

ou encore

VD1,3,4

Je dois extraire tout d abord le ou les caractere avant les chiffres, ici :
C et VD

et ensuite etre capable de pouvoir reecrire
C2 dans 1 cellule
C10 dans une autre
C14 dans une 3eme ....

Merci pour votre aide futur ...

[guitoux1]

Je n'aurais que deux mots à dire :

Expressions Regulières

[Tatouine]

Expressions Regulieres ? c'est quoi ?
j'ai fait un bout de code ... mais j ai une erreur de typage ...

Code :

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

1
2
3
4
5
6
7
8
            Dim maString = x2Sheet.Cells(5 + i, 4)
            Dim Concat
            Dim j As Integer = 1
 
            While (GetChar(maString, j) Like "#") = False
                Concat = Concat & GetChar(maString, j)
                j = j + 1
            End While

et la j'ai une erreur de type :

Une exception non gérée du type 'System.InvalidCastException' s'est produite dans microsoft.visualbasic.dll

Informations supplémentaires*: Cast du type 'Range' en type 'String' non valide.

sur la ligne :
GetChar(maString, j) Like "#"
ce qui est normal vue que le like traite les string ...

et je ne sais pas comment Transtyper ce Range en String ...

[Tatouine]

Voila la solution apres de moulte recherche fructeuse pour une fois :

Code :

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

1
2
3
4
5
6
7
8
            Dim maString = DirectCast(x2Sheet.Cells(5 + i, 4)._Default, String)
            Dim Concat As String = ""
            Dim j As Integer = 1
 
            While (GetChar(maString.ToString, j) Like "#") = False
                Concat = Concat & GetChar(maString, j)
                j = j + 1
            End While

un peu bizarre mais ca marche ...
vous pouvez me donner votre avis pour une simplification