Désactiver un code vba lors d'une recherche

Version imprimable

08/01/2019, 16h40
Kris41

Désactiver un code vba lors d'une recherche

Bonjour à tous,

J'ai programmé du code vba qui s'exécute chaque fois que j'active une feuille ! Mais lorsque je fais une recherche via controle + f, le code s'exécute !

Je voudrais trouver un moyen de bloquer l'exécution du code vba lors de cette recherche ! L'inconvénient est qu'il y a sur chaque feuille du code vba !

Pourriez-vous m'aider ?
08/01/2019, 16h43
Trystan441

Bonjour,

Pour t'aider on va avoir besoin du code que tu as écris,
08/01/2019, 17h53
Kris41

1 pièce(s) jointe(s)

Bonsoir Trystan441,

Je ne peux que joindre le fichier en question car le code est assez complexe. De plus, il faut que je continue à le travailler pour l'écrire le proprement possible. Le principal c'est que celui-ci fonctionne correctement. Le but de se fichier est de suivre les dépenses des différentes lignes comptables. Il y a beaucoup d'automatisations.

Je cherche un moyen de désactiver le code vba, donc je pense que le mieux serait de désactivé complètement le code vba dans le classeur lorsque j'utilise la recherche via ctrl + F. Puis le réactivé lorsque la recherche est effectuée.

Merci pour votre aide.

Pièce jointe 439765
08/01/2019, 17h57
clementmarcotte

Bonjour,

Effectivement, sans voir le code, c'est difficile de cerner le problème. Deux hypothèses:

1) Tu as assigné le même raccourci-clavier à ta macro et tu dois remplacer le raccourci-clavier de la macro.
2) Ta macro est une procédure d'événement déclenchée par la recherche, encore que j'ai de la difficulté à voir quoi...
08/01/2019, 18h01
Kris41

Bonjour clementmarcotte,

Oui effectivement le code vba s'exécute lors de l'activation d'une feuille. Ce qui permet de tenir le tableau de suivi à jour. Je n'avais pas prévu l'incidence avec la recherche ctrl +F.
08/01/2019, 18h08
unparia

Bonjour

Citation:

qui s'exécute chaque fois que j'active une feuille

Citation:

le code vba s'exécute lors de l'activation d'une feuille

Citation:

Je n'avais pas prévu l'incidence avec la recherche ctrl +F.

Ben ... si tu te rends sur une feuille, tu l'actives, pardi. Et si tu l'actives, ta procédure évènementielle intervient.

Une solution ? cache donc cette feuille durant l'exécution de tes instructions dans la procédure activate.

Je me demande au passage quelle est la nécessité d'activer une feuille pour agir sur ses objets.
08/01/2019, 20h59
John Mc Evee

Salut le forum,

Comme préciser plus haut sans le code difficile d'y voir le bout du tunnel.

Une petite idée : On peut tester au début de l’événement si les deux touches sont activées et si vrai alors on sort de l’événement.

Code:

If vbKeyControl + vbKeyF Then Exit Sub

Perso je n'ai jamais testé les touches actives d'un clavier.

A+
09/01/2019, 10h13
Kris41

Bonjour John Mc Evee et à tous,

J'ai un bout de piste avec le code que tu m'as donné. Cela désactive bien le reste du code pour effectuer la recherche. Par contre, une fois la recherche effectué le code qui est neutraliser ne se remets pas à fonctionner.

Je vais essayé de trouvé ce qui bloque. Je suis ouvert à toutes suggestions.
09/01/2019, 10h28
Trystan441

Bonjour,

Tu as réellement besoin d'activer ta procédure à chaque fois que tu actives une feuille ?

Parce que sinon tu ajoutes une condition à remplir (un raccourci clavier peut être) pour activer celle-ci et pi voilà,
09/01/2019, 10h57
Kris41

Oui, malheureusement on as besoin d'activer la procédure à l'activation de la feuille car il y a beaucoup de données à traiter et beaucoup de feuilles.

J'hésite à créer un "DoEvents" par rapport à la recherche avec CTRL+F. Ou dans un meilleur cas créer la procédure de recherche dans un coin de feuilles.
09/01/2019, 11h18
Trystan441

Sans avoir vu le fichier, de mon point de vue, le plus intéressant serait de séparer ta procédure de l'activation de la feuille, surtout vu le nombre de fois où ça peut arriver dans une journée.

Tu peux créer un joli petit bouton bien élégant pour lancer ta procédure :D
09/01/2019, 11h40
Kris41

Merci pour ce conseil, je l'avais effectivement mis en place l'année dernière mais on m'as demandé que la mise à jour du tableau soit plus efficace. C'est pour cela que j'ai opté pour une procédure à l'activation d'une feuille.

Dès qu'une feuille est activé, le code s'exécute pour faire la mise à jour.

Je me dis pas conséquent, que si je recherche de mon coté une ligne spécifique, je dois créer une recherche. Sachant que j'ai une feuille où je peux instauré cela, je vais dédié une cellule pour faire ma recherche dans le classeur.

Par exemple, sur la feuille 1, je dédie la cellule A2, pour entrée la valeur recherchée dans tous le classeur.

Mon code devra être en quelque sorte le suivant :

