Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement),
divers autres textbox où sont saisies des valeurs et un bouton VALIDER.
Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec
la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses
données saisies dans le classeur ?
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
Daniel.C
Bonsoir. Essaie l'enregistrement du classeur se fait à la ligne ("ThisWorkbook.Save") :
Private Sub CommandButton1_Click() If IsDate(Me.TextBox1) Then Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy") On Error Resume Next Sheets.Add.Name = Me.TextBox1 If Err.Number <> 0 Then MsgBox "saisie erronée" Err.Clear Exit Sub End If ThisWorkbook.Save End If End Sub
Cordialement. Daniel "Pierre93" a écrit dans le message de news:
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement), divers autres textbox où sont saisies des valeurs et un bouton VALIDER. Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses données saisies dans le classeur ?
Merci.
Pierrot du 93
Bonsoir.
Essaie l'enregistrement du classeur se fait à la ligne ("ThisWorkbook.Save")
:
Private Sub CommandButton1_Click()
If IsDate(Me.TextBox1) Then
Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy")
On Error Resume Next
Sheets.Add.Name = Me.TextBox1
If Err.Number <> 0 Then
MsgBox "saisie erronée"
Err.Clear
Exit Sub
End If
ThisWorkbook.Save
End If
End Sub
Cordialement.
Daniel
"Pierre93" <pierrotlefou@laposte.net> a écrit dans le message de news:
OeMMfXkeIHA.1188@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement),
divers autres textbox où sont saisies des valeurs et un bouton VALIDER.
Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec
la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses
données saisies dans le classeur ?
Bonsoir. Essaie l'enregistrement du classeur se fait à la ligne ("ThisWorkbook.Save") :
Private Sub CommandButton1_Click() If IsDate(Me.TextBox1) Then Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy") On Error Resume Next Sheets.Add.Name = Me.TextBox1 If Err.Number <> 0 Then MsgBox "saisie erronée" Err.Clear Exit Sub End If ThisWorkbook.Save End If End Sub
Cordialement. Daniel "Pierre93" a écrit dans le message de news:
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement), divers autres textbox où sont saisies des valeurs et un bouton VALIDER. Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses données saisies dans le classeur ?
Merci.
Pierrot du 93
Pierre93
Merci Daniel.C
Pierrot du 93
"Daniel.C" a écrit dans le message de news:
Bonsoir. Essaie l'enregistrement du classeur se fait à la ligne ("ThisWorkbook.Save") :
Private Sub CommandButton1_Click() If IsDate(Me.TextBox1) Then Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy") On Error Resume Next Sheets.Add.Name = Me.TextBox1 If Err.Number <> 0 Then MsgBox "saisie erronée" Err.Clear Exit Sub End If ThisWorkbook.Save End If End Sub
Cordialement. Daniel "Pierre93" a écrit dans le message de news:
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement), divers autres textbox où sont saisies des valeurs et un bouton VALIDER. Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses données saisies dans le classeur ?
Merci.
Pierrot du 93
Merci Daniel.C
Pierrot du 93
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e6Cdj6keIHA.5620@TK2MSFTNGP04.phx.gbl...
Bonsoir.
Essaie l'enregistrement du classeur se fait à la ligne
("ThisWorkbook.Save") :
Private Sub CommandButton1_Click()
If IsDate(Me.TextBox1) Then
Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy")
On Error Resume Next
Sheets.Add.Name = Me.TextBox1
If Err.Number <> 0 Then
MsgBox "saisie erronée"
Err.Clear
Exit Sub
End If
ThisWorkbook.Save
End If
End Sub
Cordialement.
Daniel
"Pierre93" <pierrotlefou@laposte.net> a écrit dans le message de news:
OeMMfXkeIHA.1188@TK2MSFTNGP04.phx.gbl...
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement),
divers autres textbox où sont saisies des valeurs et un bouton VALIDER.
Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec
la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses
données saisies dans le classeur ?
Bonsoir. Essaie l'enregistrement du classeur se fait à la ligne ("ThisWorkbook.Save") :
Private Sub CommandButton1_Click() If IsDate(Me.TextBox1) Then Me.TextBox1 = Format(Me.TextBox1, "dd_mm_yyyy") On Error Resume Next Sheets.Add.Name = Me.TextBox1 If Err.Number <> 0 Then MsgBox "saisie erronée" Err.Clear Exit Sub End If ThisWorkbook.Save End If End Sub
Cordialement. Daniel "Pierre93" a écrit dans le message de news:
Bonsoir,
Comment créer et/ou modifier des onglets via un userform ?
Je m'explique : dans un userform j'ai un textbox (date de traitement), divers autres textbox où sont saisies des valeurs et un bouton VALIDER. Mon but est qu'à chaque nouvelle date validée, un onglet soit créer avec la-dite date !
Autre question qui est liée avec la précédente : comment conserver ses données saisies dans le classeur ?