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.
Merci pour votre aide et bonne soirée
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
Partager