help sur formule pourexcel 2003 svp - Logiciels - Windows & Software
Marsh Posté le 27-06-2006 à 20:26:48
Bonsoir 
 
Je pense qu'il faut utiliser une macro. J'ai essayé d'en créer une mais elle ne fonctionne pas vraiment. Tout du moins ,elle met bien zéro mais elle l'écrit partout. 
Je n'arrive pas à écrire en VBA, si la cellule est coloriée, alors écrire 1. 
C'est quelque chose du genre Else...je pense 
Dans le meilleur des cas, il faut perfectionner ce code. Dans le pire, il faut en écrire un autre ou chercher une autre piste. Un membre pourra peut-être t'aider. 
 
Sub Macro() 
For i = 1 To N° de la dernière ligne 
For j = 1 To N° de la dernière colonne 
With Selection.Interior 
If .ColorIndex = xlNone Then 
'Si la cellule n'a pas de couleur 
Cells(i, j+4) = 0 
'Alors, écrire 0 dans la 5è colonne par ex si ta dernière colonne est la 4 
Else: Cells(i, j + 4) = 1 
'Sinon, écrire 1 
'Je ne sais pas pourquoi, il ne prend pas en compte cette intsruction 
End If 
End With 
Next j 
Next i 
End Sub 
Marsh Posté le 27-06-2006 à 13:46:44
Hello,
je cheche une formule pour faire un compteur sous excel svp :
si dans une ligne une cellule a un fond coloré alors ça compte pour "1"
et si elle reste avec le fond blanc alors ça compte pour "zéro"
et donc, la formule qui serait dans la derniere colonne de la ligne me donnerait le total des cellules non blanche
merci d'avance à ceux qui maitrisent ...