Trer non vide

[breeze]

Bonjour,
J'ai besoin de votre aide. J'utilise une macro qui me permet de trier les cellules non vide et de les copier dans une liste. Si il y a quelque chose en D la macro sélectionne la colonne c et D et la recopie dans une grille. Jusque là ça va.
Mon problème est que si la colonne D est vide la macro me copie tout les 300 noms de la colonnes B et C.
Comment dire à la macro "Si la colonne D est vide ne transcrit rien.
Voici la macro que j'utilise


Sheets("Feuil4").Select
Range("C4😀160").Select
Selection.ClearContents
Range("A15").Select
Sheets("Feuil3").Select
Selection.AutoFilter Field:=Range("a2").Value, Criteria1:="<>"
Range("C8😀261").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").Value
Sheets("Feuil4").Select
End Sub


Merci

 

[Paritec]

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🙂

 

[JNP]

Re : Trer non vide

Bonjour le fil 🙂,

If Evaluate("counta(D:D)") <> 0 Then
' Ta macro
Else
MsgBox "Pas de données en D !"
End If

Bonne journée 😎

 

[breeze]

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

 

[breeze]

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

 

[JNP]

Re : Trer non vide

Re 🙂,

If Range(Range("B1").Value & "5").Value = 0 Then

Bonne journée 😎