Selectionner une plage de cellules

Fermé
benjamin - 5 févr. 2014 à 14:17
 benjamin - 6 févr. 2014 à 13:10
Bonsoir!!!
je lance un SOS pour la réalisation d'un programme VBA me permettant de selectionner une plage de cellules.
Il s'agit de la plage A1: A10.
Voici ce que j'avais fais
Workbooks("Tap.xlsx").Worksheets("cum").range( cells(1,1), cells(1,10)).select
mais ca marche pas.
A quoi cela peut etre du?



En plus j'ai créer une variable qui capte le numero d'une colonne que j'utilse dans ce programme:
sub a()
dim trouve1 as range
dim val
Set trouve1 = Workbooks("Tap.xlsx").Worksheets("cum").Rows(1).Cells.Find(bte1, LookIn:=xlValues, LookAt:=xlWhole)
val = trouve1.Column
Workbooks("Tap.xlsx").Worksheets("cum").Cells(4, val).Select
end sub

Mais ca marche pas!

Vrament, j'ai des problemes pour selectionner une plage de cellules dont les references de la ligne ou colonne sont inclues dans une variable


Aidez moi, s'il vous plait

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
5 févr. 2014 à 14:31
Bonjour,

Workbooks("Tap.xlsx").Worksheets("cum").range( cells(1,1), cells(1,10)).select

'selection A1:A10
Workbooks("Tap.xlsx").Worksheets("cum").Range("A1:A10").Select

'bte1 ?? vient d'ou ????
Set trouve1 = Workbooks("Tap.xlsx").Worksheets("cum").Rows(1).Cells.Find(bte1, LookIn:=xlValues, LookAt:=xlWhole)
0
Merci
J'ai apporté une petite modification au programme et j'ai obtenu ce que je voulais.
Voici ce que j'ai finalement fais
Set num=..................................
Set lig=................................
With Workbooks("Tap.xlsx").Worksheets("cum")
.Activate
Set ma_plage = .Range(.Cells(1, num), .Cells(lig, num))
End With
Ma_palge.select
0