Discussion :

[huître]

bonjour à toute et à tous

j'ai un soucis je ne vois pas comment convertir la formule nb.jours.ouvrés en vba

voilà le problème j'ai une matrice et je souhaite inserer une dernière colonne calculant le délai entre deux date

le problème c'est que le tableau n'a pas de nombre défini en terme de colonnes

donc voilà ce que j'ai pu faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub delai()
Dim derlg As Long
Dim dercol As Long
 
derlg = Range("A" & Rows.Count).End(xlUp).Row
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
dercol = Application.WorksheetFunction.CountA(Selection) + 1
 
For i = 2 To derlg
Cells(i, dercol).FormulaR1C1 = _
"NB.JOURS.OUVRES(RC[-1],RC[-23],'gestion JF'!RC[-26]:R[8]C[-24])"
Next i
 
End Sub

voilà ça ne marche pas

merci d'avance

la macro ne m'affiche aucune erreur pendant l'execution du programme mais je n'ai aucun résultat^^

[Jean-Philippe André]

salut,

si tu attribues une formule a une cellule, il faut faire debuter cette formule par un "="

Code :

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

1
2
Cells(i, dercol).FormulaR1C1 = _
"=NB.JOURS.OUVRES(RC[-1],RC[-23],'gestion JF'!RC[-26]:R[8]C[-24])"

[huître]

Ce type d'erreurs me fais tellement rire............................................................................................................................................................................................................................................................................................................................ou pleurer

[huître]

finalement je vais rajouter une difficulté supplèmentaire

Code :

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

 "=NB.JOURS.OUVRES(RC[-1],RC[-23],'gestion JF'!RC[-26]:R[8]C[-24])"

Je veux appliquer cette macro sur un autre fichier qui ne contient pas la feuille gestion JF

elle se trouve dans un autre fichier que je dois ouvrir en même temps

voilà merci d'avance

[Jean-Philippe André]

salut,
l'appel a des classeurs differents peut se faire en indiquant le nom du fichier entre quotes 'monfichier.xls' suivi de la feuille etc.

[huître]

j'ai essayé et malheureusement ça n'a pas marché

Code :

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

1
2
Cells(i, dercol).FormulaR1C1 = _
"=NB.JOURS.OUVRES(RC[-1],RC[-23],'rmcaffret1.xls'!'gestion JF'RC[-2]:R[6]C[-1])"

pourquoi ça ne marche pas