Discussion :

[rampage92]

Bonjour a tous,

Je voudrais utiliser la fonction PercentRank.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        With Sheets("CrossSectional")
            nbcol = .Cells(1, Columns.Count).End(xlToLeft).Column
                For j = 2 To nbcol
                    Select Case .Cells(8, j)
                        Case Is = ""
                             plage = Range(.Cells(7, 2), .Cells(7, nbcol)).Select
                            .Cells(8, j) = .Cells(7, j) + (1 - WorksheetFunction.PercentRank(plage, .Cells(8, j))) * (WorksheetFunction.Max(plage) - WorksheetFunction.Min(plage))
                            Case Else
                    End Select
                Next j
        End With

J'esssaye de stocker ma Range de Valeur dans la variable Plage.

Lorsque j'essaye de recuperer mon PercentRank il me renvoie le message d'erreur suivant :

Object variable or with block variable not set.

Je ne connais pas la methode pour stocker une Range dans une variable.

Des idées ?

[Menhir]

D'abord, on déclare (ce qui devrait être fait pour toutes les variables) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim plage As Range

Ensuite, pour affecter la référence d'un objet à une variable, on utilise l'instruction Set.
Il manque un "." devant le Range si tu veux que VBA considère le contenu (les Cells) appartient à la même feuille que le contenant (le Range).
Et le Select ne sert à rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                             Set plage = .Range("B7", .Cells(7, nbcol))

Le "Case Else" aussi est inutile.