Afficher dernière valeur dans un textbox en fonction combo
Bonjour à tous,
Meilleurs Voeux pour cette année 2015
Voila ce qui m'amène aujourd'hui. Je souhaite afficher sur mon formulaire, le N° du dernier versement effectué par un comité dans un textbox en fonction du comité choisi dans la combobox "Comite".
le code ci-dessous me retourne systématiquement la valeur 0 (zéro).
quelqu'un aurait-il une idée de là ou ça coince ?
merci d'avance
Dan
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Comités"
End Sub
Private Sub ComboBox1_Change()
Dim DernierVers As Integer
With Sheets("Vers_Cotis_Comités")
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Application.ScreenUpdating = False
.Range("B3:C1065").AutoFilter field:=1, Criteria1:=Me.ComboBox1
DernierVers = Application.WorksheetFunction.Max(Range("C3:C1065"))
TextBox1 = DernierVers
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
Bonjour
Si tu joignais ton fichier, ce serait plus facile...
Bye !
Bonjour,
oups, je pensais que le code suffirait. Voici donc le fichier avec
merci d'avance
Bonjour Frangy,
impeccable. Je n'aurai jamais trouvé cette solution.
merci beaucoup