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 !