Re : macros liste deroulante
Désolé pour le fichier, mais je ne sais pas pourquoi, même en le simplifiant il dépasse la taille maxi.
voici des cartures d'écran avec une macro que j'ai écrit pour extraire des colonnes de mes feuilles de données et faire le calcul "retard de la réponse " qui je ne sais pour quelle raison ne fonctionne pas.
Sub filtrer()
Dim MaPlage As Range
Dim DerLig As Long
Application.ScreenUpdating = False
Range("E10", Range("E10").End(xlDown)).Clear
With Worksheets("en_tete_devis")
Set MaPlage = .Range("A1:BI" & .Range("A" & Rows.Count).End(xlUp).Row)
MaPlage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I3:J4"), _
CopyToRange:=Range("A9😀9"), Unique:=False
End With
DerLig = Range("E10").End(xlDown).Row
If DerLig < Rows.Count Then
Range("E10").Formula = "=IF(NETWORKDAYS(B10,C10)>=0,NETWORKDAYS(B10,C10)-1,-1*((NETWORKDAYS(C10,B10))-1))"
Range("E10").AutoFill Destination:=Range("E10:E" & DerLig), Type:=xlFillDefault
Range("E10:E" & DerLig) = Range("E10:E" & DerLig).Value
End If
End Sub