Cellule

[Temjeh]

Bonjour le forum

De l'aide concernant une cell

Dans un UForm j'ai 2 textbox et un bouton

Quand je clic il cherche dans ma feuil ma valeur qui est dans TextBox1 et il va directement a la cell....
jusque là ca va

Je veut que dans le TextBox2 on voit la cell a coté de la cell trouvé

Ex: J'entre dans TextBox1....test
en cliquant il trouve test en A1
Je veut voir dans TextBox2 la valeur de B1

Merci à tous

 

[Minick]

Salut,

avec Range("A1").OffSet(0,1) tu trouveras B1

A toi de l'adapter à ton code

@+ Minick

 

[Temjeh]

Merci

Merci Tout est parfait

TextBox2 = ActiveCell.Offset(0, 1)

Avec ton aide et en le modifiant j'arrive à ca.

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

TextBox2 = ActiveCell.Offset(0, 1)

Merci beaucoup Minick

Juste une autre question:
Comment faire si la recherche donne false pour ne pas avoir un bug
If,Than...end if??

Merci

 

[Minick]

Re: Merci

Salut,

Essai comme cela:

Set Result = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

If Not Result Is Nothing Then
TextBox2 = Result.Offset(0, 1)
Else
TextBox2 = ""
End If

@+ Minick