Microsoft 365 Variable objet ou variable de bloc with non définie

[Olive de BI]

Bonjour à tous,
J'ai sur une feuille nommée Bilan un tableau TBilan avec dans une colonne qui a un en-tête "Patient" le nom des patients.
J'ai un formulaire sur d'autres feuilles pour entrer mes nouveaux patients et une combobox dans ce formulaire qui reprend, sous forme de liste déroulante ou en commençant à taper les 1ère lettres le nom des patients déjà enregistrés.
Quand le Tableau TBilan a 2 lignes, même vide pas de problème pour le lancement de mon formulaire et l'ajout de nouveau patient.
S'il n'y a qu'une ligne vide j'obtient le message: Erreur d'exécution '91' variable objet ou variable de bloc With non définie.
Voici le code qui semble poser problème:

    Dim tBilan As ListObject
    Set tBilan = Range("TBilan").ListObject
    With tBilan
    Me.txtPatient.List = .ListColumns("Patient").DataBodyRange.Value
    End With

La dernière ligne avant End With est celle qui au débogage déclenche l'erreur.
J'ai cru comprendre dans mes recherche que ListObject ne pouvait pas pointer vers quelque chose de vide.
Auriez vous une idée pour solutionner mon problème?
Merci de votre attention

 

[Dranreb]

Bonjour.
Testez If .ListRows.Count > 0 Then
En effet si la condition est fausse les DataBodyRange ne sont pas initialisés.

 

[Olive de BI]

Bonjour.
Testez If .ListRows.Count > 0 Then
En effet si la condition est fausse les DataBodyRange ne sont pas initialisés.

Merci, simple et efficace!
Exactement ce qu'il me fallait!
Bonne Soirée

 

[Olive de BI]

Bonjour.
Testez If .ListRows.Count > 0 Then
En effet si la condition est fausse les DataBodyRange ne sont pas initialisés.

Bonjour Dranreb,
J'ai modifié mon code et je n'ai plus l'erreur si mon tableau TBilan est vide mais quand j'ajoute une entrée j'ai maintenant une erreur 381: Impossible de définir la propriété LIst.Index de table de propriété non valide.
Je ne mets sûrement pas au bon endroit votre proposition.
Auriez-vous plus de précision?
Merci

Private Sub UserForm_Initialize()
    Dim tBilan As ListObject
    Set tBilan = Range("TBilan").ListObject
    With tBilan
    If .ListRows.Count > 0 Then
    Me.txtPatient.List = .ListColumns("Patient").DataBodyRange.Value
    End If
    End With
    'Déclaration des variables
    Dim NouvelID As Long
    Dim ws As Worksheet
    Me.cboMois.SetFocus
    Me.lblMessage = "Veuillez choisir un mois pour le nouveau patient"
    cboMois.ListIndex = Month(Now()) - 1
End Sub

 

[Dranreb]

Dans ce cas particulier DatabodyRange ne correspond qu'à une seule cellule, et du coup sa Value n'est plus un tableau. Vous auriez peut être intérêt à le tester aussi, et faire :

With tBilan
   Select Case .ListRows.Count
      Case 0: CBxPatient.Clear
      Case 1: CBxPatient.List = Array(.ListRows(1).Range.Value)
      Case Else: CBxPatient.List = .ListColumns("Patient").DataBodyRange.Value
      End Select
   End With

 

[Olive de BI]

Merci pour la rapidité de votre réponse.
J'ai essayé sans succès.
Je vous joins le fichier de mon projet. C'est beaucoup de bricolage alors il y a certainement pas mal d'incohérences.
J'espère que cela pourra aider à la résolution.
Merci encore.

Je viens de trouver!
C'est bien If .ListRows.Count > 0 Then qui solutionne le problème en remplaçant 0 par 1.

@Dranreb Un grand merci pour votre solution!

 

[Dranreb]

Ah oui mais dans ce cas vous ne renseignez pas la liste de la ComboBox lorsqu'il y a tout de même une ligne …

 

[Olive de BI]

Mince, c'est bien vrai!
Ce n'est qu'à partir de l'insertion d'une deuxième entrée que la 1ère apparait!
Mettre 1 solutionne les erreurs mais ne permet pas de renseigner la combobox lorsqu'il y a une seule ligne.
Très bizarre!
Je vous joins le fichier du coup...
Si jamais vous avez le temps.
Merci

 

[Dranreb]

Le code proposé en #5 ne va pas ? C'est vrai que je ne l'ai pas testé.
(et j'avais dout d'abord oublié de le mettre entre balises CODE.)

 

[Olive de BI]

Le code proposé en #5 ne va pas ? C'est vrai que je ne l'ai pas testé.
(et j'avais dout d'abord oublié de le mettre entre balises CODE.)

Non j'obtiens à l'exécution de Case 1: Erreur d'exécution '424' Objet requis

 

[Dranreb]

N'est ce pas dû au nom CBxPatient que j'ai suggéré pour la ComboBox au lieu de txtPatient, au moins ?

 

[Olive de BI]

N'est ce pas dû au nom CBxPatient que j'ai suggéré pour la ComboBox au lieu de txtPatient, au moins ?

Ça a pour effet de supprimer l'erreur effectivement! (je n'y avais pas prêté garde) mais par contre s'il n'y a qu'une seule entrée dans TBilan, la liste déroulante n'est pas renseignée comme en faisant 1 au lieu de 0 dans votre première proposition.

 

[Dranreb]

Bizarre.
Essayez :

      Case 1: CBxPatient.Clear: CBxPatient.AddItem .ListRows(1).Range.Value

Ou … non je m'étais trompé … Peut être :

      Case 1: CBxPatient.List = Array(.ListColumns("Patient").DataBodyRange.Value)

 

[Olive de BI]

En utilisant le débogage pas à pas (F8) et avec votre dernière proposition c'est dès que j'arrive sur DataBodyRange.Value de Case Else que l'erreur se produit.

 

[Dranreb]

Mais Case Else c'est le cas où .ListRows.Count > 1 ! Pourquoi ça ne marche plus ?