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 : Sélectionner tout - Visualiser dans une fenêtre à part
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