Moyenne de valeurs pour des lignes manquantes
Résolu
HeilyHeily
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
Raymond PENTIER Messages postés 58978 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58978 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Moyenne de valeurs pour des lignes manquantes
- Excel moyenne - Guide
- Partage de photos en ligne - Guide
- Excel liste de valeurs - Guide
- Moyenne excel anglais - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
2 réponses
Bonsoir
Un exemple de macro d'après tes données :
http://www.cjoint.com/c/ELkw5W6ElT7
La macro colore en même temps les cellules vides qu'elle remplit ce qui permettra après de retrouver lesquelles ont été remplies "artificiellement"
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Un exemple de macro d'après tes données :
http://www.cjoint.com/c/ELkw5W6ElT7
La macro colore en même temps les cellules vides qu'elle remplit ce qui permettra après de retrouver lesquelles ont été remplies "artificiellement"
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Bon,ça devrait marcher mais j'ai oublié de préciser qu'il pouvait y avoir des cellules avec des variables indiquées "ND" soit non définies, au lieu de les avoir vide. Ce qui fait que je suis un peu coincé après l'ajout de cette condition.
Du coup, on a par exemple:
01/02/1999 | 3,2 | 3,1| 2,4| 3,4| 3,5|
02/02/1999 | 2,2 | 3,2| 3,4| 2,3| 4,5|
03/02/1999 |
04/02/1999 | ND| ND| ND| ND| ND|
05/02/1999 |
06/02/1999 | 3,2 | 3,2| 3,5| 2,2| 3,5|
07/02/1999 | 3,2 | 3,1| 2,4| 3,4| 3,5|
08/02/1999 | ND| ND| ND| ND| ND|
09/02/1999 |
10/02/1999 |
11/02/1999 | ND| ND| ND| ND| ND|
12/02/1999 | 2,2 | 3,2| 3,4| 2,3| 4,5|
13/02/1999 | 3,2 | 3,2| 3,5| 2,2| 3,5|
Si il y a moyen de remplacer les ND par une moyenne toujours
Il devrait suffire d'intégrer cette condition dans le IF :
'si cellule vide If Cells(lig, col) = "" Or Cells(lig, col) = "ND" Thenet dans la boucle :
' Boucle tant que la cellule suivante est vide
Do While Cells(x, col) = "" Or Cells(x, col) = "ND"
Cdlmnt
Via
Ca marche nickel !!!!
Merci beaucop via55 :) :) :)