Formulaire avec combobox

Bjr a tout le monde, débutant en VBA; je souhaiterais modifier légèrement le code en pièce jointe afin que la première sélection validée s'inscrive en E14 car un tableau de résultats est déjà réalisé et en outre pouvoir mettre a jour la liste correspondante a la combobox avec fonction DÉCALER; merci d'avance...:cry:

Bonjour,

Mets le code qui te pose problème dans ton post plutôt que de joindre directement un fichier.
Et explique clairement sur quelle partie tu bloques

Bjr jfontaine, mille excuses pour mon inexpérience; je vais suivre tes conseils et mettre le code dans mon post:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub ComboBox1_Change()   End Sub   Private Sub CommandButton1_Click() Dim ctrl As Control Dim r As Integer Dim t As Integer Dim derligne As Integer   With Worksheets("Feuil1") derligne = .Range("D65536").End(xlUp).Row + 1 For Each ctrl In UserForm1.Controls r = Val(ctrl.Tag) If r > 0 Then Worksheets("Feuil1").Cells(derligne, r) = ctrl Next End With ComboBox1 = "" End End Sub   Private Sub UserForm_Click()   End Sub

---

je souhaiterais inscrire la premiére sélection en E14 et non pas en E2 et ensuite pouvoir mettre a jour ma liste avec la fonction :

Code:

---

=DECALER(Liste!$A$2;;;NBVAL(Liste!$A:$A)-1) sur excel et Liste.RowSource = "Feuil2!A2:A" & Sheets("Feuil2").Cells(1, 1).End(xlDown).Row

---

dans mon code VBA!

MERCI BCP!!!

pour la commencer en 14, testes ta variable derligne

Code:

---

1 2 3

derligne = .Range("D65536").End(xlUp).Row + 1 if derligne < 14 then derligne = 14

---

et pour gérer la plage du RowSource (idem pour ta formule)

Code:

---

Liste.RowSource = "Feuil2!A14:A" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row

---

Merci jfontaine, la première sélection s'inscrit bien en E14 et ça c'est super. Par contre je me suis mal expliqué pour la mise a jour de la liste; en effet ma liste est sur une autre feuille du classeur et ce que je souhaites c'est que en ajoutant un nom sur cette liste ma liste déroulante sur ma combobox l'affiche et le prenne en compte dans l'autre feuille. La modification de l'userform initialize semble être une supposition mais ou le mettre dans le code? Merci d'avance pour l'aide fournie...

Bjr à tout le monde, je souhaiterais améliorer mon code avec 2 options qui spécifierais le sexe (H/F) dans mon useform avec l'utilisation de frame mais je ne sais pas comment l'intégrer. Ensuite je désirerais faire une macro de comparaison de liste et compléter la liste de la feuille active en fonction de la liste de ma combobox en y ajoutant les éléments manquants; est-il possible d'avoir l'userform toujours actif même si on valide son choix? Je vous remercie par avance de votre aide et m’excuse pour mon inexpérience...:cry: