methode find et pourcentages

G

greg0ire

Guest

• 21 Juin 2007

• #16

Re : methode find et pourcentages

J'ai effectivement appliqué un format : .Columns(lng + 3).NumberFormat = "0.00%" et je pense que je vqis récupérer min et max au remplissage des cellule même si c'est très moche...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2007

• #17

Re : methode find et pourcentages

Re

bon a priori ca fonctionne chez moi aussi si résultat à partir de formules, par contre format des cellules très important, sans appliquer de style.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2007

• #18

Re : methode find et pourcentages

Re

tu as bien sur le point, comme séparateur de déclimale...

 

Vote positif 0 Vote négatif

G

greg0ire

Guest

• 21 Juin 2007

• #19

Re : methode find et pourcentages

Je vais faire une boucle vb toute simple pour trouver mon information ça rallongera pas des masses et ça m'évitera une bonne prise de tête si les comparaisons valeur/min et valeur/max marchent.

 

Vote positif 0 Vote négatif

G

greg0ire

Guest

• 21 Juin 2007

• #20

Re : methode find et pourcentages

Ah excel affiche des virgules, lui (alors que je lui ai mis . dans le number format)
EDIT : mais si je met une virgule dans le number format ça m'affiche plus les décimales

 

Dernière modification par un modérateur: 21 Juin 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Juin 2007

• #21

Re : methode find et pourcentages

ceci expliquerait cela... perso comme je fais pas mal de vba et que dans ce dernier les décimales sont séparés par des points, j'ai définitivement opté pour le point comme séparateur dans les paramètres régionaux.

bonne journée
@+

 

Vote positif 0 Vote négatif

G

greg0ire

Guest

• 21 Juin 2007

• #22

Re : methode find et pourcentages

Voilà j'ai fait ça c'est super laid mais ça marche nickel...

Code:

  For Each data In colSelection(col)
        If data.Value < minC Then
            minC = data.Value
            cMin = data.Offset(0, -1).Value
        End If
        If data.Value > maxC Then
            maxC = data.Value
            cMax = data.Offset(0, -1).Value
        End If
    Next

Merci quand même pour l'intérêt que vous avez porté à mon problème.

 

Vote positif 0 Vote négatif