XL 2019 VBA - problème call depuis module de classe

JohnnyBGood · Aujourd'hui à 10:41

Amis du VBA, bonjour !

J'ai un petit souci avec un module de classe...
Je fais un clic droit sur un label dans un USF afin d'ouvrir, par le module de classe, un cadre d'aide, d'afficher le caption du label dans le champ de recherche de ce cadre, de déclencher la recherche, de surligner et d'atteindre le mot recherché.
Voilà mon code :

VB:

                NomUF.A_Aide.Value = True 'valeur du toogle ouvrant le cadre d'aide. NomUF est le nom du formulaire
                NomUF.TBX_ChercheMot.Text = TargetBox.Caption 'champ de recherche dans le cadre d'aide
                    Call NomUF.A_Aide_Click 'ouvre le cadre d'aide
                        NomUF.CB_Texte_Suivant.SetFocus 'double flèche dans l'image
                        Call NomUF.CB_Texte_Suivant_Click 'déclenche la recherche

La procédure se déroule bien jusqu'à la dernière instruction. Le call textesuivant ne se déclenche pas. J'ai mis cette instruction en public dans le formulaire, mais cela ne change rien. J'ai remplacé

J'avoue avoir du mal à comprendre pourquoi le premier call fonctionne bien, et pas le deuxième. J'ai remplacé ce second call par un autre, mais cela ne change toujours rien. Comme si le module de classe ne comprenait pas ce second call.
Je précise que la fonction de recherche fonctionne bien si j'ouvre le texte d'aide directement dans le formulaire, saisie le mot recherché et lance la recherche.

J'espère avoir été assez clair. Et si quelqu'un peut me donner une piste de recherche, d'avance, merci

JohnnyBGood · Aujourd'hui à 14:22

ChTi160 à dit:

Re

je n'ai pas tout compris , mais ce que j'ai mis

VB:

Private Sub TargetBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'clic droit
            On Error Resume Next
                NomUF.A_Aide.Value = True
                NomUF.TBX_ChercheMot.Text = TargetBox.Caption                  
                    Call NomUF.A_Aide_Click
                        NomUF.CB_Texte_Suivant.SetFocus                      
                         Call X_Recherche_Mot 'dans mod_recherche

             Else
End If
End Sub

le mOt trouvé n'est pas remonté mais selectionné !
a voir !
Jean marie

Super, merci, j'aurai pu y penser plus tôt !
Pour que le mot soit remonté, j'ai...

ChTi160 · Aujourd'hui à 11:07

Bonjour JohnnyBGood
Bonjour le Fil,
As tu bien ta procédure "CB_Texte_Suivant_Click" qui est en Public et Non en Private ? ça peut être une des raisons !

VB:

Public Sub CB_Texte_Suivant_Click
End Sub

sans fichier pas évident de tester Lol !
Bonne Journée
Jean marie

ChTi160 · Aujourd'hui à 11:36

Re
Tu peux aussi éviter de simuler la procédure Click de ton Bouton et créer une procédure qui effectue la recherche
et Tu appelle la Procédure plutôt que le Click sur ton Bouton .

VB:

Private Sub CB_Texte_Suivant_Click() 
 ' Code de recherche qui est Géré Normalement dans cette procédure
End Sub

Tu le transformes en :

Code:

Public Sub LancerRecherche()
    ' Code de recherche ici
End Sub
Private Sub CB_Texte_Suivant_Click()
   Call LancerRecherche
End Sub

Tu peux ensuite faire :

Code:

Call NomUF.LancerRecherche

à voir
Bonne Journée
Jean marie

JohnnyBGood · Aujourd'hui à 12:18

ChTi160 à dit:
Re
Tu peux aussi éviter de simuler la procédure Click de ton Bouton et créer une procédure qui effectue la recherche
et Tu appelle la Procédure plutôt que le Click sur ton Bouton .

VB:

Private Sub CB_Texte_Suivant_Click() ' Code de recherche qui est Géré Normalement dans cette procédure End Sub

Tu le transformes en :

Code:

Public Sub LancerRecherche() ' Code de recherche ici End Sub Private Sub CB_Texte_Suivant_Click() Call LancerRecherche End Sub

Tu peux ensuite faire :

Code:

Call NomUF.LancerRecherche

à voir
Bonne Journée
Jean marie

Merci d'avoir pris le temps de regarder mon souci.
J'avais essayé les méthodes proposées, mais le second call reste toujours muet.
Difficile pour moi de mettre mon fichier, car il est confidentiel.
Si je ne trouve pas de solution d'ici à ce soir, je ferais un fichier test.

JohnnyBGood · Aujourd'hui à 12:38

Voilà un fichier test

ChTi160 · Aujourd'hui à 12:38

