2008-12-10 10 views

Répondre

3

Cela devrait faire l'affaire:

Public Sub selectCells() 
    Range("F3:BJ3").Select 
End Sub

modifier: pour cette matière, vous pouvez utiliser ce qui suit pour exécuter effectivement la commande « copie » pour vous aussi:

Public Sub selectCellsAndCopy() 
    Range("F3:BJ3").Select 
    Selection.Copy 
End Sub
-1

Utilisez celui-ci, il fonctionne bien.

Sub On_Click() 
    ActiveSheet.Range("A1:E1").Select 
End Sub 
Questions connexes