Selectionner une plage de cellules
benjamin
-
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
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
-
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) -
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
