Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel textbox

textbox

2 réponses
Avatar
Jerome SABATHIE
bonjour,
j'ai un usrform avec textbox (au total 4), quand je valide ma saisie pour
qu'il me le mette dans un tableaux il ne me mets que 2 saisie sur 4.et
pourtant il ne me mets pas d'erreur d'execution.
voici mon code

Private Sub cmdValider_Click()
If Me.Textdate.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
Exit Sub
End If
If Me.Textecart.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
Exit Sub
End If
If Me.Textnom.Text = "" Then
MsgBox "Vous devez entrer un nom."
Me.Textnom.SetFocus
Exit Sub
End If
If Me.Textmotif.Text = "" Then
MsgBox "Vous devez entrer un motif."
Me.Textmotif.SetFocus
Exit Sub
End If

nomconverti = Application.WorksheetFunction.Proper(Me.Textnom.Text)

Sheets("données").Range("d65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("données").Range("e65536").End(xlUp).Offset(1, 0).Value =
nomconverti
Sheets("données").Range("f65536").End(xlUp).Offset(1, 0).Value = ecart
Sheets("données").Range("g65536").End(xlUp).Offset(1, 0).Value = motif


Unload Me
End Sub

Qui peux m'aider?
merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
isabelle
bonjour Jerome,

tu ne peut pas utilisé une variable Date car ce nom est déjà utilisé par excel
remplace le par MaDate ou autre.

les variables : nomconverti, ecart et motif nom pas été alimenté par une donnée
tu pourrais remplacer par exemple :

Sheets("données").Range("g65536").End(xlUp).Offset(1, 0).Value = Userform1.Textmotif.Text

isabelle


bonjour,
j'ai un usrform avec textbox (au total 4), quand je valide ma saisie pour
qu'il me le mette dans un tableaux il ne me mets que 2 saisie sur 4.et
pourtant il ne me mets pas d'erreur d'execution.
voici mon code

Private Sub cmdValider_Click()
If Me.Textdate.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
Exit Sub
End If
If Me.Textecart.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
Exit Sub
End If
If Me.Textnom.Text = "" Then
MsgBox "Vous devez entrer un nom."
Me.Textnom.SetFocus
Exit Sub
End If
If Me.Textmotif.Text = "" Then
MsgBox "Vous devez entrer un motif."
Me.Textmotif.SetFocus
Exit Sub
End If

nomconverti = Application.WorksheetFunction.Proper(Me.Textnom.Text)

Sheets("données").Range("d65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("données").Range("e65536").End(xlUp).Offset(1, 0).Value =
nomconverti
Sheets("données").Range("f65536").End(xlUp).Offset(1, 0).Value = ecart
Sheets("données").Range("g65536").End(xlUp).Offset(1, 0).Value = motif


Unload Me
End Sub

Qui peux m'aider?
merci




Avatar
JLuc
*Bonjour Jerome SABATHIE*,


bonjour,
j'ai un usrform avec textbox (au total 4), quand je valide ma saisie pour
qu'il me le mette dans un tableaux il ne me mets que 2 saisie sur 4.et
pourtant il ne me mets pas d'erreur d'execution.
voici mon code

Private Sub cmdValider_Click()
If Me.Textdate.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
Exit Sub
End If
If Me.Textecart.Text = "" Then
MsgBox "vous devez rentrer la date."
Me.Textdate.SetFocus
ici ; Me.Textecart.SetFocus


Exit Sub
End If
If Me.Textnom.Text = "" Then
MsgBox "Vous devez entrer un nom."
Me.Textnom.SetFocus
Exit Sub
End If
If Me.Textmotif.Text = "" Then
MsgBox "Vous devez entrer un motif."
Me.Textmotif.SetFocus
Exit Sub
End If

nomconverti = Application.WorksheetFunction.Proper(Me.Textnom.Text)

Sheets("données").Range("d65536").End(xlUp).Offset(1, 0).Value = Date
ici : "" "" .Value = Textdate


Sheets("données").Range("e65536").End(xlUp).Offset(1, 0).Value =
nomconverti
Sheets("données").Range("f65536").End(xlUp).Offset(1, 0).Value = ecart
ici : "" "" .Value =

Textecart

Sheets("données").Range("g65536").End(xlUp).Offset(1, 0).Value = motif
et là : "" "" .Value =

Textmotif



Unload Me
End Sub

Qui peux m'aider?
merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O