[porcinet82]

Salut Criscris11,

Comme tu demandes une formule et que j'ai un esprit de contradcition, je te file une solution par macro évenementielle a placer dans le module de la feuille concernée (qui se declenche dans le cas present des que tu modifies une valeur presentent dans la plage H5:J5).
Je précise que je me suis basé ici sur le fait que tes échelons et la date etait toujours presentes dans la plage H4:J5

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range('H5:J5')) Is Nothing Then
    If Cells(5, 10).Value ‹› '' Then
        Cells(1, 5).Value = Cells(5, 10).Value
        Cells(2, 5).Value = Cells(5, 10).Value
    ElseIf Cells(5, 9).Value ‹› '' Then
        Cells(1, 5).Value = Cells(5, 9).Value
        Cells(2, 5).Value = Cells(5, 9).Value
    ElseIf Cells(5, 8).Value ‹› '' Then
        Cells(1, 5).Value = Cells(5, 8).Value
        Cells(2, 5).Value = Cells(5, 8).Value
    Else
        Cells(1, 5).Value = ''
        Cells(2, 5).Value = ''
    End If
End If
End Sub

Voili, voilou,

@+

PS : Remplace les ‹› par leurs homologues du clavier

Edition : Salut Monique, le temps d'ecrire la macro et tu as ete plus rapide :sick:

Message édité par: porcinet82, à: 27/04/2006 21:19