Limiter la recherche sur une colonne

[sev]

Bonjour à tous,

Je voudrais limiter la recherche de valeures à partir de la ligne 63 sur la colonne G.

J'ai ce début de code:

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim G As Range
Set G = Sheets("Signalements").Cells.Find(What:=Me.TextBox4)
If Not G Is Nothing Then Me.TextBox70.Value = G.Offset(0, 5).Value
End Sub

Merci d'avance pour vos réponses

 

[Temjeh]

Re : Limiter la recherche sur une colonne

Bonjour

Il faut remplacé:

Test sur Plage seulement

Sheets("Signalements").Cells.Find(What:=Me.TextBox4)
par
Sheets("Signalements").Range("G63:G100").Find(What:=Me.TextBox4)

Pour plage variable G63 en descendant:

Sheets("Signalements").("G63:G" & Range("G65536").End(xlUp).Row).Find(What:=Me.TextBox4)

A+

Temjeh

 

[James007]

Re : Limiter la recherche sur une colonne

Tu peux déjà utiliser :

Set G = Sheets("Signalements").Columns(7).Find(What:=Me.TextBox4)

pour commencer dans la colonne G ... ensuite pour affiner, il faudrait ajouter tous les paramètres de .Find ...

A +