Bonjour a tous, j'ai un problème avec cette macro. Je l'ai repiquée sur un autre fichier car je veux obtenir le mème travail, mais je n'arrive pas à la déchiffrer totalement. Et donc il me manque surement certaines données à completer pour la faire fonctionner ou je veux.
Le role ce cette macro est de fairre ressortir dans un tableau les éléments d'un autre tableau (qui possède un critère numérique) dont une des valeur supperieur ou infférieure à une valeur de base ( ici, c'est 2)
Serait-il possible de la décrire et la déchiffrer plus en détail?
Un grand merci d'avance.
Le role ce cette macro est de fairre ressortir dans un tableau les éléments d'un autre tableau (qui possède un critère numérique) dont une des valeur supperieur ou infférieure à une valeur de base ( ici, c'est 2)
Serait-il possible de la décrire et la déchiffrer plus en détail?
Un grand merci d'avance.
Code:
Sub Extraction()
Sheets("Tableaux").Select
Sheets("Statistiques").Range("E13:H36").ClearContents
Lig = 13
DerLig = [H36].End(xlUp).Row
For L = 2 To DerLig
If Cells(L, 3) >2 Then
Cells(L, 3).EntireRow.Copy Destination:=Sheets("Statistiques").Cells(Lig, 1)
Lig = Lig + 1
End If
Next L
Sheets("Statistiques").Select
End Sub