Bonjour à tous et bonjour à toi ChTi160,
En fait j'ai réussi à régler le soucis de changement de valeurs.
La macro que tu m'as créée est super. J'essaie de la faire évoluer pour copier les valeurs des cellules F4 à F21 de la feuille 1 et les copier dans la plage B7-B24 de la feuille 2. Toujours en gardant le déplacement de colonne (B, ensuite C, etc)
Le code suivant fonctionne pour coller la première dans la colonne B mais ne permet pas de décalage de colonnes. Comprends-tu pourquoi?
Sub transfert()
Dim maplage As Range
Dim col As Byte
Application.ScreenUpdating = False
With Sheets('Feuil1')
.Select
Set maplage = .Range('F4:F21')
maplage.Select
Selection.Copy
End With
With Sheets('Feuil2')
.Select
col = .Range('IV4').End(xlToLeft).Column
If col < 2 Then
col = 2
.Range(.Cells(7, col), .Cells(24, col)).Select
ActiveSheet.Paste
Else
col = .Range('IV4').End(xlToLeft).Column + 1
.Range(.Cells(7, col), .Cells(24, col)).Select
ActiveSheet.Paste
End If
End With
Sheets('Feuil1').Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Merci
Steph