Vba RechercheV

Pierrot93 à dit:

Bonjour Arpette,

Apparemment, je ne vois pas trop le rapport avec une "recherchev"... jamais vu cette fonction ouvrir un classeur.... peut être nous donner un peu plus de détails, type de donnée traité et code utilisé...

bon après midi
@+

Cliquez pour agrandir...

Sub Worksheet_Activate()
Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)
Dim Lechemin As String
Dim MonClasseur As Excel.Workbook

Lechemin = "E:\Mes Clients\Mes Clients.xls"
Set MonClasseur = Excel.Workbooks.Open(Lechemin)

With Sheets("Clients") 'prend en compte l'onglet "Clients"
    Set pl = .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'définit la plage de recherche
End With 'fin de la prise en compte de l'onglet "Clients"

Pierrot93 à dit:

Re,

et tu coinces où ? regarde du coté de la méthode "find", cela doit correspondre à ta recherche, enfin il me semble.... sinon donne nous un peu plus de détails....

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lechemin As String
Dim MonClasseur As Excel.Workbook
Dim Worksheet As Worksheet
Dim rng As Range
Dim Clients As Worksheet

Lechemin = "E:\Mes Clients\Mes Clients.xls"

ThisWorkbook.Activate
Worksheets("Page 1").Select
Set rng = Worksheets("Page 1").Range("K35")
Set MonClasseur = Excel.Workbooks.Open(Lechemin)
    
    With Application.WorksheetFunction
        Range("K37").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 2, False)
        Range("I38").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 3, False)
        Range("I39").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 4, False)
        Range("I40").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 5, False)
        Range("K41").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 6, False)
        Range("K41").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 7, False)
    End With
End Sub

Pierrot93 à dit:

Re,

essaye la méthode "find", comme suit ....

Code:

Dim x As Range
Set x = Clients.Columns("A:G").Find(Range("K35").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    Range("K37").Value = x.Offset(0, 1).Value
    'etc...
End If

Cliquez pour agrandir...

Pierrot93 à dit:

Re,

Code:

Dim x As Range
Set x = Clients.Columns("A:G").Find(Range("K35").Value, , xlValues, xlWhole, , , False)

la variable "x" permettra de stocker l'objet range (la cellule et ses propriétés) dans lequel a été trouvé la valeur recherchée, et ce si la recherche à aboutie bien sur....

Cliquez pour agrandir...

Pierrot93 à dit:

Re,

la variable "Clients" bien été initialisée ?
par exemple

Code:

Dim Clients As Worksheet
Set Clients = ActiveSheet

Cliquez pour agrandir...

Set Clients = ActiveSheet
    
   
        Set x = Clients.Columns("A:G").Find(Range("K35").Value, , xlValues, xlWhole, , , False)
        If Not x Is Nothing Then
        Range("K37").Value = x.Offset(0, 1).Value

        End If

Pierrot93 à dit:

Re,

sans doute que la valeur en K35 de la feuille active n'est pas présente dans les colonnes A à G de la feuille "client"....

Cliquez pour agrandir...

Pierrot93 à dit:

Re,

là, il faudrait voir les données traitées, car en l'état difficile de t'en dire plus...

Cliquez pour agrandir...