Discussion :

[Kaytilou]

Bonsoir à tous
Petite question avant le we de Paques

J'ai une base de données sur une feuille sur laquelle j'ai mis en place une macro de recherche (jusque là tout fonctionne parfaitement). Je cherche après exécution de cette macro que s'affiche automatique une autre feuille de mon fichier.
Voici la macro réalisée, mais il y a un bug. Je pense que je n'ai pas bien placé la deuxième action.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub RechercherContact()
On Error Resume Next
    'Bloquer l'écran pour executer la macro
        Application.ScreenUpdating = False
    ' Déclaration des variables
        Dim Ligne As Integer
        Dim Nom As String
    'Message box pour demander une action
        Nom = InputBox("Veuillez Saisir le prénom et le nom de l'agent administratif")
     If Nom = "" Then
            MsgBox "Vous n'avez pas saisi le prénom et le nom de l'agent administratif !"
        Exit Sub
    End If
 
    'Recherche le nom de l'agent
        Range("E4") = Nom
    'Effacer les colonnes
        Range("A4:D4,F4:R4") = Empty
    'On commence à la ligne 7 de la colonne Identifiant (jusqu'à) la fin du tableau et on revient à la dernière ligne écrite
        For Ligne = 7 To Range("a999999").End(xlUp).Row
    'Résultat de la recherche par le nom et incrémentation dans la cellule de résultat
        If Range("e" & Ligne) = Range("e4") Then
    'On recherche les informations dans les colonnes et on les incrémente dans la ligne de résultat
            Range("a4") = Range("a" & Ligne)
            Range("b4") = Range("b" & Ligne)
            Range("c4") = Range("c" & Ligne)
            Range("d4") = Range("d" & Ligne)
            Range("f4") = Range("f" & Ligne)
            Range("g4") = Range("g" & Ligne)
            Range("h4") = Range("h" & Ligne)
            Range("i4") = Range("i" & Ligne)
            Range("j4") = Range("j" & Ligne)
            Range("k4") = Range("k" & Ligne)
            Range("l4") = Range("l" & Ligne)
            Range("m4") = Range("m" & Ligne)
            Range("n4") = Range("n" & Ligne)
            Range("o4") = Range("o" & Ligne)
            Range("p4") = Range("p" & Ligne)
            Range("q4") = Range("q" & Ligne)
            Range("R4") = Range("R" & Ligne)
    Exit Sub
        End If
 
Next Ligne
 
'
    'Libérer l'écran pour l'utilisateur
        Application.ScreenUpdating = True
 
        'Afficher Fiche d'identité
        Sheets("Fiche d'identité de l'agent").Select
        Range("A1").Select
End Sub

Merci pour votre aide et bonne soirée

[Alex020181]

Bonjour,

Votre analyse est correcte. Le bloc de code d'affichage de la feuille est mal placé.

Exit Sub commande à la macro d'arrêter d'exécuter le code. Votre code d'affichage de la feuille est situé après. Donc il n'est jamais exécuté.

Il faut replacer cette portion de code devant le exit Sub

Code :

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

1
2
3
4
5
6
7
8

'Afficher Fiche d'identité
Sheets("Fiche d'identité de l'agent").Select
Range("A1").Select

'Sortir du code
Exit Sub

[Transitoire]

Bonsoir, deux choses
Premièrement, au lieu de déplacer le code d'affichage, vous pouvez je pense, remplacer "Exit Sub" par "Exit For" qui se contente de sortir de la boucle et exécute donc la suite de la procédure.
Deuxièmement, j'opterais plutôt pour le choix du nom et du prénom de l'agent, par un click dans une ListBox 2 colonnes (si le nom et le prénom sont séparés). Cela permettrait d'éviter les erreurs de frappe, d'orthographes etc. Sans compter que si l'utilisateur ne se rappelle pas le nom, descendre la liste l'aidera à le retrouver. Enfin moi ce que j'en dit c'est pour le cas ou cela vous conviendrais?

Cordialement

[Kaytilou]

