[VBA-E] tester la valeur d'une plage de données sans boucle

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:

---

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???
:cry:
Merci

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 ?

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.

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.

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+

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

Citation:

---

Envoyé par L'aide

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:

---

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:

---

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+

bonjour


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

Code:

---

1 2 3 4

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

---

Citation:

---

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:

---

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

---

bonne soirée
michel

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

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