Salut,
Voici mon code qui est sur le bouton Valider d'un UserForm. J'aimerais aprés Saisie et Validation que la valeur de ma Combox située sur le premier Userform s'incremente de 1 pour englober la nouvelle saisie. Ca marche pas
(
If Intitule.Value <> "" Then
Pos = Sheets("Provenance").Range("B65536").End(xlUp).Row + 1
' Ajout de l'intitulé
Sheets("Provenance").Range("B" & Pos) = Me.Intitule
' Tri des provenances
Range("B" & Pos).Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B4").Select
' Modification Range listbox
SaisieTitre.ComboBoxProvenance.RowSource = Provenance!Range("B" & Pos)
End If
Unload Me
End Sub
Si quelqu'un voit la soluce...
Merci