Recherche rapide dans un tableau

Utilise la touche : " Ctrl + F"

Normalement cela fonctionne, je n'ai pas vérifier, tenez moi au courant,

Tomsound .

Ton système CTRL+F recherche bien les lignes que je demande mais il met juste la case recherché en surbrillance alors que moi je voudrai qu'il m'affiche que les lignes ou j'ai besoin

Bonjour a vous tous

Code a mettre dans VBA de le feuille de calcul

'Textbox de saisie sur feuille de calcul(format de controle, propriete: Ne pas deplacer.....)
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  'Touche entrer pour valider le choix
  If KeyCode = &HD Then
    'Stop rafraichissement ecran
    Application.ScreenUpdating = False
    'Enleve filtre feuille a adapter
    Worksheets("feuil1").AutoFilterMode = False
    'Choix effectif: plage filtre a adapter
    If TextBox1 <> "" Then
      ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:=TextBox1
    End If
  End If
    'rafraichissement ecran
  Application.ScreenUpdating = True
End Sub

'ou

'Une cellule de saisie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'Cellule de saisie a changer
  If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
      'Stop rafraichissement ecran
    Application.ScreenUpdating = False
    'Enleve filtre feuille a adapter
    Worksheets("feuil1").AutoFilterMode = False
    'Choix effectif: plage filtre a adapter
    If Target <> "" Then
      ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:=Target
    End If
  End If
  'rafraichissement ecran
  Application.ScreenUpdating = True
End Sub

Bonne suite

Bonjour
une option sans macro si vous pouvez admettre une colonne de codage qui peut être masquée.
exemple à adapter:
en Feuil1 A1 le code à éditer

en Feuil2 votre tableau
de A2 à W100 vos données
X1 reste vide ou texte
en colonne B de votre tableau à partir de B2 jusqu'à B100, les codes en vrac
en colonne X de cette feuille en X2 la formule à tirer jusqu'en X100
=SI('FEUIL1'$A$1=B2);MAX($X$1:X1)+1;0)

Sur Feuil1 en A2 et à tirer sur la hauteur voulue

=SI(LIGNE()-1<=MAX('feuil2';$B$2:$B$100;INDEX('Feuil2'!$A$2:$W$100;EQUIV(LIGNE()-1;'Feuil2'!$X$2:$X$100;0);COLONNE());"")
attention aux signes
vous donnera la liste des mêmes codes sur la hauteur avec les infos respectives à chaque ligne concernées, mais sans "trou"
et en tirant vers la droite vous renverra pour chaque ligne la valeur de la colonne au N° correspondant
pour info
la valeur LIGNE() renvoie le N° de ligne de la feuille ajustable selon la position d e la formule par + ou - valeur de correction, de façon à obtenir la valeur voulue, soit 1 pour la première ligne.
Idem pour le code COLONNE qui donne le N° de colonne du champ INDEX

bonne chance entre les deux propositions
crdlmnt