Discussion :

[aziz1015]

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

[Philippe Tulliez]

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

[aziz1015]

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 :

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

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

[Philippe Tulliez]

Bonjour,
Ravi d'avoir pu t'aider.