Discussion :

[Montasser H]

Bonjour,

Je me permets de vous contacter, mes compétences en VBA sont assez faibles

En fait sur le fichier en PJ, je souhaiterais que sur l'onglet recherche, lorsque l'on tape le code ça puisse rechercher sur les différents onglets (sachant que le code sera toujours en colonne B et ne pourra être présent que sur un seul des onglets) et derrière ça puisse soit afficher la ligne 1 ainsi que la la ligne du code correspondant ou bien directement la ligne dans l'onglet correspondant

J'espère avoir été clair et je vous remercie d'avance de votre aide pour comprendre comment arriver à bout de ce problème

Cordialement

Montasser

[BENNASR]

bonsoir MONTA
tester :

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
Sub Recherche()
Dim Ligne As Long
Dim Cel As Range
Dim Ws As Worksheet
Dim k As String
Application.ScreenUpdating = False
Sheets("Recherche").Cells(5, "D") = ""
Sheets("Recherche").Cells(6, "D") = ""
  For Each Ws In Sheets
  If Ws.Name <> "Recherche" Then
    Set Cel = Ws.Columns(2).Find(What:=Sheets("Recherche").Cells(17, "J"), LookIn:=xlFormulas, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
    If Not Cel Is Nothing Then
      Sheets("Recherche").Range("D5") = Ws.Name
      Sheets("Recherche").Range("D6") = Cel.Row
    End If
    End If
  Next Ws
 
   If Sheets("Recherche").Cells(5, "D") <> "" Then
            k = Sheets("Recherche").Cells(5, "D")
 
             Worksheets(k).Activate
             Worksheets(k).Select
             col = 2
             Ligne = Sheets("Recherche").Range("D6").Value
             Worksheets(k).Cells(Ligne, col).Select
             Else
            MsgBox ("Code inexistant")
  End If
  Application.ScreenUpdating = True
End Sub

[Montasser H]

C'est top!!!! Merci beaucoup je vais essayer de comprendre le code maintenant

Excellente journée sous le soleil tunisien