A voir également:
- Selectionner une plage de cellules
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Sélectionner texte pdf - Guide
- Comment faire une liste déroulante dans excel à partir d'une plage nommée ? - Guide
2 réponses
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
5 févr. 2014 à 14:31
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)
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
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