Problèmes d'erreur 424
Bonjour à tous!
Je viens d'avoir une erreur 424 , j'ai cherché des réponses sur le net, mais sans succès .
Je tiens à dire que je suis novice en vba et je cherche à ressoudre ce souci.
Je souhaite savoir et comprendre d'où viens cette erreur.
Merci pour votre futur aide
Voici le code qui me pose Problème:
Private Sub btnFermer_Click()
Unload Me
End Sub
Private Sub btnOk_Click()
Dim r As Range
If C_Calendrier.Value > Date Then
Msgtxt = "La date sélectionnée est supérieure à la date du jour..."
MsgBox Msgtxt
Exit Sub
End If
'test si la date n'est pas déja saisie
Set r = Range("Base_Date").Find(What:=Format(C_Calendrier.Value, "dd/mm/yyyy;@"), LookIn:=xlValues)
If r Is Nothing Then
Call MAJ
Else
MsgBox "La date du " & C_Calendrier.Value & " est déja renseignée..."
Exit Sub
End If
Unload Me
End Sub
Private Sub UserForm_Initialize()
C_Calendrier.Value = Date - 1
End Sub
' Edit modoInvité
Bonjour Eden sama et
Une petite présentation ICI serait la bienvenue
je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :
- Pour plus de lisibilité, utilisez la fonctionnalité </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).
- Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles (cet utilitaire peut vous aider à les retirer).
Ainsi que :
Merci de votre compréhension
Concernant votre erreur 424 : Objet requis
Sans fichier cela va être compliqué car le code semble correcte
A+