Problème d'utilisation de Set dans With

Bonjour le Forum :D.

J'ai un problème avec l'utilisation de Set dans ma macro.
Quand la syntaxe de ma macro est comme suit ça fonctionne :

Code:

---

1 2 3 4 5 6 7 8

Dim MaPlage2 As Range   With Sheets("Feuil1") [...] Worksheets("Feuil2").Activate Set MaPlage2 = ActiveSheet.Range(Cells(1, 1), Cells(10, 1)) [...] End With

---

L'inconvénient est l'utilisation d'Activate et ça demande plus d'une minute d’exécution de programme (environ 3000 Activate utilisés dans la boucle). J'essai d'enlever un maximum d'Activate possible afin d'optimiser le programme et que je teste le code suivant, ça ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9

Dim MaPlage2 As Range   With Sheets("Feuil2") [...] Set MaPlage2 = .Range(Cells(1, 1), Cells(10, 1)) ' Ou alors cette syntaxe : Set MaPlage2 = Worksheets("Feuil2").Range(Cells(1, 1), Cells(10, 1)) [...] End With

---

L'erreur qui m'est indiquée est :
Pièce jointe 215489

Je ne comprends pas parce que je suis dans un With Sheets("") et je place bien un point (.) devant le .Range.
Vos conseils et suggestions seront les bienvenues! ;). Merci d'avance !

BlackMountain

Bonjour,

il est également nécessaire de placer tes points "." devant chaque Cells inclus dans ton Range

Code:

---

1 2 3 4 5 6

Dim MaPlage2 As Range   With Sheets("Feuil2") Set MaPlage2 = .Range(.Cells(1, 1), .Cells(10, 1)) [...] End With

---

Fini les activates :ptdr:

Bonjour joe.levrai et le forum :D

Ca fonctionne, avec un second ordinateur. J'ai essayé sur celui avec lequel j'ai fait le code originel et ça met la même erreur. Comme je trouvais ça étrange j'ai alors essayé avec un autre excel sur une autre bécane et TADAM 8-)!

Merci beaucoup, j'ai réussi par ce moyen a diviser par 2 mon temps d'exécution par cette petite touche supplémentaire de suppression d'Activate, qui était déjà réduite de 30 fois. Les Activates, c'est moyen en fait :?!

Bref merci beaucoup et à bientôt.