codage vba: recherchev sur plusieurs onglets

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je suis sur un projet ou je suis deja bloqué depuis lundi.
Il s'agit de coder en vba une recherchev sur plusieurs onglets.

Sur mon premier onglet "collecte AP" je cherche dans la colonne B la valeur correspondante au code associé.
Ces valeurs sont dans les autres onglets.

J'ai commencé à écrire le code ci dessous. Cependant? je n'arrive pas à coder la suite, cest à dire: lorsque la vl n'est pas présent dans mon premier onglet "Rappro_GVIE_global" j'aimerai effectuer la recherche sur les autres onglets.

Je vous transmet le fichier en PJ.
Merci par avance de votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub recheche() i = 9 While IsEmpty(Cells(i, 1)) = False j = 1 While IsEmpty(Sheets("Rappro_GVIE_global").Cells(j, 1)) = False If Cells(i, 1) = Sheets("Rappro_GVIE_global").Cells(j, 1) Then Cells(i, 2) = Application.VLookup(Cells(i, 2), Sheets("Rappro_GVIE_global").Range("a:z"), 3, 0) else if j = j + 1 Wend i = i + 1 Wend End Sub

Bonjour,

Pour rechercher sur toutes les feuilles, une solution est de boucler sur ces dernières.

Une proposition ci dessous

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
28
 
 
Sub Recherche2()
 
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
 
'Boucle sur chaque ligne de recherche
For i = 9 To Me.Range("A" & Rows.Count).End(xlUp).Row
    'Boucle sur chaque Feuille
    For Each Sh In ThisWorkbook.Worksheets
        'Ne travail pas si la feuille = feuille destination
        If Sh.Name <> Me.Name Then
            'Recherche la valeur
            Set Rg = Sh.Range("A:A").Find(what:=Me.Range("A" & i).Value, LookAt:=xlWhole)
            'Si Trouvé
            If Not Rg Is Nothing Then
                'On met la valeur de la colonne C dans la colonne B de la feuille destination
                Me.Range("B" & i).Value = Rg.Offset(0, 2).Value
                Exit For
            End If
        End If
    Next Sh
Next i
 
 
End Sub

14/02/2012, 15h30
sims92.66

Bonjour jfontaine.

J'ai essayé d'appliquer ton code mais en lancant la macro rien n'a été calculé.
:(

Faisant mes tous premiers en VBA, pourrais tu dévelloper un plus ton idée

Merci
14/02/2012, 15h48
sims92.66

Merci ca marche bien.

Maintenant si je rajoute un critere de plus sur ma recherchev, comment devrai je coder ca?