Formulaire Combobox plusieurs onglet

Bonjour,

Avant de me lancer dans la programmation et les recherches plus poussé sur le net, Je voulais savoir si je peux remplir différents onglets en fonction du choix dans la Combobox ?

J'ai un formulaire avec nom prénom service. J'ai des onglets avec les différents service. (c'est un exemple)

Donc en fonction du choix de ma Combobox "service", Quand je rempli les noms et prénoms du formulairr, Ça me copie les textbox rempli du formulaire dans le bon onglet.

Je mettrais un exemple si ce n'est pas clair après avoir amené les enfants l'école.

Merci d'avance

Vianney

bonjour,

ça semble possible...

A+

Je crois que j'ai resolu mon problème. Je le transfert dans mon gros dossier et je mettrais ma évolution et le post en resolu

Je vous met en PJ le fichier excel et j'ai un soucis autre !!

Private Sub CommandButton1_Click()
'bouton valider
Dim L As Integer
L = Sheets("Console").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = TextBox1
Range("B" & L).Value = TextBox2
Range("C" & L).Value = TextBox3
Range("D" & L).Value = TextBox4
Range("E" & L).Value = TextBox5
Range("F" & L).Value = TextBox6
Range("G" & L).Value = TextBox7
Range("H" & L).Value = TextBox8
Range("I" & L).Value = TextBox9
Range("J" & L).Value = TextBox10

End Sub

cette ligne de commande marche que sur l'onglet "console" or je voudrais que ça fonctionne sur l'onglet actif choisi par la combobox1 "onglet"

A l'heure actuelle, quand je fais mon choix dans la combobox, toute mes textbox sont rempli dans le bon onglet. MAIS quand je valide une autre entrée, elle m'écrase la ligne au lieu d'aller à la ligne suivante (sauf dans l'onglet console au vue de la ligne de code)

Comment transformer

L = Sheets("Console").Range("a65536").End(xlUp).Row + 1

pour que ça fonctionne dans tous les onglets

merci d'avance

bonjour,

L = Sheets(ONGLET.Value).Range("a65536").End(xlUp).Row + 1

A+

Tout simplement..... Merci beaucoup.

Résolu.

Salut

Rem Attribute VBA_ModuleType=VBAFormModule
Option VBASupport 1
Option Explicit
Dim ws As Worksheet
Private Sub CommandButton1_Click()
Dim L As Integer
With Sheets(ONGLET.Value)
L = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & L).Value = TextBox1
.Range("B" & L).Value = TextBox2
.Range("C" & L).Value = TextBox3
.Range("D" & L).Value = TextBox4
.Range("E" & L).Value = TextBox5
.Range("F" & L).Value = TextBox6
.Range("G" & L).Value = TextBox7
.Range("H" & L).Value = TextBox8
.Range("I" & L).Value = TextBox9
.Range("J" & L).Value = TextBox10
End With
End Sub

Private Sub CommandButton3_Click()
'Bouton Quitter
Unload Me
End Sub
Private Sub ONGLET_change()

If ONGLET.ListIndex > -1 Then
ONGLET.Value = ONGLET.List(0) ' or ONGLET.List(1)....
'ThisWorkbook.Worksheets(ONGLET.List(ONGLET.ListIndex)).Visible = True
'ThisWorkbook.Worksheets(ONGLET.List(ONGLET.ListIndex)).Activate
End If
End Sub

Private Sub UserForm_initialize()
Dim J As Long
Dim I As Integer
Dim ER As Worksheet

For Each ER In ThisWorkbook.Worksheets
If ER.Name <> "vierge" Then
ONGLET.AddItem ER.Name
End If
Next ER

ONGLET.Value = ONGLET.List(0) ' or ONGLET.List(1)....

End Sub