Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Qui peut m'aider

Qui peut m'aider

18 réponses
Avatar
Pascal
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "=DATE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "=DATE(ANNEE(" & Adr & ");5;1);" & _
Adr & "=DATE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "=DATE(ANNEE(" & Adr & ");7;14);" & _
Adr & "=DATE(ANNEE(" & Adr & ");8;15);" & _
Adr & "=DATE(ANNEE(" & Adr & ");11;1);" & _
Adr & "=DATE(ANNEE(" & Adr & ");11;11);" & _
Adr & "=DATE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement un
message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
h2so4
bonjour

je pense que Cell est un mot réservé. et tu devrais faire les changements
suivants ( pas testé):

Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)
'--------------
Dim myCell As Range
'-------------
Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
'--------------------
For Each myCell In [Tablo]
If myCell >= [VACDEB] And myCell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
'--------------
Next


--

h2so4
play triogical at http://www.triogical.com
"Pascal" wrote in message
news:460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then Cell.Interior.ColorIndex
4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com











Avatar
h2so4
c'est pas ça !

que sont vacdeb et vacfin ?

ce que tu cherches à faire est changer la couleur des cellules se trouvant
entre 2 limites ? est-ce bien cela ? les limites sont-elles des n° de
colonne ou des n° de ligne ?

je pense que le test pourrait être le suivant :

For Each Cell In [Tablo]
If Cell.row >= [VACDEB].row And Cell.row <= [VACFIN].row Then
Cell.Interior.ColorIndex
4


--

h2so4
play triogical at http://www.triogical.com
"h2so4" wrote in message
news:8QqPh.95562$
bonjour

je pense que Cell est un mot réservé. et tu devrais faire les changements
suivants ( pas testé):

Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)
'--------------
Dim myCell As Range
'-------------
Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
'--------------------
For Each myCell In [Tablo]
If myCell >= [VACDEB] And myCell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
'--------------
Next


--

h2so4
play triogical at http://www.triogical.com
"Pascal" wrote in message
news:460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex 4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com















Avatar
Pascal
merci
pas cela non plus
"h2so4" a écrit dans le message de news:
8QqPh.95562$
bonjour

je pense que Cell est un mot réservé. et tu devrais faire les changements
suivants ( pas testé):

Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)
'--------------
Dim myCell As Range
'-------------
Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
'--------------------
For Each myCell In [Tablo]
If myCell >= [VACDEB] And myCell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
'--------------
Next


--

h2so4
play triogical at http://www.triogical.com
"Pascal" wrote in message
news:460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex 4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:43:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:54:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
JLuc
*Bonjour LSteph*,

C'est quoi, cet utilitaire ? Tu le trouve où ?
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.



Trouvé et installé ;-)

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O


Avatar
Jacky
Re....
Regarde ici:
http://cjoint.com/?dFpbleTJsi

--
Salutations
JJ


"Pascal" a écrit dans le message de news:
460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then Cell.Interior.ColorIndex
4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com











Avatar
Pascal
Ok merci mais ici VACDEB et VACFIN sont sur une autre feuilles et de a2 à
a10 et de b2 à b10

Pascal

"Jacky" a écrit dans le message de news:
%
Re....
Regarde ici:
http://cjoint.com/?dFpbleTJsi

--
Salutations
JJ


"Pascal" a écrit dans le message de news:
460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex 4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-2, 31/03/2007
Analyse le : 31/03/2007 17:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-2, 31/03/2007
Analyse le : 31/03/2007 17:53:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
Jacky
Re...
Regarde dans l'autre fil

--
Salutations
JJ


"Pascal" a écrit dans le message de news:
460e83dd$0$25909$
Ok merci mais ici VACDEB et VACFIN sont sur une autre feuilles et de a2 à
a10 et de b2 à b10

Pascal

"Jacky" a écrit dans le message de news:
%
Re....
Regarde ici:
http://cjoint.com/?dFpbleTJsi

--
Salutations
JJ


"Pascal" a écrit dans le message de news:
460e321c$0$27412$
cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex 4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai
régulièrement un message d'erreur soit Bloc If sans if soit Next
sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-2, 31/03/2007
Analyse le : 31/03/2007 17:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-2, 31/03/2007
Analyse le : 31/03/2007 17:53:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com













Avatar
LSteph
...avant c'était cel et tout d'un coup cela devient Cell effectivement
c'est un mot réservé
Il serait bien que le sujet ne change pas à chaque échange de post.

lSteph

cela me renvoie incompatiblité de type sur le ligne
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then Cell.Interior.ColorIndex
4
Je comprends rien

"LSteph" a écrit dans le message de news:

Re, Bonjour,

Et bien ainsi cela va fort bien!
Juste remettre le 4 au bout de la ligne.

Pour te faciliter la lecture de blocs consécutifs
For If With
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.

Cordialement.


lSteph

Excuse moi je dois rien comprendre alors
Voilà le code complet
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range("Tablo")
End Sub

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

Plage.Select
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With
For Each Cell In [Tablo]
If Cell >= [VACDEB] And Cell <= [VACFIN] Then
Cell.Interior.ColorIndex = 34
Next




Plage.Range("A3").Select
End Sub 'fs


"LSteph" a écrit dans le message de news:

Bonjour,

on a déjà répondu hier, sinon donne le code complet,depuis le haut du
module jusqu'à End Sub il y avait peut^etre autre chose.

A priori il y a des variables non définies,
c, cel...

J'en répète mon post ce qui reprend aussi ce qu'on posté
mes petits camarades, mais faut il insister:

Tu dois choisir
If ...then... (sur une seule ligne pas de End IF)

ou bien

if ...Then
....'(instrucion à la ligne)
End If

ou encore

If ... then
...
else
...
end if

@+

lSteph

Et non toujours end if sans bloc if
"Alain" a écrit dans le message de news:
460e1d47$0$5092$
Bonjour,


For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

' à ajouter ici le end if

End If

Next



"Pascal" a écrit dans le message de news:
460e1a00$0$27405$
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "ÚTE(ANNEE(" & Adr & ");1;1);" & _
Adr & "=" & Paques & "+1;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");5;8);" & _
Adr & "=" & Paques & "+39;" & _
Adr & "=" & Paques & "+50;" & _
Adr & "ÚTE(ANNEE(" & Adr & ");7;14);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");8;15);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;1);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");11;11);" & _
Adr & "ÚTE(ANNEE(" & Adr & ");12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)>6)"
.FormatConditions(2).Interior.ColorIndex = 22
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Adr & "<>0;JOURSEM(" & Adr & ";2)=1)"
.FormatConditions(3).Interior.ColorIndex = 22
End With

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34


Next
Plage.Range("A3").Select
End Sub '
Tout va bien jusqu'au For Each cel In [VACDEB] j'ai régulièrement
un message d'erreur soit Bloc If sans if soit Next sans For.
Quelqu'un voit-il
Merci
Pascal





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:21:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:45:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 10:49:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



---

Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:10:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:12:20
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 11:49:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000729-1, 30/03/2007
Analyse le : 31/03/2007 12:04:11
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com











1 2