Valeurs maxi de plusieurs feuilles xls

Fermé

IB05 - 20 mai 2008 à 16:05
IB05 - 20 mai 2008 à 16:33

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!

A voir également:

Valeurs maxi de plusieurs feuilles xls
Fusionner plusieurs feuilles excel en une seule - Guide
Maxi compte - Télécharger - Comptabilité & Facturation
Xls viewer - Télécharger - Tableur
Feuille de pointage excel - Télécharger - Tableur
Excel liste de valeurs - Guide

2 réponses

Réponse 1 / 2

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
20 mai 2008 à 16:30

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.

IB05
20 mai 2008 à 16:33

Merci beaucoup!!!

Réponse 2 / 2

amigo
20 mai 2008 à 16:32

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

Discussions similaires

Les feuilles Diddl

Fonction SI comprise entre plusieurs valeurs

Feuille de score belote

ou sont les bananes ?

Dans une formule : condition "compris entre" 2 valeurs

Discussions similaires

Newsletters