Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle If dans une routine for

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion p19
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

p19

XLDnaute Nouveau
Bonjour,

Je tente d'écrire un code pour monter un tableau de type calendrier.

En fait, je souhaite avoir une cellule contenant une date, puis une seconde dessous blanche, puis une troisième avec la date suivant la date de la première cellule, puis une date blanche ...

Le code suivant bloque dans ma routine "For i = 1 To nb_jours - 1" à l’intérieur de laquelle j'insère un If.

J'ai une erreur de type "Erreur de compilation, For sans Next"

Quelqu'un peut il m'expliquer ? Et me donner des conseils...

D'avance merci, je débute

Sub mon_tablo()
Dim i As Variant
Dim date_debut As Date
Dim date_test As Date
Dim nb_jours As Long


i = 12
date_debut = "1/5/2013"

date_test = date_debut
nb_jours = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1)
'MsgBox (nb_jours)
Sheets("Feuil3").Activate
Range("A1").Value = date_debut
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = date_debut
ActiveCell.Offset(1, 0).Select

For i = 1 To nb_jours - 1
If (i Mod 2) = 0 Then
Cells(i + 1, 1).Value = date_debut + i
Else
Cells(i + 1, 1).Value = ""
Next i

End Sub
 
Trier par date Trier par votes
Re : Boucle If dans une routine for

Bonsoir,

Je continue ce post puisque j’ai pu faire progresser mon code, de manière à ce qu’il me bâtisse un tableau du 1/5/2013 au 30/4/2014, en insérant une date puis en laissant une cellule vide avant la prochaine et en colorisant les week-end sur fond bleu (Merci ROGER).

Pour affiner, j’ai introduit la notion de jour férié sur fond vert avec la contrainte suivante : si le jour férié tombe un week-end, je souhaite que mon fond reste bleu.

J’ai même pu récupérer une fonction qui me calcule la date de pâques pour l’année afin de pouvoir en déduire le lundi de pâques, l’ascension et la pentecôte. (cf dPaques dans mon code que je tiens éventuellement à votre disposition).

Mon problème est le suivant : Malgré le traitement du jour férié qui tombe un week-end, mon code s’obstine à me renvoyer un fond vert.
Voici ci-dessous le code. Merci pour vos suggestions.

Cordiales salutations.

Philippe

Sub cal()
Dim an%, nbj%, i%, c%, dateDébut As Date, dep As Range, mois, jour As Long
Dim pâques, Lundi_de_Pâques, Ascension, Pentecôte As Variant
'
dateDébut = "1/5/2013" 'Première date

Set dep = [A1] 'Coin supérieur gauche du calendrier.

pâques = dPaques(Year(dateDébut))
Lundi_de_Pâques = Format((pâques + 1), "mm/dd")
Ascension = Format((pâques + 39), "mm/dd")
Pentecôte = Format((pâques + 50), "mm/dd")

nbj = DateSerial(Year(dateDébut) + 1, Month((dateDébut)), Day(dateDébut)) - dateDébut

For i = 1 To nbj
With dep.Offset(2 * (Day(dateDébut) - 1), c)
.Value = dateDébut

Select Case Month(dateDébut)
Case "5", "6", "7", "8", "9", "10", "11", "12"
mois = Month(dateDébut) - 4
Case "1", "2", "3", "4"
mois = Month(dateDébut) + 8
End Select

jour = Day(dateDébut)
Select Case Format((dateDébut), "dddd")
Case "samedi", "dimanche"
.Interior.Color = RGB(0, 176, 240)
Cells(jour * 2, mois).Interior.Color = RGB(0, 176, 240)
Case Else
.Interior.Color = RGB(255, 255, 255)
End Select


Select Case Format((dateDébut), "mm/dd")

Case "01/01", "05/01", "05/08", "06/01", "07/14", "08/15", "09/01", "11/01", "11/11", "12/25", Lundi_de_Pâques, Ascension, Pentecôte
If Format((dateDébut), "dddd") <> "samedi" Then
.Interior.Color = RGB(146, 208, 80)
Cells(jour * 2, mois).Interior.Color = RGB(146, 208, 80)
ElseIf Format((dateDébut), "dddd") <> "dimanche" Then
.Interior.Color = RGB(146, 208, 80)
Cells(jour * 2, mois).Interior.Color = RGB(146, 208, 80)
Else
.Interior.Color = RGB(0, 176, 240)
Cells(jour * 2, mois).Interior.Color = RGB(0, 176, 240)
End If

End Select


End With
If Month(dateDébut) <> Month(dateDébut + 1) Then c = c + 1
dateDébut = dateDébut + 1
Next

End Sub
 
Vote positif 0 Vote négatif
Re : Boucle If dans une routine for

Je pense finalement avoir trouvé.

J'ai modifié mon case ainsi :

Select Case Format((dateDébut), "mm/dd")

Case "01/01", "05/01", "05/08", "06/01", "07/14", "08/15", "09/01", "11/01", "11/11", "12/25" , Lundi_de_Pâques, Ascension, Pentecôte
If (Format((dateDébut), "dddd") = "samedi") Or (Format((dateDébut), "dddd") = "dimanche") Then
.Interior.Color = RGB(0, 176, 240)
Cells(jour * 2, mois).Interior.Color = RGB(0, 176, 240)
Else
.Interior.Color = RGB(146, 208, 80)
Cells(jour * 2, mois).Interior.Color = RGB(146, 208, 80)
End If

End Select

et cela fonctionne beaucoup mieux.😎

Si toutefois, vous avez une meilleure solution...

Philippe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Boucle FOR
Réponses
7
Affichages
363
TooFatBoy
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
489
patricktoulon
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
285
crocrocro
C
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
427
job75
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
567
Claudinedu13
C
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
156
R1-
S
  • Résolu(e)
XL 2016 Boucle For ne s'exécute pas comme une boucle et boucle infinie
Réponses
2
Affichages
357
Stéphane_1
S
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
122
bernardrustrel
B
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
231
piga25
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
298
Dranreb
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
217
Abi23
A
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
348
patricktoulon
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
254
Claudinedu13
C
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
271
jurassic pork
  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
322
cathodique
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
577
NONO14
N
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
143
Ang3lina
A
  • Question Question
XL 2010 Comptage Complexe
2 3
Réponses
40
Affichages
3 K
dysorthographie
R
  • Question Question
XL 2019 Transpose et limiter nombre de valeur
Réponses
1
Affichages
380
Rabeto
R
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
461
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…