La méthode Select de la classe Range a échoué

Bonjour,

J'ai un problème d'exécution, "La méthode Select de la classe Range a échoué" . Par quoi est ce que je pourrais remplacer ça en une seule ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10

With ShDonnees   .Cells(2, Nbc + 1).FormulaR1C1 = "=NETWORKDAYS(RC[-3],RC[-4],R2C" & CStr(Nbc1) & ":R12C" & CStr(Nbc1) & ")" 'les deux lignes suivantes en une seule ligne .Cells(2, Nbc + 1).Select Selection.AutoFill Destination:=.Range(.Cells(2, Nbc + 1), .Cells(Nbl, Nbc + 1))   End With

---

Merci d'avance pour votre aide

Bonjour,
L'utilisation de la méthode Select est à proscrire de même que l'utilisation de l'objet Selection en tous les cas dans ce cas de figure.
Pour insérer une formule sur plusieurs lignes, il u a plus simple que la méthode AutoFill
A lire Ecrire une formule dans Excel à l'aide d'une procédure VBA

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pour insérer une formule sur plusieurs lignes, il u a plus simple que la méthode AutoFill

---

Bonjour,

Merci beaucoup pour ce tuto, il y avait en effet plus simple qui me regroupe mes trois lignes en une seule, comme par exemple :

Code:

---

1 2 3 4 5 6 7

With ShDonnees   .Range(.Cells(2, Nbc + 1), .Cells(Nbl, Nbc + 1)).FormulaR1C1 = "=NETWORKDAYS(RC[-3],RC[-4],R2C" & CStr(Nbc1) & ":R12C" & CStr(Nbc1) & ")"   End With

---

Merci

Bonjour,
Ravi d'avoir pu t'aider.