Recherche dans 1 seule colonne..avec incrément

[Homer75]

bonjour à tous !!!

voila mon petit souci.

j'ai une liste de près de 500 cellules. Je recherche une cellule et je voudrais trouver les cellules qui sont en dessous de celle que j'ai recherché (en fonction d'un increment: 1,2,3,4...).

voila un petit exemple de ma recherche "spécial".

Merci d avance pour votre aide.

 

[Tibo]

Re : Recherche dans 1 seule colonne..avec incrément

Bonjour,

Pas sûr d'avoir bien compris.

Peut-être ceci :

en E12 :

=INDEX($A$3:$A$21;EQUIV(E11;$A$3:$A$21;0)+F12)

en E13 :

=INDEX($A$3:$A$21;EQUIV(E11;$A$3:$A$21;0)+F13)

en E14 :

=INDEX($A$3:$A$21;EQUIV(E11;$A$3:$A$21;0)+F14)

Je te laisse tester.

Si pas ça, reviens avec plus de précisions et en nous donnant le résultat de ce que tu attends.

@+

 

[Homer75]

Re : Recherche dans 1 seule colonne..avec incrément

Et bien....c'est parfait !!!!!!



Merci beaucoup pour ton aide !!!

Bonne journée..et à un prochain problème

 

[hoerwind]

Re : Recherche dans 1 seule colonne..avec incrément

Bonjour,

En E4, au choix :

=INDEX(A$3:A$21;EQUIV(E$3;A$3:A$21;0)+F4)
=DECALER(INDIRECT("A"&EQUIV(E$3;A$1:A$21;0));F4; )
à copier vers le bas.

Edition : salut Tibo, pas vu !

 

[SubEndSub]

Re : Recherche dans 1 seule colonne..avec incrément

Bonjour chez vous

Une solution par macro

Sub macro()
Dim T as Variant, i As Long, c As Range, l As Long
Dim valeurs As Range
Set valeurs = Columns("E:E").SpecialCells(xlCellTypeConstants, 23)
T = Split(valeurs.Address, ",")
Application.ScreenUpdating = False
For i = LBound(T) To UBound(T)
For Each c In Range("A3:A" & [A65536].End(xlUp).Row)
If c = Range(T(i)) Then
c.Resize(4).Copy Range("C" & c.Row)
End If
Next c
Next i
Range("C3:C" & [C65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub