Voilà mon problème:
Dans un USF j'ai des TextBox que je peux modifier.
Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
?
Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change()
Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 6) = Modifier.Reintegrer.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
merci pour l'aide
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
J-Dan
bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address merci pour l'aide
End Sub
.
bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure
Private Sub Reintegrer_AfterUpdate().
(Tu changes simplement le nom de la procédure). Ainsi le
code est éxécuté après validation de ta saisie, et non à
chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème:
Dans un USF j'ai des TextBox que je peux modifier.
Lorsque je modifie un TextBox en changeant ou en mettant
une date il me met
automatiquement une date farfelue du genre 31/12/1989
alors que je veus
mettre 15/05/2004 et automatiquement il les met à la
suite l'une de l'autre
?
Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change()
Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address merci pour l'aide
End Sub
.
Albert
Merci J-Dan
Ca semble marché. Mais pourquoi, mais cela ne me dérange pas, quand je modifie un textbos, il le place dans la BD en rouge ? Et je ne l'ai pas demandé.
"J-Dan" a écrit dans le message news: 14e2601c4456d$61609d50$ bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address merci pour l'aide
End Sub
.
Merci J-Dan
Ca semble marché. Mais
pourquoi, mais cela ne me dérange pas, quand je modifie un textbos, il le
place dans la BD en rouge ? Et je ne l'ai pas demandé.
"J-Dan" <anonymous@discussions.microsoft.com> a écrit dans le message news:
14e2601c4456d$61609d50$a001280a@phx.gbl...
bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure
Private Sub Reintegrer_AfterUpdate().
(Tu changes simplement le nom de la procédure). Ainsi le
code est éxécuté après validation de ta saisie, et non à
chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème:
Dans un USF j'ai des TextBox que je peux modifier.
Lorsque je modifie un TextBox en changeant ou en mettant
une date il me met
automatiquement une date farfelue du genre 31/12/1989
alors que je veus
mettre 15/05/2004 et automatiquement il les met à la
suite l'une de l'autre
?
Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change()
Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)
Ca semble marché. Mais pourquoi, mais cela ne me dérange pas, quand je modifie un textbos, il le place dans la BD en rouge ? Et je ne l'ai pas demandé.
"J-Dan" a écrit dans le message news: 14e2601c4456d$61609d50$ bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format(Reintegrer.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address merci pour l'aide
End Sub
.
J-Dan
salut Albert,
peux-tu précider ce qu'est la BD ?
merci
-----Message d'origine----- Merci J-Dan
Ca semble marché. Mais pourquoi, mais cela ne me dérange pas, quand je modifie un textbos, il le
place dans la BD en rouge ? Et je ne l'ai pas demandé.
"J-Dan" a écrit dans le message news:
14e2601c4456d$61609d50$ bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format (Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
pour éviter ce problème, mets ton code dans la procédure
Private Sub Reintegrer_AfterUpdate().
(Tu changes simplement le nom de la procédure). Ainsi le
code est éxécuté après validation de ta saisie, et non à
chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème:
Dans un USF j'ai des TextBox que je peux modifier.
Lorsque je modifie un TextBox en changeant ou en mettant
une date il me met
automatiquement une date farfelue du genre 31/12/1989
alors que je veus
mettre 15/05/2004 et automatiquement il les met à la
suite l'une de l'autre
?
Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change()
Reintegrer.Value = Format
(Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)
Ca semble marché. Mais pourquoi, mais cela ne me dérange pas, quand je modifie un textbos, il le
place dans la BD en rouge ? Et je ne l'ai pas demandé.
"J-Dan" a écrit dans le message news:
14e2601c4456d$61609d50$ bonjour Albert,
pour éviter ce problème, mets ton code dans la procédure Private Sub Reintegrer_AfterUpdate(). (Tu changes simplement le nom de la procédure). Ainsi le code est éxécuté après validation de ta saisie, et non à chaque caractère entré
-----Message d'origine-----
Bonjour à tous,
Voilà mon problème: Dans un USF j'ai des TextBox que je peux modifier. Lorsque je modifie un TextBox en changeant ou en mettant une date il me met
automatiquement une date farfelue du genre 31/12/1989 alors que je veus
mettre 15/05/2004 et automatiquement il les met à la suite l'une de l'autre
? Voici le code car je ne trouve pas pourquoi.
Private Sub Reintegrer_Change() Reintegrer.Value = Format (Reintegrer.Value, "dd/mm/yyyy")
Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
