Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Créer un onglet avec VBA

Créer un onglet avec VBA

7 réponses
Avatar
Pierre93
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox (celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données (chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93
Signaler un problème avec ce contenu

7 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
JB
Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox (celu i-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données (chiff res)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93


Avatar
Daniel.C
Bonjour.
Pour la création d'onglet :

Private Sub CommandButton1_Click()
If IsDate(Me.TextBox1.Value) Then
Var = Format(CDate(Me.TextBox1.Value), "dd_mm_yyyy")
Sheets.Add.Name = _
Format(CDate(Me.TextBox1.Value), "dd_mm_yyyy")
Unload Me
Else
MsgBox "Erreur de saisie"
End If
End Sub

Pour le transfert de champ, voici un exemple qui transfère le contenu d'un
textbox dans la colonne A de la feuille active :

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) Then
If [A1] = "" Then
Cells(1, 1) = Me.TextBox1.Value
Else
Cells([A65536].End(xlUp).Row + 1, 1) = _
Me.TextBox1.Value
End If
Unload Me
Else
MsgBox "Erreur de saisie"
End If
End Sub

Cordialement.
Daniel
"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93


Avatar
Daniel.C
Oups. erreur de post
Daniel
"Daniel.C" a écrit dans le message de news:

Bonjour.
Pour la création d'onglet :

Private Sub CommandButton1_Click()
If IsDate(Me.TextBox1.Value) Then
Var = Format(CDate(Me.TextBox1.Value), "dd_mm_yyyy")
Sheets.Add.Name = _
Format(CDate(Me.TextBox1.Value), "dd_mm_yyyy")
Unload Me
Else
MsgBox "Erreur de saisie"
End If
End Sub

Pour le transfert de champ, voici un exemple qui transfère le contenu d'un
textbox dans la colonne A de la feuille active :

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) Then
If [A1] = "" Then
Cells(1, 1) = Me.TextBox1.Value
Else
Cells([A65536].End(xlUp).Row + 1, 1) = _
Me.TextBox1.Value
End If
Unload Me
Else
MsgBox "Erreur de saisie"
End If
End Sub

Cordialement.
Daniel
"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93






Avatar
Pierre93
JB a dit :
"2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??"

Dans le second userform se trouve 13 TextBox où sont saisies des chiffres
(Ils doivent être copiés respectivement dans les cellules A2 à B12) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules A3 à B13).

Si cela peux t'aider ?!!!

Cdt

Pierrot du 93



"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93


Avatar
Pierre93
Oups, je me suis trompé dans les cellules !
Il faut lire :
Dans le second userform se trouve 13 TextBox où sont saisies des chiffres
(Ils doivent être copiés respectivement dans les cellules A2 à A12) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules B2 à B12).

"Pierre93" a écrit dans le message de news:
eTPfT%
JB a dit :
"2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??"

Dans le second userform se trouve 13 TextBox où sont saisies des chiffres
(Ils doivent être copiés respectivement dans les cellules A2 à B12) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules A3 à B13).

Si cela peux t'aider ?!!!

Cdt

Pierrot du 93



"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93






Avatar
Daniel.C
Encore un effort, ça ne fait toujours pas le compte.
Daniel
"Pierre93" a écrit dans le message de news:
Og4c8$
Oups, je me suis trompé dans les cellules !
Il faut lire :
Dans le second userform se trouve 13 TextBox où sont saisies des chiffres
(Ils doivent être copiés respectivement dans les cellules A2 à A12) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules B2 à B12).

"Pierre93" a écrit dans le message de news:
eTPfT%
JB a dit :
"2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??"

Dans le second userform se trouve 13 TextBox où sont saisies des chiffres
(Ils doivent être copiés respectivement dans les cellules A2 à B12) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules A3 à B13).

Si cela peux t'aider ?!!!

Cdt

Pierrot du 93



"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
If Not IsDate(Me.TextBox1) Then
MsgBox "saisir une date"
Me.TextBox1.SetFocus
Else
nomOnglet = Replace(Me.TextBox1, "/", "-")
On Error Resume Next
Sheets(nomOnglet).Select
If Err > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomOnglet
Else
MsgBox "Existe dèjà"
End If
End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93










Avatar
JB
Private Sub CommandButton1_Click()
For i = 1 To 13
Cells(i + 1, 1) = Val(Replace(Me("textbox" & i), ",", "."))
Cells(i + 1, 2) = Me("textbox" & i + 13)
Next i
End Sub

http://cjoint.com/?ddoeD7ByL7

JB

On 3 mar, 12:16, "Pierre93" wrote:
Oups, je me suis trompé dans les cellules !
Il faut lire :
Dans le second userform se trouve 13 TextBox où sont saisies des chiffre s
 (Ils doivent être copiés respectivement dans les cellules A2 à A1 2) et 13
 autres TextBox où sont saisies des noms (Ils doivent être copiés
 respectivement dans les cellules B2 à B12).

"Pierre93" a écrit dans le message de news:
eTPfT%



JB a dit :
"2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??"

Dans le second userform se trouve 13 TextBox où sont saisies des chiff res
(Ils doivent être copiés respectivement dans les cellules A2 à B12 ) et 13
autres TextBox où sont saisies des noms (Ils doivent être copiés
respectivement dans les cellules A3 à B13).

Si cela peux t'aider ?!!!

Cdt

Pierrot du 93

"JB" a écrit dans le message de news:

Bonjour,

1-Création d'un onglet avec une date:

Private Sub CommandButton1_Click()
 If Not IsDate(Me.TextBox1) Then
   MsgBox "saisir une date"
   Me.TextBox1.SetFocus
 Else
   nomOnglet = Replace(Me.TextBox1, "/", "-")
   On Error Resume Next
   Sheets(nomOnglet).Select
   If Err > 0 Then
     Sheets.Add after:=Sheets(Sheets.Count)
     ActiveSheet.Name = nomOnglet
   Else
     MsgBox "Existe dèjà"
   End If
 End If
End Sub

http://cjoint.com/?ddlPpTfSq7

2-Pour le tranfert dans l'onglet, il faut connaître les champs du
formulaire à transférer ainsi que l'endroit où les transferer dans
l'onglet: Dans une BD avec 1 ligne par enregistrement par exemple??

JB
On 3 mar, 11:24, "Pierre93" wrote:
Bonjour,

1 - Comment créer un onglet suivant la date saisie dans un TextBox
(celui-ci
est dans un premier userform) ?
2 - A partir de ce nouvel onglet, comment enregistrer des données
(chiffres)
saisies dans des TextBox situés dans un second userform ?

Si vous avez une idée...je suis preneur !

Merci

Pierrot du 93- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -