Remplir une cellule via un bouton + macro

Bonsoir Sanguinius,

La zone que tu indiques est pour les colonnes E à AT,
et pour les lignes 4 à 13. On ne doit pas la noter
comme tu l'as fait, mais ainsi : "E4:AT13", ce qui est
à la fois plus juste, et plus court à écrire et à lire !

Remarque bien ceci :
E4 est la cellule du coin haut gauche de la zone ;
AT13 est la cellule du coin bas droit de la zone ;
et un signe deux-points (:) les sépare.

Donc si ta cellule est dans la zone ci-dessus,
par exemple en AD8, il suffit de remplacer dans
mon message #3 tous les B2 par des AD8 :

[AD8].Interior.ColorIndex = 3

[AD8] = "A"
[AD8] = "5"
[AD8] = 5

Cordialement.  😊
 

re Sanguinius,

1) Si tu veux colorer une seule cellule de la zone E4:AT13, alors va
simplement dessus, sans faire une sélection de plusieurs cellules ;
cliques sur le bouton de ta macro, dont voici le code :

Sub CommandButton1_Click()
  ActiveCell.Interior.ColorIndex = 3
End Sub

2) Au cas où tu voudrais colorer plusieurs cellules à la fois (un rectangle de
plusieurs cellules, ou même plusieurs cellules non contigües), fais une 1ère
sélection puis appuie sur la touche < Ctrl > pour faire les suivantes ; cliques
sur le bouton de ta macro, dont voici le code :

Sub CommandButton1_Click()
  Selection.Interior.ColorIndex = 3
End Sub

Dans les 2 subs, le 3 est le code couleur pour le rouge, mais si tu veux une
autre couleur, il faudra le remplacer par le n° index correspondant.

Remarque : la sub 2) marche aussi pour une seule cellule, mais si tu es sûr
de vouloir colorer une seule cellule à la fois (maintenant ou plus tard), alors
tu peux utiliser la sub 1).

Cordialement.  😊
 

Bonjour albkan,

un grand merci a toi pour ton aide, je prends note des 2 macros et test cela au plus vite.

Par contre, je viens de penser, y a t il une fonction permettant de restaurer les à l'etat initial?

Cordialement