Discussion :

[charly013]

Bonjour

j'utilise le code suivant sur un userform pour une option de recherche
malheureusement lorsque le produit ne figure pas un message d'erreur apparaît
j'aimerai pouvoir changer cela par un message d'avertissement mais .....je ne sais pas comment faire

quelqu'un peut il m'aider a effectuer cette modif
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub ComboBox1_Change()
Dim X As Integer
 
X = Me.ComboBox1.ListIndex + 1
TBoxNomProd = Worksheets("Feuil6").Cells(X, 2).Value
TBoxCode = Worksheets("Feuil6").Cells(X, 3).Value
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Sub test()
    recherche.Show
End Sub
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim Dlig, i As Long
 
With Worksheets("Feuil6")
    Dlig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Dlig
        ComboBox1.AddItem .Cells(i, 1).Value
    Next i
End With
End Sub

vous remerciant tous

[halaster08]

malheureusement lorsque le produit ne figure pas un message d'erreur apparaît
j'aimerai pouvoir changer cela par un message d'avertissement mais .....je ne sais pas comment faire

Bonjour,
Je te conseille de lire ce tuto sur la gestion des erreurs: https://silkyroad.developpez.com/VBA...nErreurs/#LIII

ps: tu as oublié la balise de fin [/code]

[Pierre Fauconnier]

Salut.

Bonjour,
Je te conseille de lire ce tuto sur la gestion des erreurs: https://silkyroad.developpez.com/VBA...nErreurs/#LIII[…]

Attention que la gestion d'erreur ne sert pas à détecter des erreurs métier. Si un produit risque de ne pas exister, il vaut mieux tester son existence par une fonction ou adapter son code que de "gérer" la non-existence à coup de On Error. La finalité de la gestion des erreurs avec On Error n'est pas de pallier du mauvais code

@Charly:
Pourrais-tu dire sur quelle ligne tu as l'erreur dans le code que tu as donné?

PS: au passage, pas besoin de donner tout le code de ton userform ou de ton module. Seule la procédure/fonction qui pose problème, en mentionnant la ligne sur laquelle survient l'erreur, est nécessaire dans un premier temps...

[Theze]

Bonjour,

Dans le code que tu nous montres, tu ne fais pas de recherche, tu affectes deux valeurs se trouvant dans deux cellules à tes deux variables. Selon le type que tu leur as donné (déclarées en tête de module je présume), il ce peut que tu ais une incompatibilité de type
A ce stade, il faut plus d'explications

[Pierre Fauconnier]

Salut Theeze, tu vas bien?

A mon avis, les tboXXX sont des TextBOx de userform.

De toute façon, il y a de la conception à revoir...

• Dans la macro Combo_Change, on lie la sélection à la ligne de la feuille. Si, pour une raison donnée, le tableau Excel qui alimente le combobox ne démarre plus en ligne 1, on est foutu;
• La lecture du code me fait dire que les données commencent en ligne 1, ce qui m'étonne car il devrait y avoir une ligne d'entête;
• Initialiser le combobox à l'initialisation du userform n'est pas une bonne idée, surtout avec Worksheets("xxx");
• Renommer les contrôles n'est à mon avis pas une option;
• La version Excel n'est pas renseignée, mais je gage qu'elle est supérieure à 2003 => utilisation obligatoire des tableaux structurés pour un code plus propre et plus maintenable;
• ...

Voili voilà...

[Pierre Fauconnier]

Pour compléter mon propos.

Voici un exemple léger qui illustre que les tableaux structurés facilitent grandement l'écriture du code.

Voici un tableau structuré avec quelques données. Je l'ai appelé t_Contacts. Il est placé ailleurs qu'en A1 pour bien illustrer que sa position n'a aucune importance dans le code. Il pourra être déplacé sur une autre feuille sans que le code qui le manipule doive être modifié, ceci grâce à l'utilisation des références structurées au sein du code.


Voici un userform basique appelé usfContact qui contient un combobox cboCode et deux textboxes tboFirstName et tboLastName.



Voici le code du userform. On remarque que l'évènement Initialize n'est pas utilisé (dans les faits, ça sert rarement à quelque chose, ce truc). Le seul code qui est utilisé ici sert à remplir les textbox. Ici, j'ai mis le code directement dans l'évènement Change du combo. Dans la vraie vie, je délèguerais cela à une procédure spécifique. On remarque que l'utilisation des plages nommées s'appuyant sur les références structurées facilite l'écriture du code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cboCode_Change()
  tboFirstName.Value = Range("t_Contacts[Prénom]")(cboCode.ListIndex + 1).Value
  tboLastName.Value = Range("t_Contacts[Nom]")(cboCode.ListIndex + 1).Value
End Sub

Pour initialiser le combobox, on se sert également des références structurées, pour éviter le End(XlUp) qui est très vieillot et qui fige le tableau à un endroit précis du classeur (feuille, colonne, …). Le code suivant est placé dans un module standard. Il suffit de démarrer cette procédure pour charger le combobox puis afficher le userform.
(Attention, j'ai ajouté le signe _ dans la référence structurée qui pointe vers la colonne Code du tableau à cause des balises de code du forum. Il faut supprimer ce signe lors de l'utilisation du code!!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub EditContact()
  Unload usfContact
  usfContact.cboCode.List = Range("t_Contacts[_Code]").Value
  usfContact.Show
End Sub

Bien entendu, ceci s'appuie uniquement sur le code donné par Charly au départ. En fonction d'un projet plus construit et de la finalité du userform, le code sera adapté et modifié.

Un de mes derniers billets de blog expose une façon assez générique d'utiliser un userform pour éditer les données d'un tableau, et cette discussion, à l'origine du billet, pourrait être intéressante à lire et à comprendre…