VBA Find : Activate

Version imprimable

VBA Find : Activate

Bonjour,
Tout d'abord, merci de l'intérêt apporté à ma demande.

Je suis en train de travailler d'essayer de faire une recherche à l'aide de "Find". Je désire ensuite utiliser le résultat pour définir une ligne qui remplira des "textbox". J'ai donc penser activer ou sélectionner la cellule trouvé pour ensuite naviguer à l'aide de Offset. Mon problème est le suivant : j'ai une erreur 1004 : Impossible de lire la propriété Activate de la classe Range.

Pourtant, ma MsgBox me renvoie la valeur approprié.....
:cry:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Af_List_Eng() Dim c As Range Set c = Worksheets("Appl Fert").Columns(3).Cells.Find(bxProduit, _ LookIn:=xlValues).Activate If Not c Is Nothing Then MsgBox c.Address End If End Sub
Pourriez-vous m'aider à saisir pourquoi?

Merci à l'avance!

Code:

1 2 3 4 5 6 7 8 Private Sub Af_List_Eng() Dim c As Range Set c = Worksheets("Appl Fert").Columns(3).Cells.Find(bxProduit, LookIn:=xlValues) If Not c Is Nothing Then MsgBox c.Address End If End Sub
le .activate est parasite.

Par contre, du moment que tu as trouvé la cellule recherche, tu peux travailler avec sans la sélectionner

12/10/2010, 22h16
Pascal415

Bonjour Mercatog

Alors comment je pourrais naviguer sur la même ligne : ma réponse est en "C", et je doit sélectionner/modifier les cellules en "A" "B"... à partir de textbox.

Merci à l'avance!

Par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Af_List_Eng()
Dim c As Range
Dim Lig As Long
 
With Worksheets("Appl Fert")
    Set c = .Columns(3).Cells.Find(bxProduit, LookIn:=xlValues)
    If Not c Is Nothing Then
        Lig = c.Row
        .Range("A" & Lig) = "Toto" 'ou TextBox1
        .Range("B" & Lig) = "Tata" 'ou TextBox2
        Set c = Nothing
    End If
End With
End Sub

12/10/2010, 23h13
Pascal415

Merci beaucoup!

Problème résolu!

Je te remercie énormément, je suis maintenant débloqué!

Bonne journée
:ccool: