Discussion :

[brunelj]

Bonjour,

J'ai besoin d'utiliser un rechercheV, mais qui irait chercher des valeurs dans des pages différentes selon que la formule se trouve sur une colonne ou une autre (et elle se trouve sur plein de lignes donc j'ai en gros besoin d'utiliser rechercheV, mais avec une plage de recherche qui soit dynamique).

Du coup j'essaie d'utiliser ce code, que j'ai trouvé je ne sais plus où et que j'ai adapté (a priori mal):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function RechercheChiffre(Compte, Page)
 
With Worksheets(Page).Range("A1:E1150")
    Set c = .Find(Compte, LookIn:=xlValues)
    If Not c Is Nothing Then
        RechercheChiffre = c.offset(0,4).Value
 
    ElseIf c Is Nothing Then RechercheChiffre = 0
    End If
End With
 
End Function

Bon, bah j'ai un beau #Valeur quand je mets dans une case =RechercheChiffre(A2; B1) (où B1 contient le nom de la feuille, genre feuille1, et A1 contient un texte qui est la valeur à chercher...

Pouvez-vous m'aider svp?

merci d'avance,
Julien

[NEC14]

Bonsoir,

J'ai utilisé cette macro il y a quelques temps, peut-être vous aidera t-elle.
Vous modifiez ce qui l'y a après "Array" par le nom de vos feuilles.

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
 
Sub Recherche(Nom As String, Ligne As Long)
Dim Cel As Range
Dim Depart As String
Dim Ws As Worksheet
 
  Range("C" & Ligne & ":D" & Ligne).ClearContents
  For Each Ws In Sheets(Array("Electricité", "Menuiserie", "Plomberie", "Aménagement"))
    Set Cel = Ws.Cells.Find(what:=Nom, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Range("C" & Ligne) = Cel.Offset(0, 1)
      Range("D" & Ligne) = Ws.Name
      Exit Sub
    End If
  Next Ws
    MsgBox "Produit non trouvé"
End Sub

[brunelj]

Super, j'ai réussi à adapter!!!


Merci!