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