Discussion :

[bibi5883]

Bonjour,
nouveau petit soucis, (lié à mon erreur 2036), je voudrais tester d'un seul coup la valeur de toute une plage de données. En fait j'aimerai utiliser une fonction qui ne fonctionne que si la plage de données n'est pas vide.
Pour cela, j'ai utilisé ce code:

Code :

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

1
2
3
4
5
6
   If Range("AG" & indic_ligne_deb & ":AG" & indic_ligne_fin) <> "" Then
                Worksheets("Stat_plus_CA").Select
                Worksheets("Stat_plus_CA").Cells(ligne_stat, 16).Select
                Selection.NumberFormat = "General"
                ActiveCell.FormulaR1C1 = "=AVERAGE(Client_alloc!R[" & indic_ligne_deb & "]C[17]:R[" & indic_ligne_fin & "]C[17])"
                End If

Forcément, j'ai un message d'erreur qui me dit que je ne peux pas faire ca sur la plage range.
Quelqu'un serait-il comment faire, sans boucle pour tester mon range???

Merci

[ouskel'n'or]

Mine de rien, ta question est triple.
1 - Selection d'une plage de cellules (renseignées) ?
2.1 - Ecrire une formule dans une cellule ?
2.2 - Ecrire la même formule dans toutes les cellules de la plage ?
Tu peux préciser ?
A+

Question subsidiaire :
3 - As-tu des lignes ou des colonnes entièrement vides dans ta plage ?

[bibi5883]

alors,
la plage est renseignée, mais parfois elle est vide. Je veux calculer la moyenne de cette plage et la mettre dans une cellule d'une autre page. Le problème c'est que quand la plage est vide, mon calcul me donne soit: #DIV/0!# soit #NOMBRE!# et du coup je ne peux pas retravailler sur cette cellule.

[bibi5883]

et oui, j'ai une colonne entièrement vide dans ma plage et justelment quand c'est le cas je voudrais ne pas faire le calcul dessus.

[ouskel'n'or]

Dans Excel il y a "quelque chose" (!) qui permet de faire ça, enfin, il me semble bien. Je ne l'ai pas en mémoire mais ça doit pouvoir se retrouver avec MOYENNE. Si tu trouves de ton côté, le passer en VBA devrait pouvoir se faire ave WorksheetFunction.
Tu regardes ?
A+

[ouskel'n'or]

J'ai vérifié, c'est bien ça.

Les arguments doivent être soit des nombres, soit des noms, des matrices ou des références contenant des nombres.
Si une matrice ou une référence utilisée comme argument contient du texte, des valeurs logiques ou des cellules vides, ces valeurs ne sont pas prises en compte. En revanche, les cellules contenant la valeur 0 sont prises en compte.

Avec une colonne vide dans la première plage, la moyenne est la même que celle de la seconde plage n'ayant pas de colonne vide

Code :

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

1
2
=MOYENNE(LC(-3):L(12)C(-1))
=MOYENNE(LC(-3):L(12)C(-2))

Ce qui devrait donner dans VBA quelque chose comme ça :

Code :

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

Moyenne = Application.WorksheetFunction.Average.Range(Cells(8, 1), Cells(20, 2))

Hélas, chez moi, Average n'est pas reconnu. Doit me manquer une référence (?) ou alors la syntaxe n'est pas la bonne
Je laisse ça à ceux qui savent...
Je cherche de mon côté
A+

[SilkyRoad]

bonjour


Pour compter le nombre de cellules non vides dans une plage:

Code :

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

1
2
3
4
Dim Plage As Range
 
Set Plage = Range("A1:A10")
MsgBox Application.WorksheetFunction.CountA(Plage)

chez moi, Average n'est pas reconnu. Doit me manquer une référence (?) ou alors la syntaxe n'est pas la bonne

Tu peux tester

Code :

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

Moyenne = Application.WorksheetFunction.Average(Cells(8, 1), Cells(20, 2))

bonne soirée
michel

[ouskel'n'or]

Merci Michel ! Je vais passer une meilleure soirée... D'ailleurs je vais aller me coucher tout de suite

[bibi5883]

c bon g fé otrement merci kan meme d'avoir essayé