Discussion :

[Melodie7]

Bonjour à tous!
Je suis débutante en VBA.

j'ai un gros problème depuis plusieurs jours. j'ai essayé plusieurs méthodes mais aucune n'est la solution.

J'aimerais créer un calendrier dans Excel qui permet d'afficher les dates souhaitées.
Dans la colonne A j'ai la liste des jours du calendrier et en B l'état des cases à cocher (VRAI si la case est coché et FAUX si elle n'est pas cochée). si je coches sur une case la date qui est à côté doit être remplacée par la date suivante. Autrement dit je coche une case pour que cette case ne s'affiche pas dans le calendrier.

Cela doit être possible lorsqu'on coche plusieurs cases.
Mon code ne fonctionne que pour une .
J'ai besoin d'aide au plus vite svp: d'autres variantes de code ou une amélioration de mon code

Merci d'avance pour vos réponses

Pour ceux qui n'ose pas ouvrir le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Datum()
 
Dim z As Integer
Dim s As Integer
 
z = 5
s = 21
 
Worksheets("Gesamtübersicht").Activate
If Cells(z, 2).Value = True And Cells(z + 1, 2).Value = False And Cells(z + 2, 2).Value = FalseAnd And Cells(z + 3, 2).Value = False And Cells(z + 4, 2).Value = False And Cells(z + 5, 2).Value = False And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 1
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = False And Cells(z + 3, 2).Value = False And Cells(z + 4, 2).Value = False And Cells(z + 5, 2).Value = False And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 2
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = False And Cells(z + 4, 2).Value = False And Cells(z + 5, 2).Value = False And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 3
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = False And Cells(z + 5, 2).Value = False And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 4
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = False And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 5
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = False And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 6
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = True And Cells(z + 7, 2).Value = False And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 7
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = True And Cells(z + 7, 2).Value = True And Cells(z + 8, 2).Value = False And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 8
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = True And Cells(z + 7, 2).Value = True And Cells(z + 8, 2).Value = True And Cells(z + 9, 2).Value = False And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 9
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = True And Cells(z + 7, 2).Value = True And Cells(z + 8, 2).Value = True And Cells(z + 9, 2).Value = True And Cells(z + 10, 2).Value = False Then
Cells(3, s) = (Cells(z, 1).Value) + 10
ElseIf Cells(z, 2).Value = True And Cells(z + 1, 2).Value = True And Cells(z + 2, 2).Value = True And Cells(z + 3, 2).Value = True And Cells(z + 4, 2).Value = True And Cells(z + 5, 2).Value = True And Cells(z + 6, 2).Value = True And Cells(z + 7, 2).Value = True And Cells(z + 8, 2).Value = True And Cells(z + 9, 2).Value = True And Cells(z + 10, 2).Value = True Then
Cells(3, s) = (Cells(z, 1).Value) + 11
 
 
End Sub

Ci- Joint le fichier Excel. Dans la feuille de programmation, il y a d'autres essais de code qui ne marchent pas.