Bonjour à tous,
Salut Korentin, je dois surement faire quelque chose pas comme il faut, est-ce qu'il y a possibilité d'nvoyer des fichiers sur le forum ? Cela faciliterait la compréhension.
Quand je fais F8 ça passe d'une ligne à l'autre sans message d'erreur sauf quand j'ai introduit ta dernière modif comme dans le code ci-après.
Voici ce que j'ai mis dans un module :
Sub tri_des_colonnes()
ligne = 5
Do Until Range("A" & ligne).Value = ""
Worksheets(contrat_ESSAI_1.txt).Activate 'contrat_ESSAI_1.txt étant mon fichier) j'ai essayé avec et sans cette ligne
chaine = Range("A" & ligne).Value
a = Mid(chaine, 3,
b = Mid(chaine, 14, 14)
c = Mid(chaine, 37,
d = Mid(chaine, 48, 14)
e = Mid(chaine, 71,
f = Mid(chaine, 82, 14)
Range("A" & ligne).Value = a
Range("B" & ligne).Value = b
Range("C" & ligne).Value = c
Range("D" & ligne).Value = d
Range("E" & ligne).Value = e
Range("F" & ligne).Value = f
ligne = ligne + 1
Loop
End Sub
Encore merci et à +