Discussion :

[Pascal415]

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

Code :

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

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!

[mercatog]

Code :

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

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

[Pascal415]

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!

[mercatog]

Par exemple

Code :

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

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

[Pascal415]

Problème résolu!

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

Bonne journée