recherchev

je ne ciblerais qu'une cellule (la désactivation d'un évènement est dangereuse).

Cliquez pour agrandir...

BOISGONTIER à dit:

Bonjour,


=RECHERCHEV(B$24;INDIRECT("S"&EQUIV(VRAI;(NB.SI(INDIRECT("S"&LIGNE($1:$3)&"!A2😀100");B$24)>0);0)&"!A2😀100");2;FAUX)
Valider avec maj+ctrl+entrée

Formules Matricielles 3D

JB

Cliquez pour agrandir...

Si... à dit:

salut

avis personnel : je ne ciblerais qu'une cellule (la désactivation d'un évènement est dangereuse).

Code:

Private Sub Worksheet_Change(ByVal R As Range)
  Dim O As Worksheet, C As Range
  If R.Address <> "$B$24" Then Exit Sub
  [B25:B28] = ""
  For Each O In Worksheets
    If O.Name Like "S*" Then
      Set C = O.[A:A].SpecialCells(2).Find([B24], , , xlWhole)
      If Not C Is Nothing Then
        [B25:B27] = Application.Transpose(C(1, 2).Resize(, 3))
        [B28] = O.[A1]
        Exit Sub
      End If
    End If
  Next
  MsgBox "N° inexistant !", vbCritical, "Attention..."
End Sub

Cliquez pour agrandir...