RowSource ne fonctionne pas sur mon macRésolu

Question

Bonjour, 

Voici le contexte :
J'ai créé, dans une feuille nommée "Factures", un UserForm dans lequel j'ai intégré une ListBox nommée "cmbCatCharge". Dans une autre feuille, nommée "Listes", j'ai enregistré les données devant figurer dans la ListBox dans une plage de cellules nommée "CategoriesCharges".
Pour remplir ma ListBox "cmbCatCharge", j'ai utilisé le code suivant :

     cmbCatCharge.RowSource = ("Listes!CategoriesCharges")

Tout fonctionne parfaitement sur mon pc et je suis très content!

Voici mon problème :
lorsque je travaille sur un mac et que je lance mon UserForm, un message d'erreur apparait, qui me dit :

     Erreur d'exécution "380":
     Impossible de définir la propriété RowSource. Valeur de propriété non valide.

J'ai essayé différentes choses : enlever le Liste!, enlever les (), etc. mais rien n'y fait.
Est-ce que quelqu'un peut m'aider pour résoudre le bug car j'ai vraiment besoin de pouvoir travailler sur un mac.

Merci d'avance !!

pijaku · Accepted Answer

Bonjour,

En effet, la propriété RowSource des listbox (idem pour les combobox) n'est pas gérée sous Mac.
Pour assurer cette compatibilité et la portabilité indifféremment sur Mac et Windows, tu peux utiliser une affectation différente des sources de ta liste.
Un exemple :
Private Sub UserForm_Initialize()
With Sheets("Listes")
  Dim Lig As Integer
  For Lig=1 to 50
    cmbCatCharge.Additem Cells(Lig,1)
  Next
End With
End Sub

Ou encore, si ton range CategoriesCharges est un nom définit dans le gestionnaire de noms :
Private Sub UserForm_Initialize()
listCatCharge.Clear
Dim Cel As Range
For Each Cel In Range("CategoriesCharges")
  listCatCharge.AddItem Cel.Value
Next
End Sub
Cette deuxième méthode est un peu plus "gourmande" en mémoire (ça reste infime... 1 Objet Range au lieu d'1 Integer...), mais possède l'avantage suivant :
En cas d'ajout de valeur dans ta feuille, tu n'as plus à revenir changer ton code. Il te suffit de changer la plage de cellules affectée au nom CategoriesCharges....
Le second avantage est de ne pas devoir référencer le nom de ta feuille dans le code... En effet, par la définition même de ton nom, Range("CategoriesCharges") "pointe" forcément sur la feuille indiquée dans le gestionnaire des noms...

Un autre détail me chagrine, mais c'est plus sémantique qu'autre chose. Tu nommes ta listboc cmbCatCharge. Le préfixe cmb me fait davantage penser à une combobox qu'à une listbox. Je te conseille, si ton contrôle est bien une listbox, de le nommer : listCatCharge...

Cordialement, 
Franck

RowSource ne fonctionne pas sur mon mac

1 réponse

Votre réponse

Discussions similaires