Userform et textbox

[gerardd3617]

Bonjour et bonne année
Quand j' enregistre les données de mon userform,toutes les données vont dans l'onglet liste.Mais je voudrais que certaines soient distribuées dans d'autre onglet.
cordialement

 

[jp14]

Re : Userform et textbox

Bonjour

Ci dessous une solution au problème

Private Sub CommandButton1_Click()

.................................


'Ici c'est le report de la saisie dans la feuille
With Sheets("LISTE") ' si on utlise cette ligne, il faut mettre un pint devant range
.Range("a" & L).Value = TextBox1.Value     'PRIX à copier aussi sur sept et oct en A
.Range("c" & L).Value = TextBox2.Value     'nom à copier sur sept et oct en C
.Range("g" & L).Value = TextBox5.Value     'tel fixe
.Range("h" & L).Value = TextBox6.Value     'adresse
.Range("i" & L).Value = TextBox7.Value     'instit
.Range("j" & L).Value = TextBox8.Value     'portable
.Range("d" & L).Value = ListBox1.Value     'mt cp à copier sur sept et oct en D
.Range("E" & L).Value = TextBox4.Value      ' A P à copier sur sept et oct en E

' ici je range par ordre alphabétique
 .Range("C4").Select
    Range("A2:M275").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("D10").Select

    
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End With
Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name <> "liste" Then
        With Sheets(Sh.Name)
            L = .Range("A65536").End(xlUp).Row + 1
            .Range("a" & L).Value = TextBox1.Value     'PRIX à copier aussi sur sept et oct en A
            .Range("b" & L).Value = TextBox2.Value     'nom à copier sur sept et oct en C
            .Range("c" & L).Value = ListBox1.Value     'mt cp à copier sur sept et oct en D
            .Range("d" & L).Value = TextBox4.Value
        
        .Cells.Sort _
        Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        End With
        End If
    Next Sh
'Ici je vide les TextBox
TextBox1.Value = ""
TextBox2.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
ListBox1.Value = ""
End Sub

A tester

JP

 

[kjin]

Re : Userform et textbox

Bonjour, salut JP,
Ton fichier en retour qq peu réadapté
Boucle sur toutes les feuilles et insère les valeurs pour peu que les feuilles se nomment janvier, février...
A+
kjin

 

[gerardd3617]

Re : Userform et textbox

bonjour
merci à vous pour vos réponses
je vais de se pas voir si je peux les adapter
a+

 

[gerardd3617]

Re : Userform et textbox

bonjour,kjin
ta solution va tres bien mais comme j'ai beaucoup d' onglets les tires des onglets sont mis en abreviation
set,oct,nov.....y a t il une solution
a+

 

[gerardd3617]

Re : Userform et textbox

bonjour,kjin
ta solution va tres bien mais comme j'ai beaucoup d' onglets les titres des onglets sont mis en abreviation
set,oct,nov.....y a t il une solution
a+

 

[jp14]

Re : Userform et textbox

Bonsoir
Salut Kjin

bonjour,kjin
ta solution va tres bien mais comme j'ai beaucoup d' onglets les titres des onglets sont mis en abreviation
set,oct,nov.....y a t il une solution
a+

Deux solutions
Modifier le code de kjin pour extraire les 3 premières lettres du nom

Set ws = Sheets(LCase(Left(VBA.MonthName(i), 3)))

ou utiliser

Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name <> "liste" Then
        With Sheets(Sh.Name)
................................

Comme indiquée ci dessus

JP

 

[gerardd3617]

Re : Userform et textbox

bonsoir jp14
merci ca marche nickel et encore merci à vous les génies.
gégé