Problème avec la fonction CDate
Bonjour à tous,
J'ai repris un ancien projet pour continuer mon apprentissage et j'ai besoin de vos connaissance pour régler un problème sur lequel je bute depuis hier.
Je veux afficher dans une cellule au format "Date" le contenu d'une textbox et j'ai un message d'erreur: "Membre de méthode ou de données introuvable"
Ma ligne de code est celle-ci: Cells(lNumLig, Range("Naissance").Column) = CDate(Me.txt_Naissance.txt)
Auriez-vous la gentillesse de m'aider ?
Merci
Bonjour Atlonia
Il faut penser développement objet, or dans cette ligne je n'en vois aucun
Un truc du style
Dim Sht As WorkSheet
Set Sht = ThisWorkBook.Sheets("MaFeuille")
INumlig = ???
Sht.Cells(lNumLig, Sht.Range("Naissance").Column) = CDate(Me.txt_Naissance.txt)A+
Salut Atlonia,
Salut Bruno,
Cells(lNumLig, Range("Naissance").Column) = DateValue(Me.txt_Naissance.Text)
A+
Salut Curulis57
Tu penses que ce serait si simple que ça
Pourtant, la fonction VBA CDate convertit une valeur en date, lorsque cette valeur peut être considérée comme une date.
https://www.excel-pratique.com/fr/fonctions-vba/cdate
A+
Salut Bruno,
j'ai l'habitude (souvent) de perdre mon temps à essayer ce que je propose...
En l'occurrence, Atlonia contrôle la validité de sa date qui est donc correcte.
DATEVALUE convertissant une date sous forme de texte...
A+
Re,
Sur le fichier qui a été mis maintenant, je n'ai pas d'erreur
Sauf si bien entendu, on ne met pas de date de naissance, auquel cas il suffit juste d'un test
A+
Salut Bruno,
qui a été mis maintenant
??
A+
Merci curulis57 et brunoM45,
J'ai testé vos deux solutions, mais aucune ne fonctionne !
apparemment, l'erreur m'est signalée sur la partie ".Text", j'ai essayé avec ".Value", mais toujours cette satanée erreur !
Si vous avez d'autres propositions, je suis preneur.
Merci encore
Ah ? D'où ?
Problème résolu,
J'ai effectivement mis un contrôle sur la textbox:
' On force l'écriture de la tetbox "Naissance"
If txt_Naissance = "" Then
MsgBox ("Vous devez impérativemnt entrer une date de naissance !")
Exit Sub
End If
Et ça fonctionne parfaitement.
Merci à tous les deux pour votre aide !
Ou passe t-on le message en résolu ?
Merci