Problème pour convertir des données en VBA

Bonjour à vous toutes et tous,

Je reçois un fichier brut en PDF avec des données chiffrées sous forme de tableau.
Après avoir copier / coller ces données dans un Excel, j'ai besoin de les convertir car elles sont toutes sur une colonne par ligne.
Je passe par une macro car il y a beaucoup de lignes. Le principe est simple. En fonction du nombre de caractère contenu dans chaque ligne, la conversion (en largeur fixe), ne se fait pas selon les mêmes critères. Voici donc mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub DataTreatmentTVAD()   Dim LRTVAD1 As Integer, LRTVAD2 As Integer, i As Integer, j As Integer   Application.ScreenUpdating = False   With Sheets("Traitement TVA déductible")   LRTVAD1 = .Cells(.Rows.Count, 1).End(xlUp).Row   For i = To LRTVAD1 j = Len(Trim(.Cells(i, 1).Value))   If j < 35 Then .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(26, 1), Array(42, 1), Array(59, 1)), TrailingMinusNumbers:=True ElseIf j > 35 And j > 43 Then .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(26, 1), Array(37, 1), Array(58, 1)), TrailingMinusNumbers:=True Else .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(24, 1), Array(39, 1), Array(58, 1)), TrailingMinusNumbers:=True End If   Next i   End With   Application.ScreenUpdating = True   End Sub

---

Je rencontre déjà un premier problème. Sur ma première cellule (A1), la valeur j est de 71. si je tape la formule

Code:

---

=NBCAR(SUPPRESPACE(A1))

---

en cellule B1, il me donne 30. Quelqu'un peut-il m'expliquer ce que j'ai mal codé SVP ?
Par ailleurs, et là c'est bloquant, quand je lance la macro, voilà le message d'erreur rencontré : "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet".
Où est-je fait l' (les) erreur(s) ?
Je vous remercie par avance pour votre aide et vous souhaite une agréable journée.

J'ai réussi à régler le deuxième problème.
Par contre je ne comprends toujours pas pourquoi ma variable "j" est toujours égal à 71 alors qu'écrire la formule à la main dans Excel me ramène les valeurs que j'attends (30, 32, 40, etc...).
Quelqu'un pourrait-il m'aider SVP ?
Merci d'avance.

Salut !

Je suis un gros débutant en VBA mais si tu met un "Espion" sur i ou j, vérifie si les valeurs changent (surtout pour i).
Ensuite, si tout cela fonctionne essaye avec les fonction: exemple, ".Cells(i, 1).value" puis Trim(.Cells(i, 1).Value). C'est pour voir d'où le problème peut venir.

D'autre pars, quand tu colle ton pdf. Tu as un truc qui s'appelle "Assitant de l'importation de texte". Il te permet de découper exactement en fonction du nombre de caractère. Il doit être possible de l'utiliser en VBA.

Cordialement,

Pierre =D

Bonjour,
ton code n'est pas interprétable puisque la ligne :

Code:

---

For i = To LRTVAD1

---

est incorrecte. Il faut surement mettre quelque chose comme :

Code:

---

For i = 1 To LRTVAD1

---

Pour trouver une erreur, il faut avoir le code qui génère cette erreur et non un code qui ressemble à celui qui plante.

Par pure curiosité, ça veut dire quoi LRTVAD1 ? Tu n'as rien trouvé de plus explicite comme nom de variable ? N'oublie pas que tu n'écris pas uniquement pour t'y retrouver, mais aussi pour permettre à d'autres de s'y retrouver. Ou bien renonce à demander de l'aide sur les forums ;)

Un numéro de ligne doit être déclaré en Long et non en Integer. La fonction Len renvoie un Long. Donc j doit être de type Long.