Bonjour,
Eh bien voilà, comme quoi il n'était pas nécessaire de fournir plus de données réelles de mes annonces.
Déjà un grand merci pour ça.
Maintenant, j'ai essayé de décrypter le script et voici mes commentaires en rouge ci-dessous
Option Explicit > Je ne connais pas, de quoi s'agit-il ?
Sub transformer()
Dim ligne%, colonne%, i% > le signe % est-il équivalent à "As Long" ?
Sheets("final").Select
Cells(1, 1).CurrentRegion.Offset(1, 0).ClearContents > que signifie le CurrentRegion.Offset(1, 0) ?
ligne = 2
colonne = 1
With Sheets("initial")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If colonne = 2 And Not IsNumeric(.Cells(i, 1)) Then > je pense que tu fais ce test pour sauter une colonne dans le cas où le prix n'est pas indiqué ?
colonne = colonne + 1
End If
Cells(ligne, colonne) = .Cells(i, 1)
colonne = colonne + 1
If colonne = 10 Then
colonne = 1
ligne = ligne + 1
End If
Next
End With
End Sub
En fait , j'ai compris l'incrément de ligne/colonne, mais je ne vois pas comment s'opère la recopie de "initial" vers "final"
Merci