Discussion :

[Jeyjey1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

If cell.Value = var Then
ActiveCell.Select

traduire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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+...

[Jeyjey1]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Gorfael]

Salut Jeyjey1 et le forum

...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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+