Discussion :

[Mrfreeze117]

Bonjour tous monde,

Voilà mon problème je souhaite remplir une combobox dans un userfrom tous marchais bien. J'ai changé la propriété style de ma combobox en passant de "0 - fmStyleDropDownCombo" à "2- fmStyleDropDownList" le faite de faire ça m'affiche ce message d'erreur:




Le plus bizarre c'est que j'ai fait la même chose pour d'autres combobox et ça marche correctement. C'est la ligne 11 de ma macro qui est en cause. La cellule ciblé contient un chiffre entre 1 et 4.

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
Private Sub MODIF_Click()
 
    ligne = ActiveCell.Row
 
    InsertionModification2.Caption = "Modification Equipement"
    InsertionModification2.BoutonOK1.Caption = "Modifier"
 
    With InsertionModification2
        .ComboBoxVetus.Value = Sheets("PPA").Range("A" & ligne).Value
        .ComboBoxPrio.Value = Sheets("PPA").Range("B" & ligne).Value
        .ComboBoxcriti.Value = Sheets("PPA").Range("C" & ligne).Value
        .ComboBoxlot.Value = Sheets("PPA").Range("D" & ligne).Value
        .ComboBoxFDE.Value = Sheets("PPA").Range("E" & ligne).Value
        .TextBoxLDE.Value = Sheets("PPA").Range("F" & ligne).Value
        .ComboBoxprop.Value = Sheets("PPA").Range("G" & ligne).Value
        .TextBoxB.Value = Sheets("PPA").Range("H" & ligne).Value
        .TextBoxN.Value = Sheets("PPA").Range("I" & ligne).Value
        .TextBoxL.Value = Sheets("PPA").Range("J" & ligne).Value
        .TextBoxMES.Value = Sheets("PPA").Range("K" & ligne).Value
        .TextBoxDVT.Value = Sheets("PPA").Range("L" & ligne).Value
        .ComboBoxinterenv.Value = Sheets("PPA").Range("O" & ligne).Value
        .TextBoxISI.Value = Sheets("PPA").Range("P" & ligne).Value
        .TextBoxDP.Value = Sheets("PPA").Range("Q" & ligne).Value
        .ComboBoxtri.Value = Sheets("PPA").Range("R" & ligne).Value
        .TextBoxMT.Value = Sheets("PPA").Range("U" & ligne).Value
        .TextBoxAPC.Value = Sheets("PPA").Range("V" & ligne).Value
    End With
 
    InsertionModification2.Show
 
 
End Sub

Merci d'avance pour votre aide.