Problème avec un copier-coller à partir d'un fichier convert

Bonjour à tous,

Au préalable, j'avais un fichier RTF que je voulais pouvoir exploiter sous Excel : j'ai donc utilisé "Convertio" afin de le transformer en fichier Excel classique.

A présent, je souhaite simplement déplacer certaines valeurs dans des colonnes à l'aide du code ci-joint:

 
Sub File_Treatment()

'repérage début de ligne
NbLine = Cells(1, 1).End(xlDown).Offset(0, 1).End(xlUp).Row
NumArticle = 1
For NumLine = 5 To NbLine
    If Cells(NumLine, 2) = "" And Cells(NumLine + 1, 2) <> "" And Cells(NumLine + 2, 2) <> "" And Cells(NumLine + 3, 2) <> "" And Cells(NumLine + 4, 2) = "" Then
            Cells(5 + NumArticle, 3) = Cells(NumLine + 1, 2)
            Cells(5 + NumArticle, 4) = Cells(NumLine + 2, 2)
            Cells(5 + NumArticle, 5) = Cells(NumLine + 3, 2)
            NumArticle = NumArticle + 1
    End If

Next NumLine

End Sub

Malheureusement, seules mes premières lettres sont véritablement "collées". Cela marche avec des cellules Excel classiques, alors je soupçonne que ça vient de la conversion, mais je ne sais pas comment faire pour faire en sorte que le code marche...

Quelqu'un aurait-il une idée ? Cela m'aidera vraiment beaucoup !

8data.xlsm (148.41 Ko)

(Re)Bonjour,

Je poste ça pour les personnes qui auraient le même problème : J'ai réussi à m'en sortir avec la fonction Copy. L'utilisation de mon code étant ponctuelle, le rallongement du temps de traitement ne m'a pas dérangé.

Je reste néanmoins curieux. Si quelqu'un a une réponse sur la raison du problème initial, je suis preneur.

Rechercher des sujets similaires à "probleme copier coller partir fichier convert"