Discussion :

[Quelkod]

Bonjour les amis,

Étant tout en bas de l'échelle du VBA Excel. (Tout en bas, c'est un peu faux, car je devrais dire; très, très bas), ...

... J’essaie d'utiliser un code VBA, publié il y a quelques années déjà par gFZT82, qui pour moi m'est bien utile mais j'aurais aimé lui apporter une petite modif, si possible:

A savoir tout d'abord;
... mes infos à trouver par la MACRO, se trouvent sur un classeur qui s'appelle "INSCRITS", ... quand je fais ma recherche sur le premier classeur "MENU ACCUEIL", dans la cellule "A2" est-il possible de faire en sorte qu'après avoir taper l'info recherché et en validant par la touche "Enter", d'aller directement à la source recherché, sans avoir à cliquer sur mon bouton Macro "INSCRITS" ?


Je joins ici en annexe, pour mieux éclairer ma demande, le fichier en question.

Merci d'avance pour votre aide.

[BENNASR]

Bonjour et bienvenu

sur un classeur qui s'appelle "INSCRITS", ... quand je fais ma recherche sur le premier classeur "MENU ACCUEIL",

Dans votre cas on parle des onglets et non pas des classeurs et vu que la plupart n'ouvre pas les PJ ça risque de les induire en errerur
bref, vous pouvez éviter le saisi sans la cellule A2 et faire une liste déroulante
et puis faire la recherche au changement de la valeur de A2 (via la liste déroulante)

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
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address <> "$A$2" Then Exit Sub
Dim Tablo
Dim derlig As Long
Dim i As Long
Dim j As Long
Dim L As Integer
derlig = Cells(Rows.Count, 1).End(xlUp).Row
If derlig > 8 Then Range("A9:D" & derlig).ClearContents
L = 9
Tablo = Sheets("INSCRITS").Range("D3", "G" & Sheets("INSCRITS").Range("G" & Rows.Count).End(xlUp).Row)
With Sheets("MENU ACCUEIL")
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If IsNumeric(Application.Match(CStr(Tablo(i, 3)), .Cells(2, 1), 0)) Then
 
        .Cells(L, "A") = Tablo(i, 1)
        .Cells(L, "B") = Tablo(i, 2)
        .Cells(L, "C") = Tablo(i, 3)
        .Cells(L, "D") = Tablo(i, 4)
    End If
    If .Cells(L, "A") <> "" Then L = L + 1
Next i
End With
End Sub

PJ à tester et dire si ça te convient

[Quelkod]

Merci BENNASR,
Votre Code marche très bien, mais pour mes besoins, cela ne me convient pas trop.

Au fait, j'ai besoin qu'au moment de ma recherche (de manière simplifié, car ce ne sera pas toujours les mêmes personnes qui s'en serviront) je sois dirigé directement sur l'onglet "INSCRITS", onglet que j'ai l’intention de masquer par défaut.
Pourquoi cela? Parce qu'une fois que j'ai demandé un nom dans la cellule "A2" de la feuille "MENU ACCUEIL" c'est pour effectuer une modification respectif à ce nom en colonne "H" de l'onglet "INSCRITS"

Je ne sais pas si je suis clair dans mes explications !

[BENNASR]

je sais pas si j'ai bien compris
mais si tu cherche à faire un userform pour saisir un nv employe et/ou modifié un employé existant déja vous pouvez tester ça :

[Quelkod]

je sais pas si j'ai bien compris
mais si tu cherche à faire un userform pour saisir un nv employe et/ou modifié un employé existant déjà vous pouvez tester ça :

Merci Bennasr, ce n'est pas ce que je voulais, ... mais ce n'est pas grave. Je vais étudier une autre manière de faire.

J'ai du mal à expliquer ce dont j'ai besoin, car je ne comprends rien en MACRO VBA.

Merci tout de même pour votre patience à tous.