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.

[Lilou51]

Bonjour,

Si j'ai bien compris, tu imposes une valeur à une combobox qui est limité au niveau de ses valeurs (il faut choisir parmi elles).

Il me semble qu'il faut d'abord que la combobox soit chargées de ces valeurs parmi lesquelles tu pourras choisir.

Ex :

Code :

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

1
2
3
4
5
6
Me.ComboBox1.AddItem 1
Me.ComboBox1.AddItem 2
Me.ComboBox1.AddItem 3
Me.ComboBox1.AddItem 4
 
Me.ComboBox1.Value = 2

Est-ce que la Combobox est bien chargée avant de lancer la procédure ?
Elise

[Mrfreeze117]

Oui c'est ça j'impose la valeur de la combobox. (Avant l’initialisation il me semble). Mais ce que je ne comprends pas c'est pourquoi il y a qu'une seule combobox qui ne marche pas. Si ma méthode est mauvaise ça devrait marcher pour aucune.

Voici mon initialisation au cas ou:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim ligne As Long
 
    ComboBoxVetus.List() = ActiveWorkbook.Sheets("Table Validation").Range("I2:I5").Value
    ComboBoxPrio.AddItem ("1")
    ComboBoxPrio.AddItem ("2")
    ComboBoxPrio.AddItem ("3")
    ComboBoxcriti.List() = ActiveWorkbook.Sheets("Table Validation").Range("L2:L5").Value
    ComboBoxlot.List() = ActiveWorkbook.Sheets("Table Validation").Range("N2:N15").Value
    ComboBoxinterenv.List() = ActiveWorkbook.Sheets("Table Validation").Range("V2:V10").Value
    ComboBoxtri.List() = ActiveWorkbook.Sheets("Table Validation").Range("T2:T6").Value

[Lilou51]

Bonjour,

Comment est complété la cellule :

Code :

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

Sheets("PPA").Range("C" & ligne).Value

Es-tu sûr qu'il s'agit d'un chiffre et non d'un chiffre en format texte pour VBA ?

[Mrfreeze117]

Elle est remplie à l'aide d'une combobox dont l'initoialisaiton est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim ligne As Long
 
    ComboBoxVetus.List() = ActiveWorkbook.Sheets("Table Validation").Range("I2:I5").Value
    ComboBoxPrio.AddItem ("1")
    ComboBoxPrio.AddItem ("2")
    ComboBoxPrio.AddItem ("3")
    ComboBoxcriti.List() = ActiveWorkbook.Sheets("Table Validation").Range("L2:L5").Value
    ComboBoxlot.List() = ActiveWorkbook.Sheets("Table Validation").Range("N2:N15").Value
    ComboBoxinterenv.List() = ActiveWorkbook.Sheets("Table Validation").Range("V2:V10").Value
    ComboBoxtri.List() = ActiveWorkbook.Sheets("Table Validation").Range("T2:T6").Value

Ça correspond à la ligne 8. Le format des cellule L2:L5 sont en standard

[Lilou51]

Si tu ajoutes dans ta procédure Private Sub MODIF_Click(), la ligne suivante et que tu fais un F8 (pas à pas)

Code :

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

Test = Sheets("PPA").Range("C" & ligne).Value

juste avant ta ligne

Code :

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

.ComboBoxcriti.Value = Sheets("PPA").Range("C" & ligne).Value

En passant la souris, la valeur de Test est :
Test = 4
ou
Test = "4"
???