Trer non vide

Re : Trer non vide

Bonjour Breeze, le forum
si tu nous mets un bout de ton fichier je te le modifie, mais je n'ai pas envie de le créer.
a+
papou🙂

Re : Trer non vide

Bonjour le fil 🙂, Bonne journée 😎

Re : Trer non vide

Salut à tous,
J'ai du mal a vous envoyer mon fichier puisqu'il est lourd 18mo.
La macro de JNP est bonne le seul problème c'est que la colonne à trier n'est pas toujours la D. D'où la variable mans ma macro (en rouge)

Sheets("Feuil4").Select
Range("C4160").Select
Selection.ClearContents
Range("A15").Select
Sheets("Feuil3").Select
Selection.AutoFilter Field:=Range("a2").Value, Criteria1:="<>"
Range("C8261").Select
Selection.Copy
Sheets("Feuil4").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A21").Select
Sheets("Feuil3").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.AutoFilter Field:=Range("a2").ValueSheets("Feuil4").Select
End Sub

Re : Trer non vide

salut je reviens avec mon problème et une partie de la solution.
DAns la formule suivante:
If Range("e5").Value = 0 Then
MsgBox "Pas de données à trier !"

peut-on rendre E5 variable. C'est à dire tout dépendant quelle colonne est cochée ce peut être E5 ou F5 ou G5 jusqu'a AD5
Quand je coche une colonne, le lettre de la colonne s'affiche en b1. Il faudrait que j'arrive a écrire quelquechose comme
If range("b1&5").value
B1 étant la colonne et 5 qui est la rangée.
J'espère etre clair.
Je vous remercie de votre aide et de votre compréhension
Merci encore

Re : Trer non vide

Re 🙂, Bonne journée 😎