Problème de copie de données après création d'onglet

[koukou40]

Bonjour,

A l'aide d'un code fournit gentillement par JB, je peux créer un onglet et le renommer suivant la date saisie dans un TextBox. Cependant j'aimerais que chaque colonne soit dénommée. Par exemple, dans les cellules "A2 à A20" où la date de saisie est transférée, je voudrais qu'en cellule "A1" soit affiché "Date". Idem pour les autres catégories.

Si vous avez compris, j'en suis soulagé, sinon je réponds à vos questions !

Je joins un fichier exemple.

A+

koukou40

http://cjoint.com/?ddsph1B1nZ
ou

 

[JCGL]

Re : Problème de copie de données après création d'onglet

Bonjour à tous,

Peux-tu essayer avec ceci dans le code de l'USF :

Private Sub UserForm_Initialize()
TxtDate.Value = Format(Now(), "dddd dd mmmm yyyy")  'met sous format français la date du jour dans le textbox date.
TxtDate.MaxLength = 20
End Sub

Private Sub cmdValider_Click()
    'Report des infos dans le classeur
    If IsDate(Me.TxtDate.Value) Then
    MsgBox "Vos infos sont-elles correctes ?"
    Else
    nomOnglet = Replace(Me.TxtDate, "/", "-")
        On Error Resume Next
    Sheets(nomOnglet).Select
    If Err > 0 Then
      Sheets.Add after:=Sheets(Sheets.Count)
      ActiveSheet.Name = nomOnglet
          Else
      MsgBox "Journée dèjà traitée !"
  End If
  End If
    [SIZE=3][COLOR=Blue][B]Sheets(nomOnglet).Range("A1").Value = "Date"[/B][/COLOR][/SIZE]
    Sheets(nomOnglet).Range("A2") = Me.TxtDate.Value
    Sheets(nomOnglet).Range("B2") = Me.CmbFact.Value
    Sheets(nomOnglet).Range("C2") = Me.CmbPost.Value
    End Sub

Private Sub UserForm_Activate()
CmbFact.List = Array("M", "AM", "N", "J")
CmbPost.List = Array("aaa", "bbb", "ccc", "ddd")
End Sub

A+

 

[koukou40]

Re : Problème de copie de données après création d'onglet

Bonsoir JCGL !

Merci, je teste !

A+

koukou40

 

[Guest]

Re : Problème de copie de données après création d'onglet

Voilà une réponse.

 

[koukou40]

Re : Problème de copie de données après création d'onglet

Voilà une réponse.

Bonsoir Hasco !

Je te remercie, cela fonctionne !

Idem pour JCGL !!!

A+

koukou40

 

[koukou40]

Re : Problème de copie de données après création d'onglet

En continuité de mon post, comment peut-on mettre "en gras" les titres des catégories ?

Merci

koukou40

 

[JCGL]

Re : Problème de copie de données après création d'onglet

Re,

Rajoute :

.Rows("1:1").Font.Bold = True

à la fin du bloc With Sheets(nomOnglet) et avant le End If du même bloc

A+

 

[koukou40]

Re : Problème de copie de données après création d'onglet

Oups !
J'oubliais : si je crée un second userform avec des textbox et un autre bouton "Valider" comment incorporer ces dernières données dans l'onglet fraîchement créé ?


a+
koukou40

 

[JCGL]

Re : Problème de copie de données après création d'onglet

Re,

Dépose un exemple, surtout pour avoir les noms de l'USF et TextBox.
Confirme aussi que l'USF doit "suivre" la feuille nouvellement créée.

A+

 

[koukou40]

Re : Problème de copie de données après création d'onglet

Re,

Dépose un exemple, surtout pour avoir les noms de l'USF et TextBox.
Confirme aussi que l'USF doit "suivre" la feuille nouvellement créée.

A+

Ok, je le fais...

koukou40

 

[koukou40]

Re : Problème de copie de données après création d'onglet

Le voici !


koukou40