Remplir une cellule via un bouton + macro

Résolu/Fermé
Sanguinius - 23 mai 2016 à 22:07
 Utilisateur anonyme - 26 mai 2016 à 22:23
Bonjour,


je cherche comment faire pour remplir une cellule en cliquant sur un bouton.

L'info qui sera renseignée dans la cellule ne sera qu'un simple remplissage par une couleur ou une lettre et/ou chiffre.

Ne sachant pas comment faire et après plusieurs recherches, je m'adresse à vous tous. Pouvez-vous m'aider ?

Merci pour vos réponses et votre aide.

3 réponses

Bonjour Sanguinius,

Si ta cellule est B2, la ligne ci-dessous met un fond rouge :
[B2].Interior.ColorIndex = 3

Pour une lettre : [B2] = "A"

Pour un chiffre : [B2] = 5 (si calcul dessus)
ou si pas de calcul dessus, au choix :
[B2] = 5 ou [B2] = "5"

La sub qui fait ce travail devra être affectée à ton bouton.

Cordialement.  😊
 

Si votre problème est réglé, merci de marquer le sujet en « Résolu ».
2
Bonjour albkan,

la cellule peut etre comprise dans la zone suivante : "E4" : "AT4" - "E13" : "AT13".
0
Utilisateur anonyme > Sanguinius
Modifié par albkan le 24/05/2016 à 20:16
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.  😊
 
0
re albkan,

merci pour ton aide et la correction porté a ma notation.

Oui la cellule sera comprise dans la zone E4:AT13.
Mais je souhaite la remplir et ou renseigner en la sélectionnant puis en cliquant sur un bouton.

Ce bouton, sera associer a une macro (vb ou vba pour etre plus precis) afin que l'action de remplissage et ou de renseignement se fasse.
0
Utilisateur anonyme > Sanguinius
25 mai 2016 à 01:20
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.  😊
 
0
Sanguinius > Utilisateur anonyme
Modifié par Sanguinius le 25/05/2016 à 07:02
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
0
f894009 Messages postés 16754 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 5 décembre 2022 1 660
24 mai 2016 à 07:55
Bonjour,

Vous pouvez developper un peu plus pour remplir cette cellule:
qu'elle condition, quelle(s) couleur, quel chiffre ou lettre et d'ou ils sortent
0
Bonjour f894009,

La cellule doit se remplir suite au clic sur un bouton.

La couleur, la lettre et ou le chiffre devra être renseigné dans la macro rattaché au bouton.
0
The_boss_68 Messages postés 837 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 4 décembre 2022 159
25 mai 2016 à 00:41
Bonsoir,

Créer un bouton formulaire et mettre ce code.

Macro qui remplie de couleur rouge la cellule sélectionné

Sub CommandButton1_Click()
Selection.Interior.ColorIndex = 3
End Sub
0
Bonjour The_boss_68,

merci pour ton aide
0