problem macro

[Pascal]

Bonjour le Forum,
j'ai un pb sur la macro suivante:

Sub copier_colonne()
Range('C8:C21').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('evolution').Select
Range('B3').Select
ActiveSheet.Paste
End Sub

Au faite il s'agit de copier un tableau (C8:21) d'une feuille et le coller sur une autre feuille 'evolution';
Mon problème c que je veux que ma macro puisse coller sur la colonne qui suit la colonne B si celle ci contient des infos. (donc il faut changer la ligne: Range('B3').select), je pense..

 

[CBernardT]

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).Column + 1
Sheets('Feuil1').Range('C8:C21').Copy Sheets('evolution').Cells(3, Col)
End If
End Sub

Cordialement

Bernard

 

[Pascal]

Bonjour CBernardT, le forum,

C'est PARFAIT

Merci
@+