Discussion :

[emamousse]

Bonjour,

En VBA, J'ai créé un code excel avec la Fonction FIND. Mon but est de trouver dans une liste, une entreprise en particulier.

Voici la partie de mon code concernée :

Code :

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

Worksheets("Feuil1").Range("B2:B100").Find("Nom_Entreprise")

Cela marche parfaitement mais mon but pour automatiser cette partie serait, au lieu de remplir le nom de l'entreprise à la main, de se référer à une cellule où il y a le nom d'une entreprise. Pour cela j'ai essayé :

Code :

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

Worksheets("Feuil1").Range("B2:B100").Find("Worksheets("Feuil1").Cells(10,10).Value")

Malheureusement cela ne marche pas. Comment résoudre le problème svp

Merci d'avance

[QuestVba]

Bonsoir,

Tu pourrais essayer avec

Code :

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

Worksheets("Feuil1").Range("B2:B100").Find(what:=range("A3").value, LookAt:=xlWhole)

[emamousse]

J'ai copié collé le code mais ça ne marche pas. Je comprend pas le A3 et le xlWhole :/

[QuestVba]

Hello,

Code :

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

what:=range("A3").value

Cherche la valeur qui est contenue dans la cellule A3

Code :

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

LookAt:=xlWhole

Cherche la valeur exacte

[emamousse]

Pour être complet voici la totalité de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub MafonctionDeRecherche()
 
    Dim c As Object
    Set c = Worksheets("BonDeCommande").Range("B2:B100").Find("AIS")
 
 
    Dim therow As Integer
    therow = c.Row
 
 
  Worksheets("Donnée").Cells(10, 10).Value = Worksheets("BonDeCommande").Cells(therow, 3).Value
 
 
End Sub

Une des entreprises que je cherche s'appelle AIS.
Mais je sais que AIS je le retrouve dans une autre feuille excel nommé "Donnée" en case J2 donc j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub MafonctionDeRecherche()
 
    Dim c As Object
    Set c = Worksheets("BonDeCommande").Range("B2:B100").Find("Worksheets("Donnée").Cells(2, 10).Value")
 
 
    Dim therow As Integer
    therow = c.Row
 
 
  Worksheets("Donnée").Cells(10, 10).Value = Worksheets("BonDeCommande").Cells(therow, 3).Value
 
 
End Sub

Mais ca ne marche pas alors que le premier code marche.

[unparia]

Bonjour
La méthode Find recherche une valeur
En mettant entre guillemets la chaîne "Worksheets("Donnée").Cells(2, 10).Value", ce sera cette chaîne (de surcroît mal écrite) qu'il cherchera et non le contenu de la cellule J2 de la feuille Donnée.
correction, donc :

Code :

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

Set c = Worksheets("BonDeCommande").Range("B2:B100").Find What:=Worksheets("Donnée").Cells(2, 10).Value

Corrige de la même manière toutes tes lignes utilisant la méthode Find.