Affecter une plage de cellule

[karl]

Salut au forum,

Je désire sélectionner une plage nommé Plage, dont la première cellule est la variable DebutPlage et la dernière est la variable FinPlage

voici le début du code, mais je sèche.

Sub Essai()

Application.ScreenUpdating = False

NomLocataire = ComboBoxNomLocataire
Worksheets(NomLocataire).Select

Columns(5).Find("*", , , , , xlPrevious).Offset(1, 0).Select 'Sélectionne la dernière cellule de ma plage

DebutPlage = Range("A9").Address
FinPlage = ActiveCell.Address
Plage= ??????

etc.....

End sub

Merci de votre aide.
@+ Karl

 

[Michel_M]

Bonjour Karl et le forum,

Au lieu de:
Columns(5).Find("*", , , , , xlPrevious).Offset(1, 0).Select
DebutPlage = Range("A9").Address
FinPlage = ActiveCell.Address
Plage= ??????



Essaies ceci (il faut que E9 ne soit pas vide):

ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=Feuil1!$A$9:" & (Columns(5).Find("", [E9], , , xlByRows).Address)

 

[patrice]

Bonjour karl,
En cherchant dans l'aid, je trouve :
Cet exemple montre comment définir le nom « monNom » pour la cellule A1 de Feuil1.

ActiveWorkbook.Names.Add Name:="monNom", RefersToR1C1:= "=Feuil1!R1C1"
ou "=Feuil1!R1C1:R5C3" pour "A1:C5"

Je ne sais pas avec le format A1:B9
A+

 

[karl]

Michel, Patrice,

Merci pour l'info, je vais pouvoir avancer un peu plus loin.

@+ Karl