Valeurs maxi de plusieurs feuilles xls

Question

Bonjour,

Je voudrai faire afficher le max d'une certaine plage de données pour plusieurs feuilles sur VB. J'ai fait la macro suivante :

Sub test()
Dim nb As Variant
Dim WS As String
Dim k As Double

For k = 1 To 9
    WS = ActiveWorkbook.Worksheets(k).Name
    With Worksheets(WS)
    nb = WorksheetFunction.Max(Range("AA23 : AA64"))
    MsgBox nb

    End With

Next k

End Sub

Le problème est que la macro affiche pour chaque feuille le max de la première feuille...la valeur de nb ne change pas!
Est ce que qq'un pourrait m'aider?

Merci!

Ivan-hoe · Answer

Salut, 
il te manque simplement ... un point ! (juste avant Range)
nb = WorksheetFunction.Max(.Range("AA23 : AA64"))
Sinon, tu fais toujours référence à la feuille active, et non pas à la feuille(WS)
I.

amigo · Answer

bonjour,

essaie comme ça

Sub test() 
Dim nb As Variant 
Dim WS As String 
Dim k As Double 

For k = 1 To 9 
   WS = ActiveWorkbook.Worksheets(k).Name 
   Sheets(WS).Select
   nb = WorksheetFunction.Max(Range("AA23 : AA64")) 
   MsgBox nb 
Next k 

End Sub


Salut

Valeurs maxi de plusieurs feuilles xls

2 réponses

Discussions similaires

Newsletters