Re : Extraction d'une base de données
re,
J'utilise cette procédure, pour trier mais voilà je ne comprend pas trop tout ça.
cette procédure peut peut-être t'aider.
Sub bdextraction_Comptes()
Application.ScreenUpdating = False
Dim Rng As Range
Set Rng = Sheets("Catégories").Range("B2:L3")
If Application.WorksheetFunction.CountA(Rng.Offset(1, 0)) > 0 Then
Sheets("Catégories").Range("B5:L5000").Clear
Sheets("Saisie").Range("B5:L5000").AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Rng, _
CopyToRange:=Sheets("Catégories").Range("B5"), Unique:=False
Sheets("Catégories").Range("B5").EntireRow.Delete
Sheets("Catégories").Range("A1").Select
Else
MsgBox "Il faut écrire un libellé Michel !", _
vbCritical, "ERREUR"
Sheets("Catégories").Range("B5").Select
End If
Application.ScreenUpdating = True
End Sub