Dans les deux macros ci-dessous je peux afficher
soit le noms d'un revendeur ou ceux qui doivent payer
Comment faire pour afficher ce que le revendeur choisi sous coco
soit le seul repris lors de l'affichage Payables Due?
D'avance un grand merci
Je bloque dessus depuis une heure
Rex
Sub Payables_Due()
Application.ScreenUpdating = False
Range("f5:f" & Cells(Rows.Count, "f").End(3).Row).EntireRow.Hidden = False
For Each c In Range("f5:f" & Cells(Rows.Count, "f").End(3).Row)
If c < [a1] Then c.EntireRow.Hidden = True
Next
Sheets("Summary").Select
Application.ScreenUpdating = True
End Sub
Sub Coco()
Application.ScreenUpdating = False
Sheets("Sales").Select
Range("Sales_Revendeurs").EntireRow.Hidden = True
For Each c In Range("Sales_Revendeurs")
If c = [A8] Then c.EntireRow.Hidden = False
Next
' Sheets("Summary").Select
Application.ScreenUpdating = True
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
rthompson
Bonjour
J'ai trouvé mon souci
Voici ce qu'il me fallait
Sub Single_Payable_due() Application.ScreenUpdating = False Range("Sales_Revendeurs").EntireRow.Hidden = True For Each c In Range("Sales_Revendeurs") If c = [A8] Then c.EntireRow.Hidden = False Next For Each c In Range("Sales_A_Payer") If c = 0 Then c.EntireRow.Hidden = True Next
Application.ScreenUpdating = True End Sub
Merci et à bientôt
Rex
"rthompson" a écrit dans le message de news: %
Bonjour à toutes et tous
Dans les deux macros ci-dessous je peux afficher soit le noms d'un revendeur ou ceux qui doivent payer
Comment faire pour afficher ce que le revendeur choisi sous coco soit le seul repris lors de l'affichage Payables Due?
D'avance un grand merci
Je bloque dessus depuis une heure
Rex
Sub Payables_Due() Application.ScreenUpdating = False Range("f5:f" & Cells(Rows.Count, "f").End(3).Row).EntireRow.Hidden = False For Each c In Range("f5:f" & Cells(Rows.Count, "f").End(3).Row) If c < [a1] Then c.EntireRow.Hidden = True Next Sheets("Summary").Select Application.ScreenUpdating = True
End Sub
Sub Coco() Application.ScreenUpdating = False Sheets("Sales").Select Range("Sales_Revendeurs").EntireRow.Hidden = True For Each c In Range("Sales_Revendeurs") If c = [A8] Then c.EntireRow.Hidden = False Next ' Sheets("Summary").Select Application.ScreenUpdating = True
End Sub
Bonjour
J'ai trouvé mon souci
Voici ce qu'il me fallait
Sub Single_Payable_due()
Application.ScreenUpdating = False
Range("Sales_Revendeurs").EntireRow.Hidden = True
For Each c In Range("Sales_Revendeurs")
If c = [A8] Then c.EntireRow.Hidden = False
Next
For Each c In Range("Sales_A_Payer")
If c = 0 Then c.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Merci et à bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %238kROIv0JHA.5036@TK2MSFTNGP02.phx.gbl...
Bonjour à toutes et tous
Dans les deux macros ci-dessous je peux afficher
soit le noms d'un revendeur ou ceux qui doivent payer
Comment faire pour afficher ce que le revendeur choisi sous coco
soit le seul repris lors de l'affichage Payables Due?
D'avance un grand merci
Je bloque dessus depuis une heure
Rex
Sub Payables_Due()
Application.ScreenUpdating = False
Range("f5:f" & Cells(Rows.Count, "f").End(3).Row).EntireRow.Hidden = False
For Each c In Range("f5:f" & Cells(Rows.Count, "f").End(3).Row)
If c < [a1] Then c.EntireRow.Hidden = True
Next
Sheets("Summary").Select
Application.ScreenUpdating = True
End Sub
Sub Coco()
Application.ScreenUpdating = False
Sheets("Sales").Select
Range("Sales_Revendeurs").EntireRow.Hidden = True
For Each c In Range("Sales_Revendeurs")
If c = [A8] Then c.EntireRow.Hidden = False
Next
' Sheets("Summary").Select
Application.ScreenUpdating = True
Sub Single_Payable_due() Application.ScreenUpdating = False Range("Sales_Revendeurs").EntireRow.Hidden = True For Each c In Range("Sales_Revendeurs") If c = [A8] Then c.EntireRow.Hidden = False Next For Each c In Range("Sales_A_Payer") If c = 0 Then c.EntireRow.Hidden = True Next
Application.ScreenUpdating = True End Sub
Merci et à bientôt
Rex
"rthompson" a écrit dans le message de news: %
Bonjour à toutes et tous
Dans les deux macros ci-dessous je peux afficher soit le noms d'un revendeur ou ceux qui doivent payer
Comment faire pour afficher ce que le revendeur choisi sous coco soit le seul repris lors de l'affichage Payables Due?
D'avance un grand merci
Je bloque dessus depuis une heure
Rex
Sub Payables_Due() Application.ScreenUpdating = False Range("f5:f" & Cells(Rows.Count, "f").End(3).Row).EntireRow.Hidden = False For Each c In Range("f5:f" & Cells(Rows.Count, "f").End(3).Row) If c < [a1] Then c.EntireRow.Hidden = True Next Sheets("Summary").Select Application.ScreenUpdating = True
End Sub
Sub Coco() Application.ScreenUpdating = False Sheets("Sales").Select Range("Sales_Revendeurs").EntireRow.Hidden = True For Each c In Range("Sales_Revendeurs") If c = [A8] Then c.EntireRow.Hidden = False Next ' Sheets("Summary").Select Application.ScreenUpdating = True