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

JCGL

XLDnaute Barbatruc

• 3 Mars 2008

• #2

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 :

Code:

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+

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #3

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

Bonsoir JCGL !

Merci, je teste !

A+

koukou40

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Mars 2008

• #4

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

Voilà une réponse.

 

Dernière modification par un modérateur: 18 Mars 2008

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #5

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

Hasco à dit:

Voilà une réponse.

Cliquez pour agrandir...

Bonsoir Hasco !

Je te remercie, cela fonctionne !

Idem pour JCGL !!!

A+

koukou40

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Mars 2008

• #7

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

Re,

Rajoute :

Code:

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

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

A+

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #8

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Mars 2008

• #9

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+

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #10

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

JCGL à dit:

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+

Cliquez pour agrandir...

Ok, je le fais...

koukou40

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 3 Mars 2008

• #11

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

Le voici !


koukou40

 

Dernière édition: 12 Mai 2008

Vote positif 0 Vote négatif