• Initiateur de la discussion Initiateur de la discussion wrndid
  • 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 !

Re : calendrier

Bonjour wrndid,
A l'ouverture il y a message:
Sans-titre-1.jpg
Ensuite dans les modifs effectuées on retrouve de nombreuses fois :
VB:
For a = 3 To 33
Cells(5, a).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
Sauf pour la cellule "Cells(4, 3)" où on trouve
VB:
If Cells(4, 3).Value = "" Then
For a = 3 To 33
Cells(4, 4).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
End If
Cells(4, 4).Value au lieu de Cells(4, a).Value, Ceci explique, peut-être, cela.....
Cordialement
EDIT : Je me bat avec l'insertion d'image....
 

Pièces jointes

  • Sans-titre-1.jpg
    Sans-titre-1.jpg
    16 KB · Affichages: 39
  • Sans-titre-1.jpg
    Sans-titre-1.jpg
    16 KB · Affichages: 41
Dernière édition:
- 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éponses
17
Affichages
813
Réponses
8
Affichages
535
  • Question Question
Microsoft 365 tableau d'alerte
Réponses
2
Affichages
108
  • Question Question
XL 2019 Planning
Réponses
9
Affichages
214
Réponses
10
Affichages
359
Réponses
3
Affichages
330
Retour