Créer un onglet avec VBA

Le
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éeje suis preneur !

Merci

Pierrot du 93
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5180071
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"
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


Daniel.C
Le #5178491
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"
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"
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


Daniel.C
Le #5178471
Oups. erreur de post
Daniel
"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"
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"
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






Pierre93
Le #5178431
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"
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"
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


Pierre93
Le #5178411
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" 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"
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"
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






Daniel.C
Le #5178401
Encore un effort, ça ne fait toujours pas le compte.
Daniel
"Pierre93" 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" 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"
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"
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










JB
Le #5178351
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"
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" 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"
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"
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 -




Publicité
Poster une réponse
Anonyme