Encore recherche

[anber]

Bonsoir,

Je recherche le code pour remonter des valeurs en fonction d'une autre (genre recherche), j'ai fais un début de code mais il plante

Merci par avance

 

[Hervé]

bonsoir

Je me suis pas servie de ton code, désolé.

essaye ceci dans l'objet feuil 1 de ton fichier :

Sub test()
Dim c As Range
Dim i As Integer
' efface les cellules de destination
Range("h9:i15").ClearContents
' alimente la variable i
i = 9
'pour chaque cellule dans c8:jusqu'a la derniere non vide
For Each c In Range("c8:c" & Range("c5000").End(xlUp).Row)
' si la valeur de la cellule = la valeur de h8
If c.Value = Range("h8").Value Then
' place en h9 la valeur de h8
Range("h" & i).Value = Range("h8").Value
'place en i9 la valeur trouvé en colonne D
Range("i" & i).Value = c.Offset(0, 1).Value
'incrémente i
i = i + 1
'fin de la condition
End If
'prochaine cellule
Next c

End Sub

J'ai pensé que tu voulais renvoyé le chiffre correspondant à ta référence.

Salut
Hervé

 

[Hervé]

re

J'ai oublié de te dire qu'une simple fonction recherche pouvait faire ce type de boulot

Bon courage

Salut
Hervé

 

[anber]

Bonjour,

Merci Hervé pour ton code.

Effectivement, il est possible de le faire par une fonction, mais dans dans l'appli il y aura des milliers de lignes et beaucoup de colonnes... plus facile à gérer par code

Encore merci