Discussion :

[babybell]

Bonjour

Comment faire un RechercheV d'une liste plus petite que celle à renseigner, de manière à ce que les renseignements fournis ne soient pas tous les mêmes ?

3020 15360
3085 15360
3175 15360
3620 10914
3640 10914
3766 10914
3915 10449
3979 10449
4025 10449

Je vais chercher dans une feuille ce qui commence par 3020, 3085, 3175 etc, mais dans cette feuille, il n'y a que ce qui concerne 3020, 3620 et 3915 qui soient renseignés, pas le reste. Ce qui n'est pas renseigné devrait ne pas apparaitre, mais je n'y arrive pas.

Ais-je été assez clair ?

Merci

[LeForestier]

Bonjour,

Ais-je été assez clair ?

non
A+

[babybell]

Dans l'onglet visé par RechercheV, j'ai :

3020 15360
3620 10914
3915 10449

et dans la feuille qui doit être renseignée j'ai :

3020
3085
3175
3620
3640
3766
3915
3979

donc, il ne devrait y avoir de renseigné que
3020
3620
3915

mais malheureusement, même ce qui n'est pas concerné est renseigné

[casefayere]

Bonsoir,
un exemple par formule

Code :

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

=SI(ESTNA(RECHERCHEV(A1;$G$1:$H$3;2;FAUX));"";RECHERCHEV(A1;$G$1:$H$3;2;FAUX))

bien sur remplace par les bonnes cellules

a +

et maintenant un petit code vba simple avec un bouton de commande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer
For y = 1 To Range("g65536").End(xlUp).Row
For x = 1 To Range("a65536").End(xlUp).Row
'j'imagine que la recherche est dans g1:h3
If Range("a" & x) = Range("g" & y) Then
'les cellules à remplir dans colonne b
Range("b" & x) = Range("h" & y)
End If
Next x
Next y
End Sub

à adapter bien sur

[babybell]

Merci

Bonne soirée

[casefayere]

j'ajoute quand meme ce code plus efficace :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim cell As Range, x As Integer, n As String
n = Range("a65536").End(xlUp).Row
For x = 1 To n
Set cell = Range("g1:g" & Range("g65536").End(xlUp).Row).Find(Range("a" & x))
If Not cell Is Nothing Then
Range("b" & x) = cell.Offset(0, 1)
Else
Range("b" & x).ClearContents
End If
Next x
End Sub

à adapter