XL 2010 [Résolu]Calendrier à deux colonnes

[Thibault98]

Bonsoir,

Ci-joint un classeur contenant un calendrier, avec le code qui lui est associé ça fonctionne pour la colonne 1.
Après plusieurs essais, impossible de renvoyer les infos de la colonne B lorsque l'on passe dans les zones blanches.

les dates sont fusionnées, deux colonnes pour une date.
Avec "Case" je pense qu'il faut également joué avec column en plus de Row.

Merci d'avance
Thibault

 

[sousou]

Bonsoir
pour suivre ton raisonnement essai ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Row

Case 7, 12, 17
If IsDate(Target.Offset(-1, 0)) Then [A1] = Target.Offset(-1).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-1, -1)) Then [A1] = Target.Offset(-1, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value

Case 8, 13, 18
If IsDate(Target.Offset(-2, 0)) Then [A1] = Target.Offset(-2).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-2, -1)) Then [A1] = Target.Offset(-2, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value

Case 9, 14, 19
If IsDate(Target.Offset(-3, 0)) Then [A1] = Target.Offset(-3).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-3, -1)) Then [A1] = Target.Offset(-3, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value

Case 10, 15, 20
If IsDate(Target.Offset(-4, 0)) Then [A1] = Target.Offset(-4).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-4, -1)) Then [A1] = Target.Offset(-4, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value

Case Else
End Select



End Sub

 

[Thibault98]

Bonsoir et merci beaucoup,
C'est parfait
Bonne soirée
Thibault