End If

Le
Pascal
Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
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
Phil
Le #4263181
Bonjour !
il te suffit d'inverser le next et le end if....

For each....
if then

end if
Next

Voila...

"Pascal" 460cc2d9$0$25913$
Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Jacky
Le #4263141
Bonjour,

Il y a plusieurs erreurs dans ce code
1- supprimer end if ( if condition then résultat est sur la même ligne ,
pas besoin de "end if")
2-[VacDéb] doit existé, à priori ce serait [A2:J32].
3- If c* >= cel And c <= cel.Offset(0, 2) Then c*.Interior.ColorIndex = 34
*c= ?????
Que veux-tu peinturlurer réellement et avec quelle condition ??
--
Salutations
JJ


"Pascal" 460cc2d9$0$25913$
Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





JB
Le #4263111
Bonjour,


2 syntaxes pour If

If condition Then
...
Else
...
End If

et sur une seule ligne, pas de End If:

If condition Then ......


Sur ton exemple, Il faut supprimer le 2eme End If

JB



On 30 mar, 09:56, "Pascal"
Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Steph
Le #4263041
Essaye ceci

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then
c.Interior.ColorIndex = 34
Next cel
End If




"Pascal" 460cc2d9$0$25913$
Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





LSteph
Le #4316601
Bonjour,
Lorsqu'on écrit un simple
If ..Then....sur une même ligne
pas besoin d'End if

On ne voit pas la définition de c ni cel
cel serait la Cell de la boucle dans le range [VacDéb]

Sub marqueJours()
Dim cel as range, c as range
'c=???
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End Sub

'lSteph

Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Jacky
Le #4316571
CQADED

--
Salutations
JJ


"LSteph"
Bonjour,
Lorsqu'on écrit un simple
If ..Then....sur une même ligne
pas besoin d'End if

On ne voit pas la définition de c ni cel
cel serait la Cell de la boucle dans le range [VacDéb]

Sub marqueJours()
Dim cel as range, c as range
'c=???
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex = 34
Next cel
End Sub

'lSteph

Bonjour,
Pourquoi lorsque que j'éxécute cette macro

Sub marqueJours()
Application.ScreenUpdating = False
[A2:J32].Interior.ColorIndex = xlNone
For Each cel In [VacDéb]
If c >= cel And c <= cel.Offset(0, 2) Then c.Interior.ColorIndex =
34
Next cel
End If
J'ai un message End If sans bloc If. Je comprends pas j'ai bien mes deux
Blocs??

Merci
Pascal ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000728-3, 29/03/2007
Analyse le : 30/03/2007 09:56:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






LSteph
Le #4316531
Spich Franch???

CQADED



LSteph
Le #4316511
je viens de comprendre,
Ce qui a déjà été dit,

Tu ne crois pas si bien dire, c'est la troisième fois que je le poste
hier
10:20
14:40
puis ce matin
puisqu'il n'apparait toujours pas!

@+

CQADED



Jacky
Le #4316501
Ce Qui A Déjà Etait Demandé
Même dans le nouveau fil
;-((
--
Salutations
JJ


"LSteph" %
Spich Franch???

CQADED





LSteph
Le #4316451
:-[[[
Oui mais moi "Môssieu" je donnais une réponse complète depuis hier 10:20
(à ce moment là j'étais le premier sur le coup)..que je croyais.
-Le pourquoi du If
-l'absence de définition de variable
-la correction du code proposé
et c'est pas ma faute si elle n'apparaît pas, donc je l'ai repostée!

;o))Bon Samedi quand même

lSteph

Ce Qui A Déjà Etait Demandé
Même dans le nouveau fil
;-((


Publicité
Poster une réponse
Anonyme