Re-bonjour,
Dans un UF j'ai écris ce simplissime code qui ne marche pas:
Private Sub ChkToday_Click()
If ChkToday.Value = True Then
TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy")
Range("a7").Value = TextBox3.Value
ElseIf ChkToday.Value = False Then
Range("a7").Select
Selection.ClearContents
'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la
valeur de la cellule
TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy")
Range("a7").Value = TextBox3.Value
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bruno LOUIS
Salut,
J'ai testé tes deux lignes de codes : TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" a écrit dans le message de news:
Re-bonjour, Dans un UF j'ai écris ce simplissime code qui ne marche pas: Private Sub ChkToday_Click() If ChkToday.Value = True Then TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy") Range("a7").Value = TextBox3.Value ElseIf ChkToday.Value = False Then Range("a7").Select Selection.ClearContents 'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la valeur de la cellule TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value End If End Sub
Pouvez-vous me corriger SVP? Merci.
Salut,
J'ai testé tes deux lignes de codes :
TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy")
Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OhfyUD5AFHA.1408@TK2MSFTNGP10.phx.gbl...
Re-bonjour,
Dans un UF j'ai écris ce simplissime code qui ne marche pas:
Private Sub ChkToday_Click()
If ChkToday.Value = True Then
TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy")
Range("a7").Value = TextBox3.Value
ElseIf ChkToday.Value = False Then
Range("a7").Select
Selection.ClearContents
'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la
valeur de la cellule
TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy")
Range("a7").Value = TextBox3.Value
End If
End Sub
J'ai testé tes deux lignes de codes : TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" a écrit dans le message de news:
Re-bonjour, Dans un UF j'ai écris ce simplissime code qui ne marche pas: Private Sub ChkToday_Click() If ChkToday.Value = True Then TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy") Range("a7").Value = TextBox3.Value ElseIf ChkToday.Value = False Then Range("a7").Select Selection.ClearContents 'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la valeur de la cellule TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value End If End Sub
Pouvez-vous me corriger SVP? Merci.
ManBas
Merci Bruno. Il n'y a pas de message d'erreur: je n'obtiens pas ce que je souhaite, c'est donc que je ne formule pas bien. Lorsque je coche la case à cocher ChkToday, la valeur renvoyée dans la cellule A7 via le TextBox3 est la date du jour + 10j -->OK. Lorsque je décoche cette case à cocher la macro fonctionne jusqu'à la suppression du contenu de A7, s'il n'y a pas les 2 "fameuses" lignes. Quand ces 2 lignes sont rajoutées: - A7 affiche la date du 2 mai 2005 (???) dès le décochage de la case. - je ne peux pas modifier le contenu de A7 via le textbox3.
"Bruno LOUIS" a écrit dans le message de news: 41f78a52$0$2184$
Salut,
J'ai testé tes deux lignes de codes : TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" a écrit dans le message de news:
Re-bonjour, Dans un UF j'ai écris ce simplissime code qui ne marche pas: Private Sub ChkToday_Click() If ChkToday.Value = True Then TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy") Range("a7").Value = TextBox3.Value ElseIf ChkToday.Value = False Then Range("a7").Select Selection.ClearContents 'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la valeur de la cellule TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value End If End Sub
Pouvez-vous me corriger SVP? Merci.
Merci Bruno.
Il n'y a pas de message d'erreur: je n'obtiens pas ce que je souhaite, c'est
donc que je ne formule pas bien.
Lorsque je coche la case à cocher ChkToday, la valeur renvoyée dans la
cellule A7 via le TextBox3 est la date du jour + 10j -->OK.
Lorsque je décoche cette case à cocher la macro fonctionne jusqu'à la
suppression du contenu de A7, s'il n'y a pas les 2 "fameuses" lignes.
Quand ces 2 lignes sont rajoutées:
- A7 affiche la date du 2 mai 2005 (???) dès le décochage de la case.
- je ne peux pas modifier le contenu de A7 via le textbox3.
"Bruno LOUIS" <bruno@hamelin-lecardonnel.fr> a écrit dans le message de
news: 41f78a52$0$2184$8fcfb975@news.wanadoo.fr...
Salut,
J'ai testé tes deux lignes de codes :
TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy")
Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
OhfyUD5AFHA.1408@TK2MSFTNGP10.phx.gbl...
Re-bonjour,
Dans un UF j'ai écris ce simplissime code qui ne marche pas:
Private Sub ChkToday_Click()
If ChkToday.Value = True Then
TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy")
Range("a7").Value = TextBox3.Value
ElseIf ChkToday.Value = False Then
Range("a7").Select
Selection.ClearContents
'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la
valeur de la cellule
TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy")
Range("a7").Value = TextBox3.Value
End If
End Sub
Merci Bruno. Il n'y a pas de message d'erreur: je n'obtiens pas ce que je souhaite, c'est donc que je ne formule pas bien. Lorsque je coche la case à cocher ChkToday, la valeur renvoyée dans la cellule A7 via le TextBox3 est la date du jour + 10j -->OK. Lorsque je décoche cette case à cocher la macro fonctionne jusqu'à la suppression du contenu de A7, s'il n'y a pas les 2 "fameuses" lignes. Quand ces 2 lignes sont rajoutées: - A7 affiche la date du 2 mai 2005 (???) dès le décochage de la case. - je ne peux pas modifier le contenu de A7 via le textbox3.
"Bruno LOUIS" a écrit dans le message de news: 41f78a52$0$2184$
Salut,
J'ai testé tes deux lignes de codes : TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value
Chez moi, elles fonctionnent.
Peux-tu me dire quel est le message d'erreur donné par Excel ?
Cordialement
Bruno
"ManBas" a écrit dans le message de news:
Re-bonjour, Dans un UF j'ai écris ce simplissime code qui ne marche pas: Private Sub ChkToday_Click() If ChkToday.Value = True Then TextBox3.Value = Format(Now() + 10, "dd/mmm/yyyy") Range("a7").Value = TextBox3.Value ElseIf ChkToday.Value = False Then Range("a7").Select Selection.ClearContents 'jusqu'ici ça fonctionne, mais je ne parviens pas à modifier ensuite la valeur de la cellule TextBox3.Value = Format(TextBox3.Value, "dd/mm/yy") Range("a7").Value = TextBox3.Value End If End Sub
