Bonsoir CISCO,
Sur tes conseils, j'ai adapté la macro de Roger2327. La boîte de dialogue qui s'ouvre en cliquant sur le bouton adhoc me donne bien la ou les cellules qui ne sont pas colorisées, soit dans mon exemple cité plus haut :
A1 : 1 colorisé rouge
A2 : 22 colorisé rouge
A3 : 48 colorisé rouge
A4 : 30 non colorisé
en cliquant sur bouton, le message renvoie A4.
C'est un premier pas intéressant mais encore assez éloigné de ce que je souhaite obtenir.
1) Je voudrais avoir automatiquement en A5 la valeur 30 (la boîte de dialogue ne m'intéresse pas)
2) Je voudrais que la valeur de A5 corresponde au dernier chiffre non colorisé. C'est à dire que tant que 3 cellules sur 4 ne sont pas colorisées, A5 doit rester vide.
Pour info, voici le code actuel utilisé :
Private Sub Bouton_Cliquer()
Dim msg$, oCell As Range
For Each oCell In Range("A1:A4")
If oCell.Interior.ColorIndex <> 3 Then msg = msg & ", " & oCell.Address(0, 0)
Next
MsgBox Right$(msg, Len(msg) + (Len(msg) > 0))
End Sub
Et en pièce jointe mon fichier test.
Merci d'avance pour les éventuelles pistes d'amélioration...