Discussion :

[telise]

bonjour,

j'ai besoin de votre aide

je pose mon problème :

je cherche à faire de Recherchv en vba

J’ai 3 fichiers :

- Requête (liste des comptes comptable)

- Source (les comptes sont mouvementés dans le mois [un compte peut être mouvementé plusieurs fois, pour plusieurs commandes et fournisseurs]

- Résultat :

Lis le premier compte dans le fichier requête
cherche le compte dans la source : si tu trouves copier la ligne entière
continue à chercher dans le reste des mouvements
si tu trouves fais la même chose
Si tu ne trouves pas, tu ne fais rien

Lis le 2ème compte(a1+1) et tu refais la même chose... jusqu’à la fin

voilà j'espère que j'ai été claire

merci d'avance pour votre aide

[Marc-L]

Bonjour,

et où est le code ?

Sinon commencer par le faire manuellement en utilisant l'Enregistreur de macros pour se donner une base de code …

[telise]

bonjour,
merci pour votre retour
mon problème de recherchev : la recherche s’arrête une fois il trouve le premier et il passe au suivant...

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
18
19
20
21
22
23
24
25
26
27
Sub RechercherCopier()
Dim Quoichercher As Range, ChercherDans As Range
Dim xCell As Range, xTrouve As Range, i As Long
 
With Sheets("requete")
  Set Quoichercher = .Range("a" & Rows.Count).End(xlUp)
  Set Quoichercher = .Range(.Range("a1"), Quoichercher)
End With
 
With Sheets("source")
  Set ChercherDans = .Range("a" & Rows.Count).End(xlUp)
  Set ChercherDans = .Range(.Range("a1"), ChercherDans)
End With
 
With Sheets("resultat")
  .Range("a1").CurrentRegion.Clear
  For Each xCell In Quoichercher
    Set xTrouve = Nothing
    Set xTrouve = ChercherDans.Find(xCell.Value, _
      LookIn:=xlValues, lookat:=xlWhole)
    If Not xTrouve Is Nothing Then
      i = i + 1
      xTrouve.EntireRow.Copy .Rows(i)
    End If
  Next xCell
End With
End Sub

[Marc-L]

En fait il est inutile de double la ligne n° … Ah zut, le code n'a pas été balisé ! (via l'icône # …)

Pour ton problème, c'est simple : la méthode Find n'est pas respectée ! Je ne vois pas de FindNext …

Suffit de consulter l'aide intégrée VBA de cette méthode Find et de suivre son exemple …

Sinon à mon avis, s'il y a beaucoup de lignes, cela va ramer !
Il serait plus judicieux (plus rapide) de les filtrer par numéro de compte afin de les recopier …

[Invité]

http://www.developpez.net/forums/d13...r/#post7579538