Discussion :

[shaki]

bonsoir à tous,

j'ai la macro suivante qui fonctionne dans le fichier joint MAIS j'ai je crois un soucis de caractère 160.

Quand je souhaite ensuite travailler avec les chiffres ils sont comme non reconnus.

Quelqu'un s'aurait il modifier la macro pour que le caractère 160 ne pose plus de problème?

Merci

Klorane


tabl1.xlsm

[Philippe Tulliez]

Bonjour,
Plusieurs contributeurs de ce forum dont je fais partie n'ouvrent pas les fichiers joints
En publiant votre code vous augmenteriez vos chances d'obtenir une réponse.

[shaki]

Bonsoir Philippe et merci pour l 'information.

voilà le 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
19
20
21
22
23
 
Dim DL%, L%, i%, j%, Tablo, T, Tsplit1, Tsplit2
DL = [B10000].End(xlUp).Row                     ' Dernière ligne ou mettre la dernière ligne désirée
Tablo = Range("B1:B" & DL)                      ' Plage dans array
ReDim T(1 To UBound(Tablo), 1 To 100)           ' T : array de sortie
L = 1                                           ' Init 1ere ligne écriture en sortie
For i = 1 To UBound(Tablo)
    If Tablo(i, 1) <> "" Then
        If Tablo(i, 1) Like "*:*" And Tablo(i, 1) Like "*-*" Then ' La chaine doit contenir ":" et "-"
            Tsplit1 = Split(Tablo(i, 1), ":")   ' Découpage avec séparateur ":"
            T(L, 1) = Tsplit1(0)                ' rangement du produit
            Tsplit2 = Split(Tsplit1(1), " - ")  ' Découpage avec séparateur " - "
            For j = 0 To UBound(Tsplit2)        ' Rangement des nombres
                T(L, j + 2) = Tsplit2(j)
            Next j
            L = L + 1                           ' Prochaine ligne
        End If
    End If
Next i
'Restitution
[D:ZZ].ClearContents
Application.ScreenUpdating = False
[D3].Resize(UBound(T, 1), UBound(T, 2)) = T     ' Array de sortie dans cellules

klorane

[deedolith]

Salut,

Tu assignes les cases de ton tableau de variant avec le résultat de fonction renvoyant ... des chaînes.
Donc tu obtiens ... des chaînes.
Il n'y a pas de magie de ce coté la (concordance des types / sous types), ça se voit avec des espions.

Tente de faire des conversions.
Exemple:

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
20
21
22
23
24
Public Sub Sample()
    Const Data As String = "chaine:1"
 
    Dim SousChaines As Variant
    SousChaînes = Split(Data, ":")
 
    Dim Resultat() As Variant
    ReDim Resultat(1 To 2)
 
    Dim i As Integer
    i = 1
 
    Dim Item As Variant
    For Each Item In SousChaines
        On Error GoTo Error
        Resultat(i) = CDbl(SousChaines(i))      '// Resultat(i) est un double
        On Error GoTo 0
        i = i + 1
    Next
Exit Sub
Error:
    Resultat(i) = SousChaine(i)     '// Resultat(i) est une chaîne
    Resume Next
End Sub

PS: Le sucre syntaxiques pour déclarer les variables, c'est pas top.

[umfred]

1. pourquoi il y a un caractère 160 dans tes données ?
2. un replace de ce caractère par un autre ne peut pas résoudre le problème?

[Franc]

Salut, ajoute un Replace ici:

Code :

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

1
2
Tsplit1(1) = Replace(Tsplit1(1), Chr(160), " ") 
Tsplit2 = Split(Tsplit1(1), " - ")

[shaki]

Un grand merci pour votre aide.

Franc, j'ai ajouté les lignes et ca fonctionne super maintenant.

Un grand merci pour le coup de main

Bon week end à tous

Klorane