Bonjour à tous !
Je souhaiterai automatiser un collage transposé dans une feuille excel.
Pour commencer, j'ai enregistré la manip' avec l'enregistreur et j'ai obtenu ça :
Cependant, j'aurais besoin que la ligne dans laquelle sont collées les données soit ma première ligne vide dans le tableau...
donc remplacer
par quelque chose d'autre.
J'ai essayé de remplacer par
Mais ça ne marche pas...
D'où mes deux questions liées :
- pourquoi ça ne marche pas ?
- comment faire pour que ça marche ?
Merci d'avance !
Je souhaiterai automatiser un collage transposé dans une feuille excel.
Pour commencer, j'ai enregistré la manip' avec l'enregistreur et j'ai obtenu ça :
Code:
Sub test()
'
' test Macro
'
'
Range("H17:H24").Select
Selection.Copy
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Cependant, j'aurais besoin que la ligne dans laquelle sont collées les données soit ma première ligne vide dans le tableau...
donc remplacer
Code:
Range("A9").Select
par quelque chose d'autre.
J'ai essayé de remplacer par
Code:
Range("A" & .Rows.Count).End(xlUp).Row + 1
Mais ça ne marche pas...
D'où mes deux questions liées :
- pourquoi ça ne marche pas ?
- comment faire pour que ça marche ?
Merci d'avance !