RechercheV dans une plage?

[JJ1]

Bonsoir à tous,
Pensz-vous possible l'utilisation de Recherche dans une plage:
par exemple nombres en A1:C5
1 3 5
4 6 8
3 4 5
1 2 3
7 8 9

je saisis le nombre à rechercher en G1: par ex:3

je voudrais en colonne H, les nombres trouvés pour le nombre 3 qui le suivent directement en descendant:
ici j'aurais en colonne H:
6
1
9 car le 6 suit le3, ainsi que le 1 et le 9
Est ce possible?
merci de votre aide et bonne nuit

 

[ninbihan]

Re : RechercheV dans une plage?

Bonsoir le forum, bonsoir JJ1

Voici un essai avec macro...

Bonne soirée,

Ninb

 

[Catrice]

Re : RechercheV dans une plage?

Bonsoir,

Une solution formules Feuille de calcul

 

[Monique]

Re : RechercheV dans une plage?

Bonjour,

Une formule matricielle, un format conditionnel, un format nombre 0;;
Ou bien la même chose en 3 formules ou en 2 formules.

 

[JJ1]

Re : RechercheV dans une plage?

Bonjour Ninbihan, le Forum,
Merci à Catrice et Monique pour leurs réponses.
J'utilise la macro jointe qui fonctionne parfaitement et est très rapide.
J'ai voulu la modifier ainsi en rajoutant:
j = 1
For Each cell In Range("A1:C50")
If cell.Value = Range("G1").Value Then
If cell.Offset(1, 1).Value > 0 Then
Range("I" & j) = cell.Offset(1, 1).Value
j = j + 1
Else
End If
Else
End If
Next cell

qui fonctionne mais il y a un problème.
Je décale de un nombre vers le bas et de 1 nombre à droite sur la même ligne.

ex:
1 2 3
4 5 6

ici pour le 1 j'aurai le 5.
le problème est quand je teste le 3, je "sors du cadre" et la macro me prend les numéros des colonnes résultats adjacentes!!
est-il possible de fixer "le cadre" et de passer au test suivant ?
Le test >0 semble insuffisant dans mon cas.
(idem avec If cell.Offset(1, 2).Value , je décale de 2 à droite donc je sors du cadre)

merci et bon samedi

 

[ninbihan]

Re : RechercheV dans une plage?

Re le forum, Bonjour JJ1

Tu peux essayer ainsi:

j = 1
For Each cell In Range("A1:C50")
If cell.Value = Range("G1").Value Then
If cell.Offset(1, 1).row < 50 and cell.Offset(1, 1).column < 4 Then
Range("I" & j) = cell.Offset(1, 1).Value
j = j + 1
Else
End If
Else
End If
Next cell

Bonne soirée,

Ninb

 

[JJ1]

Re : RechercheV dans une plage?

Re,
j'ai trouvé une autre solution qui fonctionne aussi, en mettant une condition de couleur de police 11, ainsi tous les nombres qui n'ont pas ce code sont évités et ça marche aussi (bidouille !!)
En tout cas merci pour ton aide
bonne soirée