RECHERCHEV en VBA avec index differé

Version imprimable

Bonjour,

je souhaite faire une sorte de recherche verticale avec (comme exemple) ces deux tableaux :

3

4

6

8

9

et

1 200

2 250

3 546

4 948

5 145

6 784

7 15

8 100

9 741

10 365

Donc rechercher où les valeurs du premier tableau se trouvent, et une fois qu'il les a trouvés, me donner le nombre correspondant de la deuxième colonne.

Donc je voudrais avec VBA obtenir une nouvelle colonne (en position E dans le tableur par exemple) qui aurait comme données :

546

948

784

100

741

Il faut prendre en compte que lorsque j'applique cette méthode, le nombre de lignes peut varier (je voudrais l'automatiser pour le faire tous les mois sur différentes colonnes).
Il faut donc parcourir la colonne en entier et non pas sur une plage précise.

J'ai essayé avec une méthode comme celle-ci :
Code:

1 2 3 4 5 6 7 8 9 10 Sub recherche() Dim C As Range, I As Long For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp)) For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(I, 2) = C.Value Then Cells(C, 5).Value = Cells(I, 3).Value End If Next I Next C End Sub
Mais ça me met "incompatibilité de type" et me surligne la ligne avec "Cells(C, 5).Value = Cells(I, 3).Value". Je tourne en rond depuis tout à l'heure
J'ai essayé avec ou sans les value, rien à faire, je ne sais pas d'où ça vient...

Si quelqu'un a une idée, peut-il m'éclairer?

Merci beaucoup pour votre temps! :)

Bonsoir

Essaie plutot comme ceci (erreur dans la formulation des cellules)

Code:

1
2
3
4
5
6
7
8
9
10
Sub recherche()
    Dim C As Range, I As Long
    For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row
            If Cells(I, 2) = C.Value Then
            Cells(I, 5).Value = Cells(I, 3).Value
            End If
        Next I
    Next C
    End Sub

Bonjour,

Essai ceci en adaptant :

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
29
30
31
32
Sub recherche()
 
    Dim Plage As Range
    Dim PlgValeur As Range
    Dim Cel As Range
    Dim Valeur As Integer
    Dim I As Integer
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 3).End(xlUp))
        Set PlgValeur = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In PlgValeur
 
        'gère l'erreur de la non correspondance pour la fonction "VLookup"
        On Error Resume Next
        Valeur = Application.WorksheetFunction.VLookup(Cel.Value, Plage, 2, False)
 
        'si pas d'erreur inscrit la valeur correspondante en colonne D
        If Err.Number = 0 Then
 
            I = I + 1
            Cells(I, 4).Value = Valeur
 
        End If
 
    Next Cel
 
End Sub

Hervé.

Oups, j'ai oublié les commentaires pour savoir où sont les plages :

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
29
30
31
32
33
34
35
Sub recherche()
 
    Dim Plage As Range
    Dim PlgValeur As Range
    Dim Cel As Range
    Dim Valeur As Integer
    Dim I As Integer
 
    With Worksheets("Feuil1") '<--adapter le nom de la feuille...
 
        'matrice en colonnes B et C
        Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 3).End(xlUp))
 
        'plage des valeurs à chercher en colonne A
        Set PlgValeur = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In PlgValeur
 
        'gère l'erreur de la non correspondance pour la fonction "VLookup" qui retourne la valeur de la colonne C
        On Error Resume Next
        Valeur = Application.WorksheetFunction.VLookup(Cel.Value, Plage, 2, False)
 
        'si pas d'erreur inscrit la valeur correspondante en colonne D
        If Err.Number = 0 Then
 
            I = I + 1
            Cells(I, 4).Value = Valeur
 
        End If
 
    Next Cel
 
End Sub

Hervé.

26/03/2014, 17h44
jslpfasc2
Merci à vous pour vos réponses.

ips02 : Le soucis c'est que les valeurs s'affichent au mauvais endroit, je souhaiterais qu'elles s'affichent en face des numéros de la première colonne. Et en appliquant ta méthode, elles s'affichent en face des numéros de la seconde colonne. C'est justement de différer l'index qui est difficile dans ce code.

Ca donnerait :

3 1 200 546

4 2 250 948

6 3 546 784

8 4 948 100

9 5 145 741

6 784

7 15

8 100

9 741

10 365

Theze : Ta méthode semble presque marcher, mais lorsque je le lance, il ne m'affiche que la première valeur. (le 546 dans l'exemple)
Pourtant tu as bien incrémenté ta boucle, c'est bizarre. Dans ma vraie table, j'ai des doublons. (Mais il faut que je les garde.) Ça vient pas de là?

Merci pour votre aide en tous cas c'est super! :)

Après quelques tests, j'ai pu remarquer que lorsque le code de Theze ne trouvait pas de valeur avec la recherche, il ne sautait pas la ligne.

Voici le résultat avec des valeurs qui ne sont pas dans le tableau :
```
3	1	200	546
10	2	250	365
6	3	546	784
8	4	948	100
9	5	145	741
12	6	784	145
14	7	15	
5	8	100	
	9	741	
	10	365	
```
Alors qu'il faudrait :
```
3	1	200	546
10	2	250	365
6	3	546	784
8	4	948	100
9	5	145	741
12	6	784	
14	7	15	
5	8	100	145
	9	741	
	10	365	
```
Une petite idée?

Merci beaucoup! Je sens qu'on est proche! :)
26/03/2014, 17h59
patricktoulon

re

Bonjour
en fait tu aura plus de chance d'avoir des réponse a coté

en effet ta question est un peu vague

Questions
ou tu prend ton 1er tableau 3.4.6.8.9?
ou tu prend ton 2 Emme tableau ?

ou tu veux que les correspondante doivent atterrir (exacte si possible)

déjà répond correctement a ca et on verra si on peut faire quelque chose de correcte

Bonsoir

Et si tu essaies de cette manière? (Avec les réponses en colonne "E")et dans la mesure où il n'y a pas de vide entre les cellules de la colonne "A"

Cordialement
Lps02

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub recherche()
    Dim I As Long, n As Long
    n = 1
    While Range("A" & n).Value <> ""
        For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row
            If Cells(I, 2) = Range("A" & n).Value Then
            Range("E" & n).Value = Cells(I, 3).Value
            End If
        Next I
   n = n + 1
   Wend
End Sub

Bonjour à tous,

J'ai essayé avec une fonction Row et ça fonctionne.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 Sub recherche() Dim C As Range, I As Long For Each C In Range([A1], Cells(Rows.Count, 1).End(xlUp)) For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(I, 2) = C.Value Then Cells(C.Row, 5).Value = Cells(I, 3).Value End If Next I Next C End Sub
@Patrick: Désolé de ne pas avoir été claire, c'est toujours difficile d'exprimer ce qu'on veut exactement quand on joue sur des colonnes. Mais je tâcherai d'être plus précis à l'avenir! :)

@Ips02 : J'ai testé ta méthode elle marche également, bien joué !

Merci encore à tous pour votre précieuse aide. :zoubi:

3	1	200	546
4	2	250	948
6	3	546	784
8	4	948	100
9	5	145	741
	6	784
	7	15
	8	100
	9	741
	10	365

3	1	200	546
4	2	250	948
6	3	546	784
8	4	948	100
9	5	145	741
	6	784
	7	15
	8	100
	9	741
	10	365

3	1	200	546
4	2	250	948
6	3	546	784
8	4	948	100
9	5	145	741
	6	784
	7	15
	8	100
	9	741
	10	365