1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon... est
ce lié à ce format conditionnel ?
Merci d'avance
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon... est
ce lié à ce format conditionnel ?
Merci d'avance
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon... est
ce lié à ce format conditionnel ?
Merci d'avance
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise....
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" a écrit dans le message de news:
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160770646.826387.323770@m7g2000cwm.googlegroups.com...
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" a écrit dans le message de news:
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" a écrit dans le message de news:
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1160770646.826387.323770@m7g2000cwm.googlegroups.com...
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB
1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
MErci ca marche pour les jours ouvrés
Une idée pour le compte des cellules grises ?
Merci encore
"JB" a écrit dans le message de news:
Bonsoir,
Avec Macro complémentaire Utilitaire Analyse:
Tableur: n = [NB.JOURS.OUVRES(A1,B1)]
Variables:
d = #1/1/2006#
f = Date
d = #1/1/2006#
f = Date
z = Evaluate("NB.JOURS.OUVRES(""" & d & """,""" & f & """)")
Sans mocro complémentaire avec fonction perso:
Function NbJoursOuvres(début, fin)
Dim i As Integer, d As Long, nfériés As Integer, témoin As Boolean
Dim fériés(1 To 11)
an = Year(début)
If début > fin Then
NbJoursOuvres = 0
Else
paques = DateSerial(an, 3, 23) + ((2 * (an Mod 4) + (4 * (an Mod 7)
+ _
(6 * (((19 * (an Mod 19)) + 24) Mod 30) + 5))) Mod 7) + _
((19 * (an Mod 19) + 24) Mod 30) - 1
fériés(1) = DateSerial(an, 1, 1)
fériés(2) = DateSerial(an, 5, 1)
fériés(3) = DateSerial(an, 5, 8)
fériés(4) = DateSerial(an, 7, 14)
fériés(5) = DateSerial(an, 8, 15)
fériés(6) = DateSerial(an, 11, 1)
fériés(7) = DateSerial(an, 11, 11)
fériés(8) = DateSerial(an, 12, 25)
fériés(9) = paques + 1
fériés(10) = paques + 39
fériés(11) = paques + 50
NbJoursOuvres = 0
For d = début To fin
témoin = False
For i = 1 To 11
If d = fériés(i) Then témoin = True
Next i
If Weekday(d) <> 1 And Weekday(d) <> 7 And Not témoin Then
NbJoursOuvres = NbJoursOuvres + 1
Next d
End If
End Function
Cordialement JB1- Comment fait t'on via VBA pour connaitre le nombre de jours ouvrés ?
2- J'ai une macro qui calcul le nombre de cellule de couleurs x jaunes x
vertes... par contre j'ai mis un format conditionnel de couleur grise.. ..
sur certaine cellule.... or le nombre de cellule grises n'est pas bon...
est
ce lié à ce format conditionnel ?
Merci d'avance
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
## Function CompteFC(champ As Range, noCondition)
C'est de toi cette fonction ?
J'ai déjà vu ça ici et il y a des années mais c'était pas toi l 'auteur ----
## Il a dit :
Je pécise:
¤¤ J'ai répondu :
Effectivement ça fait prout !
## Il a dit :
1- Cette fonction, je l'ai écrite en partant des mots cls de l'aide
VBA
¤¤ J'ai répondu :
Comme il est amusant !
## Il a dit :
2- Cette fonction a déjà dû être developpé par X personnes
¤¤ J'ai répondu :
Sans blague ?
## Il a dit :
3- J'ai écris des fonctions bien + complexes que celle ci
¤¤ J'ai répondu :
On dégouline tous d'admiration !
## Il a dit :
A ma connaissance, cette
fonction n'a pas sû etre developpé par beaucoup de personnes
¤¤ J'ai répondu :
Il faudra aussi revoir la syntaxe française !
## Il a pas (encore) dit :
3- Je suis le meilleur et le plus beau
¤¤ J'ai déjà répondu :
En faisant quelques recherches/comparaisons, on s'aperçoit rapidement que tu
es passé maître dans l'art du copier/coller et pompage de codes/formules
## Il a dit :
Je pécise:
¤¤ J'ai répondu :
Effectivement ça fait prout !
## Il a dit :
1- Cette fonction, je l'ai écrite en partant des mots cls de l'aide
VBA
¤¤ J'ai répondu :
Comme il est amusant !
## Il a dit :
2- Cette fonction a déjà dû être developpé par X personnes
¤¤ J'ai répondu :
Sans blague ?
## Il a dit :
3- J'ai écris des fonctions bien + complexes que celle ci
¤¤ J'ai répondu :
On dégouline tous d'admiration !
## Il a dit :
A ma connaissance, cette
fonction n'a pas sû etre developpé par beaucoup de personnes
¤¤ J'ai répondu :
Il faudra aussi revoir la syntaxe française !
## Il a pas (encore) dit :
3- Je suis le meilleur et le plus beau
¤¤ J'ai déjà répondu :
En faisant quelques recherches/comparaisons, on s'aperçoit rapidement que tu
es passé maître dans l'art du copier/coller et pompage de codes/formules
## Il a dit :
Je pécise:
¤¤ J'ai répondu :
Effectivement ça fait prout !
## Il a dit :
1- Cette fonction, je l'ai écrite en partant des mots cls de l'aide
VBA
¤¤ J'ai répondu :
Comme il est amusant !
## Il a dit :
2- Cette fonction a déjà dû être developpé par X personnes
¤¤ J'ai répondu :
Sans blague ?
## Il a dit :
3- J'ai écris des fonctions bien + complexes que celle ci
¤¤ J'ai répondu :
On dégouline tous d'admiration !
## Il a dit :
A ma connaissance, cette
fonction n'a pas sû etre developpé par beaucoup de personnes
¤¤ J'ai répondu :
Il faudra aussi revoir la syntaxe française !
## Il a pas (encore) dit :
3- Je suis le meilleur et le plus beau
¤¤ J'ai déjà répondu :
En faisant quelques recherches/comparaisons, on s'aperçoit rapidement que tu
es passé maître dans l'art du copier/coller et pompage de codes/formules