bonjour,
je souhaite additionner dans une colonne les jours de semaine travaillés
sans comptabiliser ni les WE ni surtout les jours fériés.
j'au utilisé cette fonction
=SI(OU(JOURSEM(C12;2)>6;C12=fériés);B11;1+B11)
mais il m'est retourné un message d'erreur #valeur#
"fériés" représente la zone de cellules où se trouve répertorié tous les
jours fériés d'une année.
où ai je fais une erreur?!
c12 = le jour du calendrier
b11 = la cellule supérieur à la cellule active
Bonjour, oui.. ..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce n'est pas comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then MsgBox "Utilitaire d'analyse installé" Else MsgBox "Utilitaire d'analyse pas installé" chemin = "" For Each a In AddIns If InStr(a.Path, "Analyse") > 0 Then chemin = a.Path Exit For End If Next a If chemin <> "" Then AddIns.Add(chemin & "ANALYS32.XLL").Installed = True End If End If
Cordialement JB
Bonjour,
oui..
..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce
n'est pas
comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135662206.227922.93900@g43g2000cwa.googlegroups.com...
Bonjour,
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit
pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then
MsgBox "Utilitaire d'analyse installé"
Else
MsgBox "Utilitaire d'analyse pas installé"
chemin = ""
For Each a In AddIns
If InStr(a.Path, "Analyse") > 0 Then
chemin = a.Path
Exit For
End If
Next a
If chemin <> "" Then
AddIns.Add(chemin & "ANALYS32.XLL").Installed = True
End If
End If
Bonjour, oui.. ..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce n'est pas comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then MsgBox "Utilitaire d'analyse installé" Else MsgBox "Utilitaire d'analyse pas installé" chemin = "" For Each a In AddIns If InStr(a.Path, "Analyse") > 0 Then chemin = a.Path Exit For End If Next a If chemin <> "" Then AddIns.Add(chemin & "ANALYS32.XLL").Installed = True End If End If
Avec ce travail commun nous savons (de Marseille, oeuf corse :-D) maintenant installer les utilitaires complémentaires s'ils ne sont pas actifs sur un poste, je ne vois donc plus d'obstacle à leur utilisations... D'autres arguments (de bonne foie SVP :->) Michel ?
Nota : ne pas oublier que "SES" besoins ne sont pas forcément "LES" besoins de tous, et que chacun peut avoir envie d'utiliser les fonctionnalitées offertes par Excel sans avoir besoin de plonger (voire de se noyer :-D) dans du code systématiquement, surtout si ça existe... D'où la naissance du club des AMIS* ;-)
Il est certain que personne n'a besoin de TOUTES les fonctions d'Excel à un instant T, pourtant telle fonction manquerait à telle personne si elle n'existait pas
---------------- *AMIS : Anti Macros Inutilements Superfétatoires
ceux qui sont contre les AMIS sont des MECHANTS Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
;-))))))))))
Bonne fêtes de fin d'années à tous, AMIS ou MECHANTS :-D
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
Le 27/12/2005 09:47 vous avez écrit... :
Bonjour, oui.. ..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce n'est pas comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then MsgBox "Utilitaire d'analyse installé" Else MsgBox "Utilitaire d'analyse pas installé" chemin = "" For Each a In AddIns If InStr(a.Path, "Analyse") > 0 Then chemin = a.Path Exit For End If Next a If chemin <> "" Then AddIns.Add(chemin & "ANALYS32.XLL").Installed = True End If End If
Avec ce travail commun nous savons (de Marseille, oeuf corse :-D)
maintenant installer les utilitaires complémentaires s'ils ne sont pas
actifs sur un poste, je ne vois donc plus d'obstacle à leur
utilisations... D'autres arguments (de bonne foie SVP :->) Michel ?
Nota : ne pas oublier que "SES" besoins ne sont pas forcément "LES"
besoins de tous, et que chacun peut avoir envie d'utiliser les
fonctionnalitées offertes par Excel sans avoir besoin de plonger (voire
de se noyer :-D) dans du code systématiquement, surtout si ça existe...
D'où la naissance du club des AMIS* ;-)
Il est certain que personne n'a besoin de TOUTES les fonctions d'Excel à
un instant T, pourtant telle fonction manquerait à telle personne si
elle n'existait pas
----------------
*AMIS : Anti Macros Inutilements Superfétatoires
ceux qui sont contre les AMIS sont des MECHANTS
Macroteurs
Espérants
Cacher (leur)
Humiliation (en)
Avilissant
Nos
Trucs
Surprenants
;-))))))))))
Bonne fêtes de fin d'années à tous, AMIS ou MECHANTS :-D
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
Le 27/12/2005 09:47 vous avez écrit... :
Bonjour,
oui..
..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce
n'est pas
comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135662206.227922.93900@g43g2000cwa.googlegroups.com...
Bonjour,
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit
pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then
MsgBox "Utilitaire d'analyse installé"
Else
MsgBox "Utilitaire d'analyse pas installé"
chemin = ""
For Each a In AddIns
If InStr(a.Path, "Analyse") > 0 Then
chemin = a.Path
Exit For
End If
Next a
If chemin <> "" Then
AddIns.Add(chemin & "ANALYS32.XLL").Installed = True
End If
End If
Avec ce travail commun nous savons (de Marseille, oeuf corse :-D) maintenant installer les utilitaires complémentaires s'ils ne sont pas actifs sur un poste, je ne vois donc plus d'obstacle à leur utilisations... D'autres arguments (de bonne foie SVP :->) Michel ?
Nota : ne pas oublier que "SES" besoins ne sont pas forcément "LES" besoins de tous, et que chacun peut avoir envie d'utiliser les fonctionnalitées offertes par Excel sans avoir besoin de plonger (voire de se noyer :-D) dans du code systématiquement, surtout si ça existe... D'où la naissance du club des AMIS* ;-)
Il est certain que personne n'a besoin de TOUTES les fonctions d'Excel à un instant T, pourtant telle fonction manquerait à telle personne si elle n'existait pas
---------------- *AMIS : Anti Macros Inutilements Superfétatoires
ceux qui sont contre les AMIS sont des MECHANTS Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
;-))))))))))
Bonne fêtes de fin d'années à tous, AMIS ou MECHANTS :-D
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr
Le 27/12/2005 09:47 vous avez écrit... :
Bonjour, oui.. ..t il faut le chemin complet et aussi je crois d'abord l'ajouter quand ce n'est pas comme peut l'être l'utilitaire d'analyse" une complémentaire déjà présente:
Sur mon poste AddIns.Add("Analys32.xll").Installed = True ne suffit pas. Il faut spécifier le chemin.
If AddIns("Utilitaire d'analyse").Installed = True Then MsgBox "Utilitaire d'analyse installé" Else MsgBox "Utilitaire d'analyse pas installé" chemin = "" For Each a In AddIns If InStr(a.Path, "Analyse") > 0 Then chemin = a.Path Exit For End If Next a If chemin <> "" Then AddIns.Add(chemin & "ANALYS32.XLL").Installed = True End If End If
