XL 2010 Scinder Array "Libellé (numérique - chaîne)"[RESOLU]

T

thebenoit59

XLDnaute Accro

• 13 Mars 2017

• #2

Bonjour Cathodique.
Ton sujet est résolu finalement ?

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Mars 2017

• #3

Merci Thebenoit59,

En fait, ma bête noire est la manipulation des chaînes de caractères. J e suis pas sûr à 100% que le résultat sera fiable. Effectivement, avec ce que j'ai comme données, pour le moment les résultats sont bons.

J'ai obtenu ce résultat à tâtons, un peu "beaucoup" tiré par les cheveux. Il me semble que mon code n'est pas très "orthodoxe".

J'ai mis la plage de données dans un tableau (pour aller plus vite) et dans T_data(i,2) il y a une chaîne constituée d'un code numérique au début suivi d'un libellé.

Alors le but était de séparer le numérique de l'alphabétique. Ton avis?

 

Dernière édition: 13 Mars 2017

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 13 Mars 2017

• #4

Et à chaque fois tu as du numérique en début de chaîne ? Jamais autre chose ?

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Mars 2017

• #5

Normalement, toujours du numérique sauf si les chefs décident autrement. Jusqu'à présent que du numérique en début de chaîne. Merci de réagir.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 13 Mars 2017

• #6

Voilà une proposition qui fonctionne également.
Elle permet également de chercher le code numérique même en présence de caractères non numériques en devant.

 

Pièces jointes

• Cathodique - Scinder libellé numérique.xls

  33 KB · Affichages: 35

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Mars 2017

• #7

VB:

Option Explicit
Sub sep()
Dim i As Byte, txt$, code!, libel$
txt = [a1].Value
For i = 1 To Len(txt)
    If IsNumeric(Mid(txt, i, 1)) Then
        code = Val(Mid(txt, i, Len(txt) - i + 1))
        libel = Trim(Right(txt, Len(txt) - (Len(code) + i)))
        Exit For
    End If
Next i
End Sub

Ton code ne prend en considération que la cellule A1, de plus il sort de la boucle juste après code, libel n'est pas traité.

Autre chose cette notation "code!" dans la déclaration des variables veut dire quoi? Integer, long, ...

Merci quand même. Bonne soirée.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 13 Mars 2017

• #8

Oui c'est normal pour [A1] et la sortie de boucle.
Je n'ai pas réalisé de boucles ne connaissant pas ton code de base, et je sors de la boucle quand j'ai trouvé le code, car il n'y a plus d'intérêt de continuer.
libel est bien traité, ajoute :

Code:

 debug.print code & " " & libel

à la fin du code et tu verras les résultats.

Le "!" correspondant à un single.

La boucle s'effectue sur les différents caractères du texte et pas sur une liste de texte.

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Mars 2017

• #9

VB:

For i = 1 To UBound(T_Data, 1) '
        T_Report(i, 1) = CDate(T_EnTete(2, 5))           'dateEcrit
        T_Report(i, 2) = T_EnTete(2, 6)    'N° Ecrit
        '''''scinde code du libellé'''''''''''''''''''''''
        T_Report(i, 3) = Val(T_Data(i, 1))  'N°Compte  '*****
        T_Report(i, 4) = Right(T_Data(i, 1), (Len(T_Data(i, 1)) - Len(T_Report(i, 3)) - 1))   'Libellé ****
Next i

Mon code est dans une boucle for i.... next i (je n'ai laissé que quelques lignes pour ne pas trop encombrer).
En fait, je travaille sur des tableaux. Merci, de m'avoir mis sur la bonne voie.

J'avais écrit T_Report(i, 4) = Right(T_Data(i, 1), (Len(T_Data(i, 1)) - Len(Val(T_Data(i, 1)) ) - 1))
Mais ça planté sur Val mais en remplaçant par T_Report(i, 3) alors que T_Report(i, 3) = Val(T_Data(i, 1)) mais ça passé.
C'est pour cette raison que j'ai eu des doutes.

Je vais essayer d'adapter ton code.

Encore merci et bonne soirée

 

Vote positif 0 Vote négatif