Comment agir sur une feuille d'un classer avec une comboBox ? Résolu/Fermé

Question

Bonjour, 
Je souhaite avoir votre aide.
Je voudrais créer un Userform et dans ce dernier j'aimerais créer une comboBox qui contiendra les noms de feuilles précises du classeur, ainsi si on sélectionne le nom d'une feuille, (exemple : "janvier") dans la comboBox, les données saisies dans tous les champs du Userform aillent se placer au bon endroit dans la feuille appropriée, c'est à dire la feuille "janvier" pour notre exemple. Et cela pour chaque nom de feuilles qui se trouve dans la comboBox du Userform

Merci d'avance


Configuration: Windows 7 / Firefox 47.0

gbinforme · Answer

Bonjour, 

Tu détermine la ligne et la colonne et ceci te permet de sauvegarder dans la bonne feuille :
    With Sheets(Me.ComboBox1)
        .Cells(ligne, colonne).Value = Me.textbox1.Value
    End With

sekouausud · Answer

Jusqu'à présent je suis bloqué, je ne parviens pas à monter dans la comboBox la liste déroulante des noms des différentes feuilles du classeur devant accueillir les données saisies dans les champs du UserForm.

Aidez-moi, je travail avec Excel 2007

Cordialement

gbinforme · Answer

Bonjour, 

C'est très simple, .... lorsque l'on sait ;-) ;-)
Private Sub UserForm_Initialize()
Dim feu As Integer
For feu = 1 To Sheets.Count
    Me.ComboBox1.AddItem Sheets(feu).Name
Next feu
End Sub

sekouausud · Answer

Je sais que nous avons pris bcp de votre temps mais nous comptons sur votre compréhension.

Mon problème persiste, c'est peut être dû au code ci-dessous que j'ai déjà affecté à mon bouton "Ajouter" pour valider l'enregistrement et cela marche à l'exception du contenu des feuilles dont les noms sont dans la cliste déroulante de lacomboBox
Private SubbtnAjouter_clik()
Sheets("Ma base de données").Activate
Range("A1").select
selection.End(xlDwn).select
selection.offset(1, 0).select
ActiveCell=cboClasse.value  [ici c'est une autre comboBox du Userform]
Activecell.offset(0,1).value=txtPrenom
Activecell.offset(0,2).value=txtNom
etc.......jusqu'au contenu de la dernière colonne
End Sub
Cordialement

gbinforme · Answer

Bonjour,

Lorsque tu met du code utilise les balises pour plus de lisibilité.
Voici ton code modifié, en évitant les 'select' surtout en fonctionnant sur 2 feuilles, et en documentant chaque feuille.
Private SubbtnAjouter_clik()
Dim lg1 As Long, lg2 As Long
Dim w1 As Worksheet, w2 As Worksheet
    Set w1 = Sheets("Ma base de données")
    lg1 = w1.Cells(Rows.Count, 1).End(xlUp).Row
    Set w2 = Sheets(combobox_feuilles)  ' à modifier avec ton nom
    lg2 = w2.Cells(Rows.Count, 1).End(xlUp).Row
    w1.Cells(lg1, 1).Value = cboClasse.Value
    w2.Cells(lg2, 1).Value = cboClasse.Value
    w1.Cells(lg1, 2).Value = txtPrenom
    w2.Cells(lg2, 2).Value = txtPrenom
    w1.Cells(lg1, 3).Value = txtNom
    w2.Cells(lg2, 3).Value = txtNom
    etc
End Sub Dupliquer les données ne me parait pas une bonne solution car il vaut mieux les filtrer lorsque l'on en as besoin que les avoir en double.

sekouausud · Answer

Ok, après avoir écrit le code modifié que vous avez bien voulu m'envoyer, j'ai testé testé mon Userform mais j'ai reçu (après avoir clické sur le bouton "Ajouter"), le message suivant << Erreur d'exécution '13' : Incompatibilité de type>> et dans le code écrit le partie " Set w2 = Sheets(cboMois) est coloriée en jaune. Merci encore une fois à vous

sekouausud · Answer

Vous voudriez bien nous excuser par rapport à notre tardive réaction ; on avais une coupure d'électricité.

La valeurs de 'cboMois' est 'Septembre', c'est le nom de la feuille que j'ai sélectionnée dans la liste déroulante 'cboMois' à partir du Userform ; d'ailleurs, au niveau du code écrit si on pointe le curseur sur 'cboMois', on voit écrit dans le ControlTipTexte 'cboMois'="Septembre".

Je ne sais si j'ai bien répondu à votre question concernant la valeur de 'cboMois' car le langage informatique ne m'est familier

gbinforme · Answer

Bonjour, 

Finalement je suis un peu en avance. ;-)

1 bouton : pour une recherche dont les résultats vont apparaître dans les champs du formulaire:
En fait c'est ton combobox 'aller à' qui est documenté avec ta base.
Si tu choisis la classe et/ou le mois, ils seront filtrés.
Si tu choisis un élément de 'aller à' tes saisies sont documentées et tu peux les modifier.

1 bouton : pour faire et enregistrer des modifications. 
Ton bouton enregistre les modifications, même le changement de mois.
J'ai modifié la gestion du bouton ajouter qui englobe aussi modifier maintenant. Seul l'un ou l'autre ou aucun n'est disponible.

https://www.cjoint.com/c/FGzm5gdmC0l 

Bon test.

sekouausud · Answer

Bonjour,

Merci d'avance

Vous vous êtes, sans doute, fait violence pour être en avance, je vous en suis reconnaissant.

Je termine quelques tâches professionnelles avant d'avoir le temps de tester le formulaire.

De toute façon, vous me permettrez certainement de revenir à vous si jamais je tombais encore sur des difficultés dans la manipulation du fichier.

Cordialement

sekouausud · Answer

Bonsoir,
J'ai testé le formulaire mais je suis confronté au problème suivant :
Pour le même élève déjà introduis dans la base de données je ne peux pas modifier pour ajouter d'autres paiements concernant les autres mois sans effacer le 1e mois accompagnant la saisie de départ.

Dans mon projet, un même élève a la possibilité de faire plusieurs paiements en des mois différents et je ne souhaiterais pas à chaque fois reprendre la saisie de toutes les données dudit élève.
Je ne sais pas si j'ai bien assez exposé ma préoccupation.

Merci, encore une fois

Comment agir sur une feuille d'un classer avec une comboBox ?

10 réponses

Discussions similaires