Re
Donc : Call NomUF.LancerRecherche ne fonctionne pas?
Oupss pas vu le fichier je regarde dès que possible ! Depuis mon téléphone
Jean marie

ChTi160 · Aujourd'hui à 13:03

Re
je n'ai pas tout compris , mais ce que j'ai mis

VB:

Private Sub TargetBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'clic droit
            On Error Resume Next
                NomUF.A_Aide.Value = True
                NomUF.TBX_ChercheMot.Text = TargetBox.Caption                    
                    Call NomUF.A_Aide_Click
                        NomUF.CB_Texte_Suivant.SetFocus                        
                         Call X_Recherche_Mot 'dans mod_recherche

             Else
End If
End Sub

le mOt trouvé n'est pas remonté mais selectionné !
a voir !
Jean marie

laurent950 · Aujourd'hui à 13:05

Bonjour

ici je change Private Par Public (C'est tous)
Public Sub CB_Texte_Suivant_Click()

le module de classe (Est cela fonctionne)
Private Sub TargetBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'clic droit
On Error Resume Next
~~'NomUF.A_Aide.Value = True~~
'NomUF.TBX_ChercheMot.Text = TargetBox.Caption
'Call NomUF.A_Aide_Click
'NomUF.CB_Texte_Suivant.SetFocus
~~'Call NomUF.CB_Texte_Suivant_Click~~
UF_RechercheIntuitive.CB_Texte_Suivant_Click
Else
End If
End Sub

JohnnyBGood · Aujourd'hui à 14:18

laurent950 à dit:
Bonjour

ici je change Private Par Public (C'est tous)
Public Sub CB_Texte_Suivant_Click()

le module de classe (Est cela fonctionne)
Private Sub TargetBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'clic droit
On Error Resume Next
~~'NomUF.A_Aide.Value = True~~
'NomUF.TBX_ChercheMot.Text = TargetBox.Caption
'Call NomUF.A_Aide_Click
'NomUF.CB_Texte_Suivant.SetFocus
~~'Call NomUF.CB_Texte_Suivant_Click~~
UF_RechercheIntuitive.CB_Texte_Suivant_Click
Else
End If
End Sub

Merci pour cette suggestion. Public par private ne change rien. D'autre part, il faut bien que l'outil sache quel mot cherché. Ce qui n'est pas le cas avec votre proposition

JohnnyBGood · Aujourd'hui à 14:22

ChTi160 à dit:

Re

je n'ai pas tout compris , mais ce que j'ai mis

VB:

Private Sub TargetBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'clic droit
            On Error Resume Next
                NomUF.A_Aide.Value = True
                NomUF.TBX_ChercheMot.Text = TargetBox.Caption                  
                    Call NomUF.A_Aide_Click
                        NomUF.CB_Texte_Suivant.SetFocus                      
                         Call X_Recherche_Mot 'dans mod_recherche

             Else
End If
End Sub

le mOt trouvé n'est pas remonté mais selectionné !
a voir !
Jean marie

Super, merci, j'aurai pu y penser plus tôt !
Pour que le mot soit remonté, j'ai amélioré le code comme suit :

VB:

If Button = 2 Then 'clic droit

            On Error Resume Next
                NomUF.A_Aide.Value = True
                NomUF.TBX_ChercheMot.Text = TargetBox.Caption
                    Call NomUF.A_Aide_Click
                        NomUF.TBX_Aide.SetFocus 'permet de remonter le texte lors de la recherhe
                        NomUF.TBX_Aide.CurLine = 0 'idem
                        Call X_Recherche_Mot
Else
End If

si jamais cela peut servir, voici mon fichier test modifié

JohnnyBGood · Aujourd'hui à 14:27

JohnnyBGood à dit:
Super, merci, j'aurai pu y penser plus tôt !
Pour que le mot soit remonté, j'ai amélioré le code comme suit :

VB:

If Button = 2 Then 'clic droit On Error Resume Next NomUF.A_Aide.Value = True NomUF.TBX_ChercheMot.Text = TargetBox.Caption Call NomUF.A_Aide_Click NomUF.TBX_Aide.SetFocus 'permet de remonter le texte lors de la recherhe NomUF.TBX_Aide.CurLine = 0 'idem Call X_Recherche_Mot Else End If

si jamais cela peut servir, voici mon fichier test modifié

J'avais oublié : merci pour votre aide !

XL 2019 VBA - problème call depuis module de classe

JohnnyBGood

XLDnaute Nouveau

JohnnyBGood

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

JohnnyBGood

XLDnaute Nouveau

JohnnyBGood

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

JohnnyBGood

XLDnaute Nouveau

JohnnyBGood

XLDnaute Nouveau

Pièces jointes

JohnnyBGood

XLDnaute Nouveau

Discussions similaires

XL 2019 VBA - problème call depuis module de classe

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency