Re: => DEMO UserForm ComboBox Gestion de Database (MAJ Doublon/Supression etc)
Bonjour, j'ai utilisé votre exemple (
Auteur: @+Thierry (195.78.6.---)
Date: 15-02-03 12:29
Pièce jointe: USF_ComboBox-Gestion-List.zip (15k) ) sur une liste dans un fichier et tout marche très bien. J'ai voulu m'en servir sur une autre liste dans une autre feuille du même classeur et cette fois -ci, l'userform ce lance bien avec le bon contenu dans la combo, je peux supprimer normalement lmais mon pb est lors de l'ajout d'un élément. il me marque :
" la méthode 'Range de l'objet'_Global a échoué"
si je fait débogage, voici ce qui apparait
Dim L As Integer
Dim i As Integer
Dim Nom As String
Dim Msg As Byte
Nom = ComboBox1.Value
If Nom = "" Then Exit Sub
Msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "fb40")
If Msg = 6 Then
L = Sheets("Collectivite").Range("A65536").End(xlUp).Row + 1
Sheets("Collectivite").Range("A" & L).Value = Nom
Sheets("Collectivite").Columns("A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
' C EST LA LIGNE FOR EN DESSOUS QUI EST SURLIGNE
For i = Range("Collectivite").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, "fb40"
Range("a" & i).ClearContents
End If
Next
On Error Resume Next
Sheets("Collectivite").Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Ini
Combo
End If
ComboBox1.SetFocus
J'ai donc ce message d'erreur qui apparait mais il me rajoute qu'en même ma saisi dans la liste. A l'aide, merci.