Bonsoir, deux choses
Premièrement, au lieu de déplacer le code d'affichage, vous pouvez je pense, remplacer "Exit Sub" par "Exit For" qui se contente de sortir de la boucle et exécute donc la suite de la procédure.
Deuxièmement, j'opterais plutôt pour le choix du nom et du prénom de l'agent, par un click dans une ListBox 2 colonnes (si le nom et le prénom sont séparés). Cela permettrait d'éviter les erreurs de frappe, d'orthographes etc. Sans compter que si l'utilisateur ne se rappelle pas le nom, descendre la liste l'aidera à le retrouver. Enfin moi ce que j'en dit c'est pour le cas ou cela vous conviendrais?

Cordialement

Bonsoir,
Merci pour votre retour
Dans ma macro, je fais référence à une cellule qui concatène le nom et du prénom de l'agent (c'est ce que j'ai trouvé de plus simple car je ne suis pas expérimenté dans les macros. Je tâtonne, je recherche et je demande de l'aide . J'aime bien votre idée du click dans une ListBox 2 colonnes, sachant que cet outil va servir pour une base de données de plus de 2800 noms. Auriez vous la gentillesse de m'aider à construire le code.
Je vous remercie par avance

« La persévérance n’est pas une longue course: c’est plusieurs courses brèves l’une après l’autre. »Walter Elliot

[Transitoire]

Bonjour, il faudrait poster la macro sous balises dièse et si possible les en tète de la base de données. Vu que je n'ai pas de boules de cristal.
Cordialement

[Kaytilou]

Bonjour, il faudrait poster la macro sous balises dièse et si possible les en tète de la base de données. Vu que je n'ai pas de boules de cristal.
Cordialement

Dans ma macro, je fais référence à une cellule qui concatène le nom et du prénom de l'agent (c'est ce que j'ai trouvé de plus simple car je ne suis pas expérimenté dans les macros. J'aime bien votre idée du click dans une ListBox 2 colonnes, sachant que cet outil va servir pour une base de données de plus de 2800 noms. Auriez vous la gentillesse de m'aider à construire le code. Voici le code intitial

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
Sub RechercherContact()
On Error Resume Next
    'Bloquer l'écran pour executer la macro
        Application.ScreenUpdating = False
    'Déclaration des variables
        Dim Ligne As Integer
        Dim Nom As String
    'Message box pour demander une action
            Nom = InputBox("Veuillez saisir le prénom et le nom de l'agent administratif")
        If Nom = "" Then
            MsgBox "Vous n'avez pas saisi le prénom et le nom de l'agent administratif !"
        Exit Sub
        End If
    'Recherche le nom de l'agent
        Range("E4") = Nom
    'Effacer les colonnes
        Range("A4:D4,F4:R4") = Empty
    'On commence à la ligne 7 de la colonne ID N° (jusqu'à) la fin du tableau et on revient à la dernière ligne écrite
        For Ligne = 7 To Cells(Rows.Count, "A").End(xlUp).Row
    'Résultat de la recherche par le nom et incrémentation dans la cellule de résultat
        If Range("E4") = Cells(Ligne, "E") Then
    'On recherche les informations dans les colonnes et on les incrémente dans la ligne de résultat
        Range("A4:R4").Value = Range(Cells(Ligne, "A"), Cells(Ligne, "R")).Value
    'Afficher Fiche d'identité
        Sheets("Fiche d'identité de l'agent").Visible = True
        Sheets("Fiche d'identité de l'agent").Select
        Range("B2").Select
            Exit For
        End If
        Next Ligne
    'Libérer l'écran pour l'utilisateur
        Application.ScreenUpdating = True
End Sub

Voici pour les titres des entetes de la base de données


Merci pour votre aide

[Kaytilou]

Bonjour,

Votre analyse est correcte. Le bloc de code d'affichage de la feuille est mal placé.

Exit Sub commande à la macro d'arrêter d'exécuter le code. Votre code d'affichage de la feuille est situé après. Donc il n'est jamais exécuté.

Il faut replacer cette portion de code devant le exit Sub

Code :

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

1
2
3
4
5
6
7
8
'Afficher Fiche d'identité
Sheets("Fiche d'identité de l'agent").Select
Range("A1").Select

'Sortir du code
Exit Sub

Merci pour tout
Bonne soirée et bon week end

[Kaytilou]

N/A