XL 2016 Cellule contenant des espaces

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Aldonanou

XLDnaute Junior
Bonjour,

Il y a quelques années j'ai réalisé un programme pour le traitement de plusieurs caisses enregistreuses (A à V) avec l'analyse d'une information sur un numéro d'autorisation. Il s'agissait d'automatiser la récupération d'une vingtaine de fichiers .txt, de les copier dans un seul fichier Excel et de faire des états en fonction des données récupérées. Jusque là tout fonctionnait correctement sauf que depuis quelques temps les fichiers .txt contiennent en 1ère ligne en colonne J de la caisse G (par exemple) six espaces (trop drôle !). Le traitement s'effectue correctement toutes les autres fois.

Dim montant1 As Long ' Col G
Dim numAuto As String ' Col J doit avoir une valeur non vide

Etant précisé que numAuto (colonne J) ne pouvait pas avoir de valeur vide.

' numAuto = getnumAutorisation(chaine) changement car l'autorisation peut être alphanumérique
numAuto = getcodeReponse(chaine)

J'avais, par la suite, modifié mon programme car il pouvait y avoir une auto alphanumérique,

Function getcodeReponse(ByVal chaine As String) As Boolean

Dim tempArray() As String
Dim taille As Integer
tempArray = Split(chaine, ";")
taille = UBound(tempArray)
If (CInt(tempArray(7)) = 0) Then
getcodeReponse = True
Else
getcodeReponse = False
End If

End Function

Du coup je ne sais plus comment faire ?

Quelqu'un aurait-il une idée ?

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour