copier/coller lignes

[alessandro]

bon jour le forum
Je vous joins un fichier
En foglio1 mon tableau de base et en foglio2 le résultat voulu, en sachant que mon tableau de base a en réalité beaucoup plus de lignes
merci en avant
alessandro

 

[phlaurent55]

Re : copier/coller lignes

Bonjour alessandro,

avec ce code:

Sub Macro1()
Sheets(2).Cells.ClearContents
For i = 2 To Range("B65535").End(xlUp).Row + 15
    Sheets(2).Cells(i, 2) = Cells(i, 2)
    Sheets(2).Cells(i, 4) = Cells(i, 3)
    Sheets(2).Cells(i, 6) = Cells(i, 4)
Next i
End Sub

à+
Philippe

 

[alessandro]

Re : copier/coller lignes

bn jour
un gran merci
alessandro

 

[phlaurent55]

Re : copier/coller lignes

Re,

l'insertion de nouvelles colonnes se passe sur le première feuille
voir fichier joint


à+
Philippe