Discussion :

[Magemax]

bonjour,

J'avais une petite macro qui me sortait quelques données statistiques sur un tableau.

Aujourd'hui, elle ne marche plus (depuis que je l'ai codée, je suis passé à XL 2007), et me sort le terrible "application defined or object defined error").

Ca foire au moment de la ligne en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Set origine = Application.InputBox("Sélectionnez une plage d'origine !", "Sélection de cellules", Type:=8)
    
    
    Set cellule = Application.InputBox("Sélectionnez une plage de destination !", "Sélection de cellules", Type:=8)
    
    
    
   ' origine.Name = "IRR"

  '  MsgBox origine.Address

    Adresse = origine.Address(, ColumnAbsolute:=False)

    cellule.Cells(1, 1).Value = "MIN"
    cellule.Cells(1, 2) = "=MIN(" + Adresse + ")"
    cellule.Cells(2, 1) = "MAX"
    cellule.Cells(2, 2) = "=MAX(" + Adresse + ")"
    cellule.Cells(3, 1) = "AVG"
    cellule.Cells(3, 2) = "=AVERAGE(" + Adresse + ")"
    cellule.Cells(4, 1) = "Median"
    cellule.Cells(4, 2) = "=MEDIAN(" + Adresse + ")"
    cellule.Cells(5, 1) = "Quantile"
    cellule.Cells(5, 2) = "=PERCENTILE(" + Adresse + ";0.25)"
    cellule.Cells(6, 1) = "FdR"
    cellule.Cells(6, 2) = "=COUNTIF(" + Adresse + ";0)/COUNT(" + Adresse + ")"

Quelqu'un sait à quoi c'est du ? / comment éviter ce souci ?

[Qwazerty]

Salut
Pour mettre des formule dans une cellule, il est préférable d'utiliser

Code :

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

cellule.Cells(5, 2).formula = "=PERCENTILE(" + Adresse + ";0.25)"

ou si tu mets des terme "français" dans la formule en question

Code :

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

cellule.Cells(5, 2).formulaLocal = "=CENTILE(" + Adresse + ";0.25)"

Je te garanti pas que ça vient de la, mais visiblement il n'y a pas de soucis avec la fonction Percentile depuis le passage a 2007.

un autre petit détail de syntaxe, la concaténation de texte se fait avec & et non avec +, les variable en vb étant polymorphe il est préférable d'y penser, même si je doute que ton soucis vienne de la puisque les autre ligne fonctionnes.

Code :

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

cellule.Cells(5, 2).formula = "=PERCENTILE(" & Adresse & ";0.25)"

HA par contre je viens de voir un truc qui lui est surement bloquant! Dans les formule, les ";" doivent être remplacé par des ",".

Code :

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

cellule.Cells(5, 2).formula = "=PERCENTILE(" & Adresse & ",0.25)"

En espérant que ça colle.
A++
Qwaz

[Magemax]

nickel c'était bien la virgule.

Merci aussi pour le petit point sur les autres petites erreurs qui en l'état actuel du code passe inapercues, mais qui pourraient bien me revenir au visage dans quelqeus versions.