help sur formule pourexcel 2003 svp

help sur formule pourexcel 2003 svp - Logiciels - Windows & Software

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 ...

Reply

Marsh Posté le 27-06-2006 à 13:46:44   

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed