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.
lStephExcuse 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
@+
lStephEt 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
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.
lStephExcuse 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
@+
lStephEt 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
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" <lapless@wanadoo.fr> wrote in message
news:460e321c$0$27412$ba4acef3@news.orange.fr...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
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.
lStephExcuse 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
@+
lStephEt 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
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" <lapless@wanadoo.fr> wrote in message
news:460e321c$0$27412$ba4acef3@news.orange.fr...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
C'est quoi, cet utilitaire ? Tu le trouve où ?tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.
C'est quoi, cet utilitaire ? Tu le trouve où ?
tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.
C'est quoi, cet utilitaire ? Tu le trouve où ?tu peux utiliser un utilitaire d'indentation
SmartIndent pour ce qui me concerne va bien.
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.
lStephExcuse 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
@+
lStephEt 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
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.
lStephExcuse 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
@+
lStephEt 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
Re....
Regarde ici:
http://cjoint.com/?dFpbleTJsi
--
Salutations
JJ
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
460e321c$0$27412$ba4acef3@news.orange.fr...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
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.
lStephExcuse 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
@+
lStephEt 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
Ok merci mais ici VACDEB et VACFIN sont sur une autre feuilles et de a2 à
a10 et de b2 à b10
Pascal
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
%23atuwS5cHHA.4468@TK2MSFTNGP03.phx.gbl...
Re....
Regarde ici:
http://cjoint.com/?dFpbleTJsi
--
Salutations
JJ
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
460e321c$0$27412$ba4acef3@news.orange.fr...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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
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.
lStephExcuse 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
@+
lStephEt 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
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" <lecocosteph@frite.fr> a écrit dans le message de news:
ejxv0g3cHHA.4632@TK2MSFTNGP03.phx.gbl...
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" <lecocosteph@frite.fr> a écrit dans le message de news:
uZ9C2M3cHHA.4984@TK2MSFTNGP05.phx.gbl...
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" <alain-kac@wanadoo.fr> a écrit dans le message de news:
460e1d47$0$5092$ba4acef3@news.orange.fr...
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" <lapless@wanadoo.fr> a écrit dans le message de news:
460e1a00$0$27405$ba4acef3@news.orange.fr...
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
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.
lStephExcuse 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
@+
lStephEt 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