Qui peut m'aider

Le
Pascal
Bonjour,

Voilà mon code

Plage.Select 'A Vallon MPFE
Adr$ = Selection.Range("A1").Address(0, 0)
Paques$ = _
"FRANC(DATE(ANNEE(" & Adr & ");4;JOUR(MINUTE(ANNEE(" & _
Adr & ")/38)/2+55))/7;)*7-6"
'(formule de Norbert Hetterich : renvoie la date du dimanche
'de Pâques - valide jusqu'en 2079)
With Selection
.FormatConditions.Delete
'recherche des 11 jours fériés français
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
Adr & "Ú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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4316661
Bonjour.
Ajoute :
End If
après :

If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34

Ca ira mieux.
Daniel
"Pascal" 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





Alain
Le #4316651
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" 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





Modeste
Le #4316641
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

For Each cel In [VACDEB]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34
Next
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


cette instruction sur une seule ligne !!!
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34



--
@+
;o)))

Jacky
Le #4316631
Bonjour,

Je dirai ce que l'on a déjà dit dans le message précédent.
Mais aussi C= ????????
--
Salutations
JJ


"Pascal" 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





Pascal
Le #4316611
Et non toujours end if sans bloc if
"Alain" 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" 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


LSteph
Le #4316541
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" 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" 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







Pascal
Le #4316471
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"
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" 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" 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




LSteph
Le #4316401
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"
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" 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" 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









Pascal
Le #4316381
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"
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"
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" 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" 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






JLuc
Le #4316321
*Bonjour LSteph*,

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


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

O-O

Publicité
Poster une réponse
Anonyme