Recherche sur 1 seule col

Oups désolé pour le sujet erreur de champ !!!! surement la fatigue

Rebonjour à tous

Je cherche comment y faire la recherche de ce code en col A seulement:

f TextBox1 = '' Then
MsgBox ' Vide !'
Else
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Label1.Caption = ActiveCell.Value
Label2.Caption = ActiveCell.Offset(0, 1).Value
Label3.Caption = 'Il y en a ' & Application.CountIf(Range('A1:A' & Range('A65536').End(xlUp).Row), '=' & TextBox1)

Merci beaucoup

Temjeh

Message édité par: temjeh, à: 14/06/2006 13:22