XL 2019 Base de données alimentée par un userform ne fonctionne pas

[Yann71]

Bonsoir la com, bonsoir le forum.
Me voici avec un problème récurrent. J'ai une BD alimentée par un Userform. Si ma BD est vide, je ne peux l'alimentée avec l'userform,
par contre si dans les lignes A2 et A3 j'y inscrit des données directement dans ma BD, plus de problème, je peux alimenter par la suite depuis mon l'userform.
Donc en résumé pour que tout fonctionne je dois avoir au minimum 2 lignes remplie. Donc serait-il possible de faire en sorte que tout fonctionne même si
aucune donnée n'est inscrite dans ma BD.

Merci pour votre futur aide.

 

[Yann71]

Re
le code du Bouton "btnModifier" du Userform1!

On travaille sur un Tableau Structuré donc !

Private Sub btnModifier_Click()
Dim i As Integer
r = MsgBox("Voulez-vous confirmer la modification", vbYesNo, "Gestion fonctionnaires")
If r <> 6 Then Exit Sub
With Range("t_BDD").ListObject.DataBodyRange
 For i = 1 To .Rows.Count
     If .Item(i, 1) = Me.txtCode.Text Then
                       .Item(i, 2) = Me.cboCivilité.Text
                       .Item(i, 3) = Me.txtNom.Text
                       .Item(i, 4) = Me.txtPrénom.Text
                       .Item(i, 5) = Me.txtAdresse.Text
                       .Item(i, 6) = Me.txtCP.Text
                       .Item(i, 7) = Me.txtVille.Text
                       .Item(i, 8) = Me.txtTéléphone1.Text
                       .Item(i, 9) = Me.txtTéléphone2.Text
                       .Item(i, 10) = Me.txtMail.Text
           Exit For 'on quitte
     End If
 Next i
End With
End Sub

Jean marie

Bonjour Jean Marie. Malgré le fait que j'ai remplacé les lignes de code par les tiennes, il y a toujours cette erreur, celle qui si le tableau ne comporte aucune donnée, l'userform1 ne s'ouvre pas.

 

[Dranreb]

Tandis que s'il est géré par mes deux objets, ComboBoxLiées et ControlsAssociés, il s'ouvre.
Et on a peu de question à se poser sur son fonctionnement puisque pratiquement tout se définit dans la Sub UserForm_Initialize. Les autres procédures sont à peu près toujours les mêmes, et en cas de besoins particuliers, je vous étudierais les solutions possibles

 

[Yann71]

Bonjour.
Ça doit être à cause d'une options 'Arrêt sur toutes les erreurs' cochée à tort dans VBE, menu Outils, Options…, onglet Général, rubrique Récupération d'erreur. Cochez donc plutôt 'Arrêt dans le module de classe'.

Bonjour, merci pour ton intervention. Je viens de faire la manipulation, mais une autre erreur se manifeste.

 

[Dranreb]

Quelle erreur ?

 

[Yann71]

Tandis que s'il est géré par mes deux objets, ComboBoxLiées et ControlsAssociés, il s'ouvre.
Et on a peu de question à se poser sur son fonctionnement puisque pratiquement tout se définit dans la Sub UserForm_Initialize. Les autres procédures sont à peu près toujours les mêmes, et en cas de besoins particuliers, je vous étudierais les solutions possibles

Merci pour votre aide

 

[Yann71]

Quelle erreur ?

Mon Userform ne s'ouvre pas est l'erreur se situe sur cette ligne
tablo = Range("t_BDD").ListObject.DataBodyRange.Value

 

[Dranreb]

Ce n'est pas une instruction de mes modules de service, ça !
Eux se débrouillent pour prendre en charge les donnée si elles existent. Vous n'avez plus à vous en occuper. C'est la méthode Plage de l'objet ComboBoxLiées qui fait ce qu'il faut. Un objet Worksheet dont la collection ListObjects n'est pas vide lui suffit comme argument. Mais elle accepte aussi un Range ou un ListObject.

 

[Yann71]

Ce n'est pas une instruction de mes modules de service, ça !
Eux se débrouillent pour prendre en charge les donnée si elles existent. Vous n'avez plus à vous en occuper. C'est la méthode Plage de l'objet ComboBoxLiées qui fait ce qu'il faut. Un objet Worksheet dont la collection ListObjects n'est pas vide lui suffit comme argument. Mais elle accepte aussi un Range ou un ListObject.

 

[Yann71]

Excusez moi mais je n'ai pas tout compris, je ne suis pas un pro du VBA. Ce fichier je l'ai pris sur un tuto.
Dans le fichier que je vous joins, il y a en A2 le chiffre 1, si vous ouvrez l'userform Formulaire vous pouvez y accéder et utiliser toutes fonctions. Mais si vous venez à supprimer le client et que vous fermez l'userform et l'ouvrez à nouveau il y a une erreur.

 

[Dranreb]

C'est normal, on vous a dit que le DataBodyRange d'un tableau vide n'est pas défini.
Pourquoi tout le monde préfère toujours bricoler des trucs qui ne marchent pas plutôt que d'utiliser mes modules de service dans des UserForm si rapides à mettre au point par cette voie ?

 

[ChTi160]

Bonjour le Fil

Pourquoi tout le monde préfère toujours bricoler des trucs qui ne marchent pas plutôt que d'utiliser mes modules de service dans des UserForm si rapides à mettre au point par cette voie ?

Ne mélangeons pas , comme disait ma grand mère les torchons avec les serviettes lol
Je reste modeste , a mon petit niveau !
Bonne journée
Jean marie

 

[JM27]

Bonjour
Donc , on doit toujours s'aligner sur ce qu'écrit ce monsieur.

 

[Yann71]

Bonsoir.
Inspirez vous donc plutôt de celui-ci, il est presque pareil.

Sincèrement dsl, je n'avais pas vu que tu avais mis un fichier en téléchargement. Je ne peux que constater qu'il est complet et bien documenté. Je vais m'en inspirer. Je te remercie beaucoup.

 

[ChTi160]

Re
y'a de quoi ! Lol

Sincèrement dsl

Bonne journée quand même.
Jean marie

 

[Yann71]

Ce n'est pas une instruction de mes modules de service, ça !
Eux se débrouillent pour prendre en charge les donnée si elles existent. Vous n'avez plus à vous en occuper. C'est la méthode Plage de l'objet ComboBoxLiées qui fait ce qu'il faut. Un objet Worksheet dont la collection ListObjects n'est pas vide lui suffit comme argument. Mais elle accepte aussi un Range ou un ListObject.