Erreur code 380 propriété rowsource urgent.... Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Louis SCH
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 30 juillet 2019
Version d'Excel : Excel 2007 FR

Message par Louis SCH » 6 janvier 2020, 07:52

Bonjour à tous,

Je viens à vous car j'ai un léger problème à résoudre avant ce soir...
Dans le fichier que je vais vous joindre j'ai du code qui fonctionne parfaitement sur mon pc.
Le problème est que je peux l'ouvrir sans soucis sur mon pc mais que dès lors que quelqu'un l'ouvre par onedrive certain ont le problème 380 code RowSource...
Je n'ai aucune idée de comment résoudre ce problème si quelqu'un pourrait me sauver ça serait top !

Merci d'avance...
Planning 2020.xlsm
(388.35 Kio) Téléchargé 7 fois
Avatar du membre
jarodness21
Membre habitué
Membre habitué
Messages : 110
Appréciations reçues : 8
Inscrit le : 8 juillet 2015
Version d'Excel : 2016 FR

Message par jarodness21 » 6 janvier 2020, 08:42

bonjour
je ne connait pas le comportement de onedrive pour le VBA

mais d'après ce que j'ai pu comprendre de ton fichier le problème viendrait de la génération de la liste de choix pour le remplissage des tableaux.
Private Sub InitRowSource()
 With Me.lbSal
 .RowSource = Range("LSalbis").Address
 End With
End Sub
essai de mettre en dur dans le code ta liste de choix pour voir si cela viens de là.

Cordialement

jarodness
L
Louis SCH
Jeune membre
Jeune membre
Messages : 38
Inscrit le : 30 juillet 2019
Version d'Excel : Excel 2007 FR

Message par Louis SCH » 6 janvier 2020, 09:41

Merci de ta réponse, mais je n’arrive pas à savoir ce qu’il faut que je change et où exactement... désolé
Est ce que tu peux mieux t’expliquer ? Je n’y connais pas grand chose en code ...
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'219
Appréciations reçues : 371
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 6 janvier 2020, 10:08

Bonjour,

essaie d'utiliser .List plutôt :
    With Me.lbSal
        .List = Range("LSalbis").Value
    End With
par contre je ne sais pas ce qu'a ton fichier chez moi mais impossible de déclencher les événementielles, et donc de tester quoique ce soit.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message