Recherche sur 1 seule col

[Temjeh]

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

 

[PascalXLD]

Bonjour

essaies

Range('A1:A65536').Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

 

[Temjeh]

Merci Pascal

J'avais déjà essayé cela mais il me met un erreur de bloc non défini!!!

Temjeh

 

[pierrejean]

bonjour Temjeh

Salut Pascal (et Merci !!)

@ Temjeh

2 hypotheses

1)la plus probable: je n'ais rien compris

2)tu te compliques l'existence

testes le fichier ci-joint et eclaire-nous [file name=temjeh_20060614133111.zip size=8266]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/temjeh_20060614133111.zip[/file]

 

[Temjeh]

Merci ca fonctionne j'ai recopiè est c'est good

Merci pierrejean j'examine ta solution aussi

Temjeh

 

[nounours30]

bonjour temjeh

tu m'as envoyé - en tout cas il me semble -recemment un bout de code dans un fichier joint qui fonctionne très bien

bonne journée et merci de ton aide active par ailleurs [file name=Recherche_UserFormtest_20060613010842_20060614141146.zip size=14759]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherche_UserFormtest_20060613010842_20060614141146.zip[/file]