Problème avec des Offset

Bonjour

Dans mon code je recherche une valeur (venant d'une textbox) dans une colonne puis des que la valeur est trouvée, elle renvoie grace aux offset d'autres valeurs dans des text box...le problème c'est que je n'arrive pas a renvoyer des données comme si le activecell.select ne servait à rien.
Auriez vous une idée? Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub New_component_Change()   Dim wb As Workbook Dim var As Variant var = New_component.Value 'textbox principale   Workbooks("Editeur_ecn.xls").Worksheets("EENSART_REF").Activate For Each cell In Range("A1:A65536") If cell.Value = var Then ActiveCell.Select With ActiveCell New_desfr = .Offset(0, 2) 'textbox de renvoie New_adddesfr = .Offset(0, 3) 'textbox de renvoie End With   For Each wb In Workbooks If Left(wb.Name, 1) = "F" Then Workbooks(wb.Name).Worksheets("ECN Number").Activate Exit For End If Next End If Next cell   End Sub

---

Citation:

---

If cell.Value = var Then
ActiveCell.Select

---

traduire :

Code:

---

si la valeur de la cellule = var alors selectionner la cellule active

---

oui mais voila, ce n'est pas parce qu'elle est égale a var qu'elle est devenu la celule active par enchantement. la cellule active est forcément déja selectionnée, donc activecell.select ne sert a rien. une cellule ne devient l'activecell qu'aprés avoir été selectionnée

Salut Jeyjey1 et le forum

Citation:

---

...comme si le activecell.select ne servait à rien.

---

Mais c'est exactement ça :
Activecell est la cellule active : ActiveCell.Select est donc un pléonasme :D

Code:

---

1 2 3 4 5 6

For Each cell In Range("A1:A65536") If cell.Value = var Then With cell New_desfr = .Offset(0, 2) 'textbox de renvoie New_adddesfr = .Offset(0, 3) 'textbox de renvoie End With

---

Tu ne fais pas évoluer Activecell, mais Cell. Donc tu dois tout baser sur Cell.
A+

Tu irais plus vite en utilisant Find(Var...)
Un coup d'oeil dans l'aide en ligne à Find, peut-être.
Si tu comprends le principe et que tu as toujours un pb, tu nous reviens ;)
A+...

Bonjour à tous,

Merci Gorfael ça fonctionne mais c'est lent, j'ai donc essayé avec FIND comme proposé

Code:

---

1 2 3 4 5 6

Workbooks("Editeur_ecn.xls").Worksheets("EENSART_REF").Activate For Each Cell In Range("A1:A65536") If Cell.Value = var Then Cells.Find(What:=var, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate New_desfr = ActiveCell.Offset(0, 2) 'textbox de renvoie New_adddesfr = ActiveCell.Offset(0, 3) 'textbox de renvoie

---

Le problème c'est ça bug à ce niveau et je ne comprends pas pourquoi

Code:

---

New_adddesfr = ActiveCell.Offset(0, 3) 'textbox de renvoie

---

Bonjour

Si tu utilises Find, tu ne dois pas boucler sur la colonne A, à mon avis. De plus, il n'est pas nécessaire d'activer la cellule avec Find,tu peux l'affecter à une variable. Cela pourrait donner un code ressemblant à

Code:

---

1 2 3 4 5 6

Dim CelTrouvee as range set celtrouvee=range("a1:a" & rows.count).find(what:=...) if not celtrouvee is nothing then New_desfr = celtrouvee.Offset(0, 2) ' colonne B New_adddesfr = celtrouvee.Offset(0, 3) ' Colonne C endif

---

Ok?