Nommer une range dans une variable

Bonjour à tous,

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

Code:

---

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.

Pièce jointe 250028

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.

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

Code:

---

Sheets("Dash").Activate

---

Hello,

Merci pour ton aide.

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

Code:

---

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

---

En fait il refuse de mettre

Code:

---

ws.range

---

essayer de remplacer par ça :

Code:

---

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

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:

---

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

---

te manque un virgule mon ami !! :mouarf:

Code:

---

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

---

Toujours pas, même avec le changement de point.

Comprends pas en fait cela me donne la bonne dimension de plage mais sur la feuille active??

Bizarre.

Bonjour,


.Cells(1,1) dans la dernière citation de BENNASR, petit oubli de sa part je pense

je ne sais pas si c'est l'origine du problème, je n'ai pas vraiment regardé le code complet

Bonjour

Code:

---

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

---

Merci les gars, ce fichu point m'a pourri l'aprem, heureusement que vous êtes la. ahahha

Résolu :D