Erreur 424 sur 2 macros assemblées
Bonjour à tous,
n'étant pas encore une lumière en vba, j'ai voulu assembler 2 macros ( fonctionnant chacune de leur coté)
en les assemblant, excel ma retourne erreur 424.
que dois je faire?
merci d'avance de vos lumières
voici les deux macros:
Private Sub Worksheet_activate()
cacher
End Sub
Sub cacher()
Application.ScreenUpdating = False
Rows("1:100").Hidden = False
For i = 100 To 1 Step -1
If Application.CountBlank(Range(Cells(i, 1), Cells(i, 26))) = 26 Then
Rows(i).Hidden = True
End If
Next
End Sub
Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Or Target.Column = 10 Or Target.Column = 11 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
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
bonjour,
pourrais-tu m'envoyer ton ficher car avec juste tes codes VBA c'est compliqué de trouver même si je pense que l'erreur vient du fait que tu ne sélectionnes pas de date.
Merci
Cordialement,
Alexandre
Merci Alexandre de te soucier de mon problème:
mais mon fichier dépasse les 200K. que puis je faire
merci à toi
envoi le moi sur mon adresse mail
alexandre.coupe@gmail.com
Merci
A +
je te l'ai envoyé
merci encore
Bonjour
Pourquoi se priver de l'aide potentielle de plusieurs personnes en ne l'envoyant qu'à une seule