Remplir une combobox

Version imprimable

1 pièce(s) jointe(s)

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:

Pièce jointe 168180

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:

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.

05/02/2015, 16h54
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:

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

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:

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

09/02/2015, 12h14
Lilou51

Bonjour,

Comment est complété la cellule :

Code:

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 ?

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

Code:

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

09/02/2015, 13h02
Lilou51

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

Code:

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

juste avant ta ligne

Code:

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

En passant la souris, la valeur de Test est :
Test = 4
ou
Test = "4"
???
09/02/2015, 13h14
Mrfreeze117

C'est 4 sans les "".

Je viens de vérifier l’initialisation ce fait avant d'imposer mes valeurs.

La ligne du dessus

Code:

.ComboBoxPrio.Value = Sheets("PPA").Range("B" & ligne).Value

les chiffres sont aussi sans les "" et pourtant ça marche correctement.
09/02/2015, 14h02
Lilou51

Pardon, par définition, le choix de style empêche la modification par code VBA :

Drop-down List Box
A drop-down list box (Style = 2 – Dropdown List) is like a regular list box — it displays a list of items from which a user must choose. Unlike list boxes, however, the list is not displayed until you click the arrow to the right of the box. The key difference between this and a drop-down combo box is that the user can't type into the box, he can only select an item from the list. Use this type of list box when space is at a premium.

Après, si c'était la solution pour limiter la saisie de caractère non autorisée. La réponse se trouve ds la fonction : MatchRequired.
09/02/2015, 14h39
Mrfreeze117

Oui ça ressemble à ce que je cherche. Je souhaite que l'on puisse sélectionner via la combobox mais aussi saisir le texte si et seulement si celui ci est contenue dans la combobox.
09/02/2015, 16h00
Lilou51

J'imagine qu'avec MatchRequired = true, tu as ta réponse

==> mettre en résolu.
09/02/2015, 16h07
Mrfreeze117

1 pièce(s) jointe(s)

Ba non justement ça me mets:

Pièce jointe 168516

Toujours la même combobox qui me crash le truc

C'est bizarre... Reprenons

On initialise avec :

Code:

ComboBoxcriti.List() = ActiveWorkbook.Sheets("Table Validation").Range("L2:L5").Value

ds la plage Range("L2:L5") on a des chiffres de 1 à 4,

On met une donnée chiffrée entre 1 & 4 dans Sheets("PPA").Range("C" & ligne).Value

Puis en cliquant, on force la valeur :

Code:

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

rappelons que le style est repassé à 0 - fmStyleDropDownCombo
Et que matchrequired = true.

Quand je teste de mon côté, ça fonctionne... mais bon...
Quand j'ai un blocage comme cela, je fais une boucle pour m'assurer que les données sont bien correctes. On avait essayé sur la valeur de Sheets("PPA").Range("C" & ligne).Value, essayons à présent également sur toutes les valeurs de la combobox pour voir si on n'a pas un problème.

Chez moi ça donne (avec un formulaire ayant 1 combo + 1 bouton) ==> avance avec F8 (et regarde la valeur de test à chaque fois)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub UserForm_Initialize() Me.ComboBox1.List = ActiveSheet.Range("A1:A4").Value 'valeur de 1 à 4 dans la plage ActiveSheet.Range("B2").Value = 3 End Sub Private Sub CommandButton1_Click() For i = 0 To Me.ComboBox1.ListCount - 1 test = Me.ComboBox1.List(i) Next test = ActiveSheet.Range("B2").Value Me.ComboBox1.Value = ActiveSheet.Range("B2").Value End Sub

11/02/2015, 18h09
Mrfreeze117

C'est bien ça par contre je ne comprends pas ce que tu me demandes de faire.
12/02/2015, 10h03
Lilou51

Je te demande de faire un pas à pas pour vérifier que la valeur de la varaible TEST à chaque à fois qu'elle est modifié pour t'assurer qu'il n'y a pas un pbl qq part... Et pouvoir s'assurer que les 5 fois où la variable TEST est mouvementée, on a bien une valeur numérique et non un chiffre entouré de guillements (et donc une valeur Texte pour VBA)
12/02/2015, 17h38
Mrfreeze117

Je viens de vérifier la combobox c'est bien des chiffres aussi (il n'y a pas de guillemets).

Je viens de remarquer quelque chose. ce n'est pas le fait d'écrire dans la combobox qui pause problème.
Quand je clique dedans sans rien faire et je passe a une autre ça me mets le même message d'erreur.
Est-il possible que lorsque je clique dans la combobox (pas sur la flèche) cela devienne du texte et du coup plus acceptable?

J'ai fait un autre test j'ai initialisé une autre combobox avec la même plage de donnée et ça me donne le même problème.
Code:

1 2 3 4 5 6 ComboBoxPrio.List() = ActiveWorkbook.Sheets("Table Validation").Range("L2:L4").Value ' ComboBoxPrio.AddItem ("1") ' ComboBoxPrio.AddItem ("2") ' ComboBoxPrio.AddItem ("3") ComboBoxcriti.List() = ActiveWorkbook.Sheets("Table Validation").Range("L2:L5").Value

13/02/2015, 13h08
Lilou51

Bonjour Mr Freeze 117 !

Une fois n'est pas coutume, mais il doit me manquer des infos pour résoudre ton pbl et, pour répondre au + simple, te serait-il possible de joindre le fichier (sans données confidentielle ou en MP).
13/02/2015, 13h28
Mrfreeze117

1 pièce(s) jointe(s)

Voici mon fichier.

C'est le problème ce situe sur le bouton MODIFIER EQUIPEMENT.

Le mot de passe pour enlever la protection des feuilles est Sxo.

Les valeurs sont imposées dans la feuille PPA, et l'userform est InsertionModification

la ComboBox a résolument envie de mettre une donnée texte et interprète n'importe quel chiffre en texte.... Qu'à cela ne tienne, on va lui donner du texte...

SOLUTION 1 :
Devant chacune des valeurs de

Code:

ActiveWorkbook.Sheets("Table Validation").Range("L2:L5").Value

mets une apostrophe
'1
'2

Et pour le reste ne change rien...

- OU - SOLUTION 2 :
Faire une boucle sur chacune des valeurs de la plage pour ajouter les éléments sous forme de texte
Code:

1 2 3 4 5 6 7 Dim Plage As Range Dim Cellule As Range Set Plage = ThisWorkbook.Sheets("Table Validation").Range("L2:L5") For Each Cellule In Plage Me.ComboBoxcriti.AddItem CStr(Cellule) Next
Je n'ai pas lu la suite du code, mais tu feras attention, si tu a besoin de chiffres après, il faudra convertir la donnée texte en chiffre.

A+

16/02/2015, 10h14
Mrfreeze117
Merci pour ton aide,

Au final je vais initialiser les valeurs directement dans le code. ça marche bien pour ma comboboxPrio.
Code:

1 2 3 4 ComboBoxcriti.AddItem ("1") ComboBoxcriti.AddItem ("2") ComboBoxcriti.AddItem ("3") ComboBoxcriti.AddItem ("4")
J'ai essayé et ça marche.

C'est moins propre mais bon ça marche.

j’aurai aimé comprendre pourquoi ça ne marchait pas avec l'autre méthode.