Discussion :

[formabox]

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,

[casefayere]

Bonsoir,
Un exemple avec lequel tu pourras te reservir des deux derniers modules pour d'autres controles à remplir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Dim Doubl As Object, derlg As Long, tb(), listA()
Private Sub UserForm_Initialize()
Test_doublons
CboNom.List = WorksheetFunction.Transpose(listA)
End Sub
Sub Test_doublons()
Set Doubl = CreateObject("Scripting.Dictionary")
Erase tb
With Sheets("RH")
   derlg = .Range("A" & .Rows.Count).End(xlUp).Row
   IdentifieDoublons .Range("A3:A" & derlg)
End With
End Sub
 
Sub IdentifieDoublons(Plg As Range)
Dim x As Long, y As Long
y = 0
ReDim tb(1 To derlg)
tb = Plg.Value
On Error Resume Next
For x = 1 To UBound(tb)
  Doubl.Add tb(x, 1), CStr(tb(x, 1))
  If Err = 0 Then
    y = y + 1
    ReDim Preserve listA(1 To y)
    listA(y) = tb(x, 1)
  End If
  Err.Clear
Next x
End Sub

Bonne soirée