Report information

Bonjour,

j'aimerai un report d'information à partir de la feuille 1 "liste" c'est à dire report de toutes les personnes inscrites pour une première injection sur la feuille appelée "1 ière injection et sur la feuille 3 " 2 ième injection".

exemple : tableau en PJ

feuille liste : Dupont pierre 1 ière injection doit se reporter sur la feuille 2 "1ière injection)

feuille liste : Durant Henri 2e injection doit se reporter sur la feuille 3 "2e injection)

Merci par avance pour votre aide

Cordialement

Mango

Bonjour

Ci joint ma solution

A+ François

Bonjour,

c'est exactement ce que je voulais, un trés grand merci.

Par contre mon tableau fait 250 lignes comment étendre la formule (je suis novice)

Merci par avance

Cordialement

Mango

Bonjour tout le monde. Une variante. Plus besoin de numéroter les patients avec la formule

=SI(B5<>"";LIGNE(A5)-4;"")

Tu feras attention à tes "1 ière" et "1iere".

Option Explicit
Sub Enregistrement()
    Dim ligne1 As Long, ligne2 As Long, nbInscrits As Long
    Dim i As Long
    Dim feuille As String

    nbInscrits = Sheets("Liste").Cells(Rows.Count, 2).End(xlUp).Row
    For i = 5 To nbInscrits
        ligne1 = Sheets("1iere injection").Cells(Rows.Count, 2).End(xlUp).Row + 1
        ligne2 = Sheets("2e injection").Cells(Rows.Count, 2).End(xlUp).Row + 1
        feuille = Sheets("Liste").Cells(i, 8)
        Select Case feuille
            Case "1 ière injection"
                Sheets("Liste").Range("B" & i & ":" & "H" & i).Copy
                Sheets("1iere injection").Range("B" & ligne1 & ":" & "H" & ligne1).PasteSpecial Paste:=xlPasteValues

            Case "2 ième injection"
                Sheets("Liste").Range("B" & i & ":" & "H" & i).Copy
                Sheets("2e injection").Range("B" & ligne2 & ":" & "H" & ligne2).PasteSpecial Paste:=xlPasteValues
        End Select
    Next i
End Sub

il n'y a pas de formule à étendre... c'est tout automatique

A+ François