Souci avec Excel VBA

Bonjour

Je viens de changer d'office et ma macro ne marche pas….

microsoft office LTSC professionnel plus 2021

Ligne qui pose souci

 Me.ComboBoxClient.List = [T_client].Value 

message d'erreur: projet ou bibliothèque introuvable....

il ne connait pas format, max, etc...

Ca fait plus de 10 ans que j'utilise cette commande pour alimenter un combobox (merci Boisgontier)....

Avez vous une explication

Merci d'avance

François

Hello Fanfan

Regarde dans l'éditeur VBE, "Outils/Références"

Je ne parierais pas, mais je pense qu'un méchant "MANQUANT" y figure

Bon courage

Bonjour

Merci Cousinhub

Ci joint photo des références

A+ François

Re-,

Bien fait de ne pas parier...

Tu peux joindre ton fichier "malade"?

Ce symptôme est généralement causé par ce "MANQUANT"... D'où ma réponse...

Re-,

Au fait, comme tu es passé à une nouvelle "génération" (ok, pas la dernière, ni l'avant....), il y a certains réglages supplémentaires...

Exemple :

Juste pour information

Bonjour,

Bien fait de ne pas parier...

Ce symptôme est généralement causé par ce "MANQUANT"... D'où ma réponse...

J'aurais fait la même suggestion... et perdu moi aussi.

Je joints le dernier fichier qui me pose problème mais j'ai déjà remarqué ce problème sur d'autre fichier...

A+ François

Re-,

Je viens de l'ouvrir

Et :

Et pour la suite : (une fois décoché le "MANQUANT")

Tu lui mets un .List, alors qu'il y a déjà un RowSource...

Bref, pas glop

Tu dégaines vite cousin.

Moi aussi j'ai ouvert et j'allais répondre sur le manquant et en plus on ne voit pas cette référence dans la première image jointe.

Je vous laisse tous les 2.

Hi,

Alex020181 a écrit :

Tu dégaines vite cousin.

Moi aussi j'ai ouvert et j'allais répondre sur le manquant et en plus on ne voit pas cette référence dans la première image jointe.

Je vous laisse tous les 2.

Non, n'abandonne pas...

J'ai essayé de continuer, mais il y a tellement d'erreurs, que, n'ayant plus qu'une certaine relation (je pense que la prescription peut être évoquée) avec le VBA, j'ai juste voulu aider...

J'ai quasi abandonné VBA, à mon grand bien..

Bonsoir,

essayez comme ceci -->

 Me.ComboBoxClient.List = Sheets("Listes").Range("T_client").Value

Cordialement

Edit: le code initialize comme ceci

With Sheets("listes")
    Me.ComboBoxClient.List = .Range("T_client").Value ' Remplir Client
    Me.ComboBoxEspece.List = .Range("T_espece").Value ' Remplir Espèce
End With

With Sheets("StockPoissons").Range("T_Stock").ListObject
    If .ListRows.Count > 1 Then
        ComboBoxRecherche.List = .ListColumns(2).DataBodyRange.Value
    Else
        On Error Resume Next
        ComboBoxRecherche.AddItem .ListColumns(2).DataBodyRange.Value
    End If
    If .Item(1, 1) <> "" Then Me.ScrollBar1.Max = .Rows.Count + 1 Else Me.ScrollBar1.Max = 1
End With

Me.ScrollBar1.Value = Me.ScrollBar1.Max
End Sub

Attention il y a un Rowsource à supprimer sur la comboboxRecherche

Bonjour et MERCI à tous les 3...

Apparemment tout va bien…

J'ai pas compris pourquoi le manquant wps ....

Pour l'appli c'est en essayant d'aider un utilisateur que je me suis énervé …

Donc Merci et bonne journée

A+ François