Selectionner une plage de cellules

benjamin -  
 benjamin -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
benjamin
 
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