cherche oeil avisé pour macro qui cloche

[man]

bonjour à tous,

j'aurai besoin de vos lumières pour m'expliquer ce qui cloche avec le code ci-après.
Son but est d'effectuer la macro TriParDate pour toutes les feuilles d'un classeur à partir de la 3eme feuille seulement.
la macro semble s'executer (sablier) et je n'ai pas de message d'erreur mais en fait elle n'execute pas la macro Tripardate.
ca doit etre tout con, quand on sait....

Merci d'avance





Option Explicit

Sub miseAjour()

Dim WS As Worksheet, F As Byte

With ThisWorkbook

For F = 3 To .Sheets.Count
With .Sheets(F)

TriparDate

End With

Next F

End With

End Sub

 

[jp]

Bonjour man,

un petit fichier Zippé permettrait peut-être d'y voir un peu plus clair...

Je ne suis pas un spécialiste des macros, je me débrouille néanmoins en ce qui me concerne...

Ta macro elle trie quoi et où ?

Je viens de faire quelques essais.... sans résultats.

En attendant, bonne soirée.

jp

 

[man]

Bonjour JP

merci pour ta collaboration mais j'ai trouvé la solution :

j'ai remplacé with sheet (F) par sheet(F).activate et cela fonctionne

Bonne prog à tous


Option Explicit

Sub miseAjour()

Dim F As Byte

With ThisWorkbook

For F = 3 To .Sheets.Count
.Sheets(F).Activate

TriparDate

Next F

End With

End Sub

 

[jp]

Re man,

Bon...Ben je suis nul mais en tous cas, merci pour ta réponse, c'est sympa..

Bonne soirée à tous

jp