Aide RECHERCHEV en Vba

Version imprimable

23/11/2013, 12h49
telise

Aide RECHERCHEV en Vba

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 :ccool:
23/11/2013, 13h14
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 …

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:

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

27/11/2013, 12h31
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 …
27/11/2013, 13h07
Invité

1 pièce(s) jointe(s)

bonjour, regarde ça

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