Qui peut m'aider

Daniel

31/03/2007 à 10:32

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

Alain

31/03/2007 à 10:35

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

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

Modeste

31/03/2007 à 10:36

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

31/03/2007 à 10:47

Bonjour,

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

"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

Pascal

31/03/2007 à 10:49

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

Bonjour,

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

Vous avez filtré cet utilisateur ! Consultez son message

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

Bonjour,

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

LSteph

31/03/2007 à 11:01

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

Pascal

31/03/2007 à 11:12

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

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

Vous avez filtré cet utilisateur ! Consultez son message

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

LSteph

31/03/2007 à 11:37

Re, Bonjour,

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

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

Cordialement.

lSteph

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

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

Vous avez filtré cet utilisateur ! Consultez son message

Re, Bonjour,

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

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

Cordialement.

lSteph

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

Pascal

31/03/2007 à 11:56

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

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

Re, Bonjour,

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

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

Cordialement.

lSteph

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

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

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

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

Vous avez filtré cet utilisateur ! Consultez son message

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

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

Re, Bonjour,

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

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

Cordialement.

lSteph

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

Sub MFC_WEFerie(Plage As Range)

Dim Cell As Range

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

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

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

Bonjour,

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

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

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

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

ou bien

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

ou encore

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

@+

lSteph

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

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

' à ajouter ici le end if

End If

Next

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

Voilà mon code

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

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

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

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

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

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

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

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

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

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

JLuc

31/03/2007 à 12:29

*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

Qui peut m'aider

10 réponses

Veuillez sélectionner un problème