erreur 1004 pour cette macro m'aidez svp Résolu/Fermé

Question

Bonjour, 



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 4 And Target.Column <= 11 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
'Worksheets(1).Cells.Replace Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub

merci d'avance

Patrice33740 · Answer

Bonjour et bonne année

Ce code fonctionne parfaitement avec Excel 2003 et 2007 

Il pourrait y avoir une erreur 424 si le calendrier n'existait pas mais je ne vois pas pourquoi 1004

Seul bémol, il manque :
Calendar1.Visible = True
avant la ligne 
Calendar1.Top = ActiveCell.Top

destinho · Answer

bonjour,

Merci Patrice le problème est résolu (le calendrier ne s'affiche pas c'est pour cette raison) 

Bonne année à vous aussi meilleurs voeux :))

Erreur 1004 pour cette macro m'aidez svp

2 réponses

Discussions similaires