Discussion :

[nonesofar]

Bonjour à tous,

Petite question j'aimerais nommer une range via ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Dim DernLigne As Long, DernColonne As Integer
Dim ws As Worksheet
Dim maPlage As Range
 
Set ws = Sheets("Dbase")
 
'dernière ligne colonne A
DernLigne = ws.Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = ws.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
'activation de la feuille de donnée
ws.Activate
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, DernColonne))
'Ce que je souhaite faire mais j'ai le message d'erreur ci-dessous : Set maPlage = ws.Range(Cells(1, 1), Cells(DernLigne, DernColonne))
 
maPlage.Name = "data_range"
 
'activation de la page utilisateur
Sheets("Dash").Activate

Le message d'erreur en question.



Pour éviter cela je fais un "activate" avant, mais j'aime pas trop faire des activates, alors si je peux m'en passer.

Si vous avez des idées sur le sujet?

Merci d'avance.