Hello l'équipe,

J'ai consulter vos tutoriaux pour créer une liste déroulante qui va rechercher les données de la colonne A d'une feuille nommée RH et de prendre les valeurs de façon unique.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
Dim i As Integer
 
For i = 1 To Sheets("RH").Range("A65536").End(xlUp).Row
 
    CboNom = Sheets("RH").Range("A" & i)
 
    If CboNom.ListIndex = -1 Then CboNom.AddItem Sheets("RH").Range("A" & i)
 
Next i
 
End Sub
Si j'enlève la ligne du IF, je n'ai pas de message d'erreur mais il inscrit dans la liste que le dernier élément de ma colonne A... Normal...

Mais si je laisse le IF, j'ai le message d'erreur suivant : Erreur d'exécution '380' Impossible de définir la propriété Value. Valeur de propriété non valide.

La fenêtre de déboguage m'emmène pas sur le code du userform mais sur le code de la feuille où j'ai le bouton qui lance le userform...

J'ai esssayé de remplacé la valeur -1 par 0 ou 1 et la macro passe... bien sûr que la liste ne s'affiche pas correctement mais il n'y a pas de bug... alors que dès que je note -1, il m'emmène sur l'erreur 380...

Est-ce que quelqu'un peut m'orienter ? Car là je sèche...

Merci et belle soirée,