Base de données tri

Bonjour,

je vous joint un fichier avec mes petits soucis!

En fait, je voudrais faire en sorte que lorsque que j'utilise ma liste déroulante en D7, ma base de données me renvoie toutes les lignes qui correspondent à la classe choisie!

Par ailleurs, j'aimerais que les éléments en bas du tableau à savoir les totaux, le lieu, la date ainsi que les signatures se décale automatiquement en fonction du nombre de ligne qui est renvoyé. En clair, faire en sorte que le total soit toujours situé une ligne après la dernière ligne renvoyée.

Merci pour votre aide!

bonjour,

regarde si ca te vas

une fois la macro fait fais un bouton et clic sur ta liste déroulant et execute la macro

Sub Macro17()
'
' Macro17 Macro
'

'
    ActiveSheet.Range("$A$10:$J$66").AutoFilter Field:=2, Criteria1:=Range("D7"), _
        Operator:=xlOr, Criteria2:="="
End Sub

tiens nous au courant

après avoir copier coller ton code, ça ne marche pas. Qu'entend tu par créer un bouton? Car la liste déroulante est déjà présente en D7

Merci pour ton aide

Bonjour à tous,

Avec filtre élaboré

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg%
    If Not Application.Intersect(Target, Range("d7")) Is Nothing Then
        Application.ScreenUpdating = False

     With Sheets("tableau éléves")
            On Error Resume Next
        .ShowAllData
            On Error GoTo 0
        If Target.Count > 1 Or Target = "" Then Exit Sub
        Lg = .Range("a65536").End(xlUp).Row
        .Range("o2") = "=b11=$d$7" 'critère
        .Range("a10:j" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        .Range("o1:o2"), Unique:=False
     End With
    End If
End Sub

tu verras les formules Somme devient Sous.total

Amicalement

Claude

Merci dubois,

Cependant, un problème persiste: mes cases total ne s'actualisent pas en fonction de ma liste déroulante!

re,

tu as bien mis les formules ?

en J30

=SOUS.TOTAL(9;J11:J28)

Claude

Bonjour,

Si tu abandonne, merci de solder ce poste

à+... Claude