Discussion :

[ddkmie]

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...

[jfontaine]

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

[ddkmie]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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!!!

[jfontaine]

pour la commencer en 14, testes ta variable derligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ddkmie]

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...

[ddkmie]

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...