Re:problem macro
Bonjour Pascal et le forum,
pour déterminer la colonne libre pour coller, tu dois utiliser une variable qui te donne la colonne libre.
La macro devient :
Sub copier_colonne()
Dim Col As Byte
If Sheets('evolution').Range('B3').Value = '' Then
Sheets('Feuil1').Range('C8:C21').Copy Sheets('evolution').Range('B3')
Else
Col = Sheets('evolution').Range('IV3').End(xlToLeft).Col umn + 1
Sheets('Feuil1').Range('C8:C21').Copy Sheets('evolution').Cells(3, Col)
End If
End Sub
Cordialement
Bernard
|