ComboBox excel

Résolu/Fermé
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 20 janv. 2009 à 07:48
 jh50160 - 20 janv. 2009 à 13:11
Bonjour à tous, j'ai créer un userform avec textBox et comboBox, dans un comboBox ma liste contient les mois de l'année, dans excel j'ai autant de feuilles de calcul qu'il y a de mois dans ma liste, alors je voudrais :exemple dans mon Userform comboBox 1 ou il y a ma liste, si je sélectionne mars 2009, les données s'enregistre dans la feuille de calcul mars 2009, et pareil pour les autre mois "janvier dans feuille janvier, etc". Ci-Joint mon fichier. http://www.cijoint.fr/cjlink.php?file=cj200901/cijqThjaRA.xls . si quelqu'un peut m'aider. Merci.
A voir également:

2 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 janv. 2009 à 08:15
Bonjour,
tu remplace ta macro par...
'Met en place les données dans les cellules de la feuille de calcul'
Private Sub CmdEnregistrer_Click()
Dim i As Byte, Nom As String
Dim DerLig As Long
    Nom = ComboBox1
    With Sheets(Nom)
        DerLig = .Range("A65536").End(xlUp).Row + 1
        .Cells(lig, 1) = TextBox1
        .Cells(lig, 2) = TextBox2
        .Cells(lig, 3) = ComboBox3
        .Cells(lig, 4) = ComboBox4
        .Cells(lig, 5) = ComboBox5
        .Cells(lig, 6) = TextBox3
        .Cells(lig, 7) = TextBox4
    End With
End Sub

Je t'aurais bien renvoyer ton classeur mais il m'a mis que c'est un fichier "signer" et je sais pas si les données serait modifiées.
A+
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 janv. 2009 à 09:54
Finalement j'ai tester mais ça ne fonctionne pas à cause du formatage de tes cellules dans la feuille "Listes"
J'ai modifié et optimiser ton UF,
Ton classeur
Il y a encore moyen de faire plus cour, Voir ici

A+
0
salut lermite222, je te remercie pour ton aide, Super, merci A+
affaire classer.
0