Discussion :

[Léo Bicounet]

Bonjour,

je bloque sur quelque chose que j'imaginai super simple...

Je dois me créer un petit système de recherche dans mon tableau :

dans mon tableau de suivi de dossier, j'ai une colonne avec des numéro de devis. Je souhaiterai , en indiquant un numéro de devis dans une cellule prédéfini
cliquer sur mon bouton recherche et que la macro m'amène directement sur la ligne de ce devis.

es que vous pensais pouvoir m'aider ??

merci d'avance à tous

Suivi Dossier .xlsm

[Thautheme]

Bonjour Léo, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RECHERCHE_Cliquer() ' Recherche
Dim O As Worksheet
Dim TV As Variant
 
Set O = Worksheets("Suivi travaux brancht - compt.")
TV = O.Range("E11").CurrentRegion
For I = 4 To UBound(TV, 1)
    If TV(I, 6) = O.Range("A9").Value Then
        O.Cells(I + 7, "E").Resize(1, 32).Select
        Exit Sub
    End If
Next I
End Sub

[Menhir]

Cette macro lance une recherche limitée à la colonne sélectionnée de la valeur qu'on lui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Y_Recherche()
    Dim NO As String, Res As Range, Col As Long
 
    Col = ActiveCell.Column
    NO = InputBox(Cells(1, Col).Value, "Recherche Colonne " & Col)
    If NO = "" Then Exit Sub
 
    Set Res = Columns(Col).Find(What:=NO)
    If Not Res Is Nothing Then Res.Select
End Sub

[Léo Bicounet]

MERCI BEAUCOUP

ça marche super bien, je vais me pencher sur ces lignes pour bien les comprendre.

Mais c'est TOP.

Encore merci de m'avoir accorder un peu de ton temps