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.

[BENNASR]

Bonsoir
je crois que ton problème vient de la dernière ligne
désactive cette instruction et voir le résultat :

Code :

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

Sheets("Dash").Activate

[nonesofar]

Hello,

Merci pour ton aide.

Je pense pas j'ai l'erreur sur cette ligne.

Code :

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

Set maPlage = Range(Cells(1, 1), Cells(DernLigne, DernColonne))

En fait il refuse de mettre

Code :

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

ws.range

[BENNASR]

essayer de remplacer par ça :

Code :

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

1
2
3
4
5
6
With ws
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"
End With

remplacer ws.activate par : with ws
n'oublier pas d'ajouter un point devant la range et un point devant cells

[nonesofar]

Re,

Pas mieux avec le with, j'ai le même code erreur. Je comprends pas bien le probléme, ta solution me semble ok.

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
 
Dim DernLigne As Long, DernColonne As Integer
Dim ws As Worksheet
Dim maPlage As Range
 
'ActiveWorkbook.Names("data_range").Delete
 
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
With ws
    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"
End With

[BENNASR]

te manque un virgule mon ami !!

Code :

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

Set maPlage = .Range(Cells(1, 1), .Cells(DernLigne, DernColonne))