- si la cellule A2 est vide alors le code de mise à jour peut s'exécuter normalement
- si la cellule A2 n'est pas vide alors je bloque le code de mise à jour jusqu'à avoir trouvé la valeur dans le classeur

J'aurais alors une procédure de type booléen.

J'ai fait le code si dessous qui ne fonctionne pas !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim RECHERCHE As Boolean
Dim VALEURRECHERCH As String
Dim CELLULECIBLEE As Range
 
     If Target.ADDRESS = "J2" Then
 
        If Range("J2") = "" Then
        RECHERCHE = False
        Else
        RECHERCHE = True
        VALEURRECHERCH = Worksheets("RECAPITULATIF").Range("J2").Value
        Set CELLULECIBLEE = Cells.Find(What:=VALEURRECHERCH, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
            If Not CELLULECIBLEE Is Nothing Then
            CELLULECIBLEE.Select
            End If
        End If
 
    End If

Je n'arrive pas sur la valeur recherchée.

09/01/2019, 14h05
zenpbb
Bonjour,
essaie de modifier ton code comme ça (ADDRESS renvoie par défaut la référence absolue)
Code:

1 2 If Target.ADDRESS = "$J$2" Then ...
ou comme ça

Code:

If Target.ADDRESS(False, False) = "J2" Then

Après quelques essais, je me suis rendu compte qu'il me neutraliser une autre partie du code vba. J'ai par conséquent créé un bouton pour exécuter ce codage mais le problème que je rencontre c'est au niveau de recherche qui se fait que sur la feuille active et non pas tout le classeur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton1_Click()
 
Dim RECHERCHE As Boolean
Dim CELLULECIBLEE As Range
 
        'If Range("J2") = "" Then
        'RECHERCHE = False
        'Else
        'RECHERCHE = True
        VALEURRECHERCH = Worksheets("RECAPITULATIF").Range("J2").Value
        Set CELLULECIBLEE = Cells.Find(What:=VALEURRECHERCH, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
            If Not CELLULECIBLEE Is Nothing Then
            CELLULECIBLEE.Select
            Else
            MsgBox "LE BON DE COMMANDE REFERENCE " & CELLULECIBLEE & " N'EST PAS ENREGISTRE !"
            End If
        'End If
 
End Sub

et là je bloque vraiment.

J'en suis arrivé là mais la procédure bloque sur la feuille "MARCHES".

Code:

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
 
Private Sub CommandButton1_Click()
 
Dim RECHERCHE As Boolean
Dim CELLULECIBLEE As Range
Dim WKS As Worksheet
 
        If Range("J2") = "" Then
        RECHERCHE = False
        Else
        RECHERCHE = True
        VALEURRECHERCH = Worksheets("RECAPITULATIF").Range("J2").Value
 
        For Each WKS In ThisWorkbook.Worksheets
 
            If WKS.Name <> "MARCHES" Or _
            WKS.Name <> "FIN EXERCICE" Or _
            WKS.Name <> "RECAPITULATIF" Then
                Set CELLULECIBLEE = Cells.Find(What:=VALEURRECHERCH, After:=ActiveCell, LookIn:=xlValues, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
                    If Not CELLULECIBLEE Is Nothing Then
                    WKS.Activate
                    CELLULECIBLEE.Select
                    End If
             End If
        Next WKS
        End If
 
End Sub

09/01/2019, 15h21
zenpbb
re
1- Que veut dire

Citation:

la procédure bloque sur la feuille "MARCHES"

y-a-t-il une erreur ?

2- Vérifie la condition :
Code:

1 2 3 If WKS.Name <> "MARCHES" Or _ WKS.Name <> "FIN EXERCICE" Or _ WKS.Name <> "RECAPITULATIF" Then
car ça m'étonnerait qu'elle corresponde à ce que tu souhaites.

3- Quand tu écris

Code:

Set CELLULECIBLEE = Cells.Find(...

, sans doute faut-il indiquer à quelle feuille appartiennent les cellules, puisque tu parcours plusieurs feuilles

4- As-tu désactivé tes procédures événementielles (via Application.EnableEvents) le temps d'effectuer la recherche ?

J'ai réussi à trouver la solution. Effectivement, j'ai écrit la procédure dans le mauvais sens. En reprenant la procédure à l'envers cela fonctionne bien mieux.

Voici le bon code avec une modification pour la mettre sur un raccourci clavier.

Code:

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
 
Dim RECHERCHE As Boolean
Dim VALEURRECHERCH As String
Dim CELLULECIBLEE As Range
Dim WKS As Worksheet
 
    VALEURRECHERCH = InputBox("VALEUR A CHERCHER ", "RECHERCHER")
    RECHERCHE = False
 
 
        If Range("J2") <> "" Then
            For Each WKS In ThisWorkbook.Worksheets
 
                Set CELLULECIBLEE = WKS.Cells.Find(What:=VALEURRECHERCH, After:=ActiveCell, LookIn:=xlValues, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
                    If Not CELLULECIBLEE Is Nothing Then
                    WKS.Activate
                    CELLULECIBLEE.Select
                    End If
            Next WKS
 
        RECHERCHE = True
        End If
 
End Sub

Merci à tous et bonne fin de journée.

Fuseau horaire GMT +2. Il est actuellement 02h21.