Erreur 1004 pour cette macro m'aidez svp
Résolu
destinho
-
destinho -
destinho -
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
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
2 réponses
-
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
-
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 :))
