Rebonjour a tous, j'essaye d'adapter un code gérant l'ajout et la sauvegarde de nouvelles valeurs dans un combobox. Comme j'en ai plusieurs de ce type dans mon userformn je souhaite faire une méthode a part que je pourrais appeler au click sur le bouton validation et ce pour tous les combo voulus. Mon problème principal (pour l'instant ! ) est de trouver le bon type pour entrer la colonne concernée en attribut de la méthode et m'en resservir ensuite, comme je ne peut pas appeler la fonction comme je le souhaite (il me retourne un type mismatch quand je met B en deuxième argument par exemple...) je n'ai pas pu tester le reste du code. Si une bonne ame pouvait jeter un Oeil sur ce problème...
Code:
Private Sub cboinc(cboname As String, column As Characters)
Dim L As Integer
Dim i As Integer
Dim Nom As String
Dim Msg As Byte
Nom = cboname.Value
If Nom = "" Then Exit Sub
Msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo)
If Msg = 6 Then
L = Sheets("Code").Range("column&65536").End(xlUp).Row + 1
Sheets("Code").Range("column" & L).Value = Nom
Sheets("Code").Columns("column").Sort Key1:=Range("column&1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("columns&65536").End(xlUp).Row + 1 To 2 Step -1
If Range("a" & i) = Range("a" & i - 1) Then
MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical
Range("a" & i).ClearContents
End If
Next
On Error Resume Next
Sheets("Code").Columns(column).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
ComboBox1.SetFocus
End Sub