loulou56 | olivthill a écrit :
Pour sélectionner une plage dynamique, utiliser End(xlDown) ou End(xlRight). Par exemple :
Set rRange = Range([A1], [A1].End(xlDown))
|
Merci, j'ai essayé, mais maintenant j'ai un soucis avec la fonction copier et coller puis transposer, je comprends pas pourquoi, j'ai un message d'erreur, une idée?
Et il ne fait pas la boucle, est-elle mal programmée?
Code :
- Sub Macro2()
- '
- ' Macro2 Macro
- '
- ' Touche de raccourci du clavier: Ctrl+w
- '
- Dim i, j, x, y As Integer
- Dim vRange As Range
- x = 3
- y = 3
- i = 167
- j = 24
- While (i <> 186000)
- Set vRange = Range(Cells(i, 2), Cells(j, 2))
- ' Range(Cells(maligne, 5), Cells(maligne, macol))
- vRange.Select
- Selection.Copy
- Sheets("Feuil1" ).Select
- 'Sheets(Feuil1).Cells(x, y)
- Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
- False, Transpose:=True
- i = i + 144
- j = j + 144
- y = y + 1
- Wend
- End Sub
|
Merci de votre aide |