Remplir une cellule quand je clique sur un bouton

[romualdlecordier]

Bonjour,

J'ai un planning sous excel et j'aimerai que lorsque je clique je le bouton (exemple CP), la case C3 se mettent en CP

enfin j'aimerai mettre une couleur pour chaque bouton,

Pouvez vous m'aider

Merci

Romuald

 

[Patrice33740]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour,

Pour pouvoir définir la couleur, utilises un bouton ActiveX plutôt qu'un bouton de formulaire.

 

[Lone-wolf]

Re : Remplir une cellule quand je clique sur un bouton

Bonsoir romualdlecordier,

la case C3 se mettent en CP

Pourrais-tu être plus précis?

Pour les couleurs, simpliste

With Feuil2
.CommandButton1.BackColor = vbRed
.CommandButton2.BackColor = vbYellow
.CommandButton3.BackColor = vbBlue
.CommandButton4.BackColor = vbMagenta
.CommandButton5.BackColor = vbGreen
.CommandButton6.BackColor = vbWhite
End With

En image
​

A+

 

[Lone-wolf]

Re : Remplir une cellule quand je clique sur un bouton

Re

Ou comme ceci:

Private Sub Workbook_Open()
Sheets(1).Activate
On Error Resume Next
With ActiveSheet
For i = 3 To 250
.Cells(i, 1).Interior.ColorIndex = i
.OLEObjects("CommandButton" & i - 2).Object.BackColor = .Cells(i - 1, 1).Interior.Color
If i > 9 Then Exit For
Next
End With
End Sub

A+

 

[romualdlecordier]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour

j'ai peut etre pas été assez clair

J'aimerai que lorsque l'employé est en cp, il se mette sur la date ou il est absent (Exemple Employée 1 absent le 2 janvier, j'aimerai que lorsqu'il se mets en C3 et clique sur le bouton CP, le mot CP viennent se mettre en C3

J'espere avoir été clair

Romuald

 

[laetitia90]

Re : Remplir une cellule quand je clique sur un bouton

bonjour romualdlecordier

"brut" comme cela

 Private Sub CP_Click()
  ActiveCell = "cp"
  ActiveCell.Select 'pour revenir sur la cell
End Sub

ps bonjour lone-wolf

 

[Patrice33740]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour,

Exemple :

 

[romualdlecordier]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour Patrice33740

C'est exactement ça mais je ne voit pas le code pour comprendre et pouvoir mettre à jour mon planning tu peux me donner accès aux codes ?

Merci romuald

 

[Patrice33740]

Re : Remplir une cellule quand je clique sur un bouton

Re,

Clic droit sur l'onglet Janvier / visualiser le code

 

[romualdlecordier]

Re : Remplir une cellule quand je clique sur un bouton

Re-bonjour Patrice33740

J'ai réussi à accéder aux codes et j'ai créé un bouton AT mais ne fonctionne, je pense que j'oubli quelques choses peux tu m aider ?

Romuald

 

[Dull]

Re : Remplir une cellule quand je clique sur un bouton

Salut romuald, Patrice Laetitia, Lone-Wolf, le Forum

Ton bouton ne s'appelle pas btnAT mais CommandButton1. Fait les changements et cela fonctionnera

Bonne Journée

 

[romualdlecordier]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour

Qui peux me dire comment changer le nom CommandButton1. en AT

Désolé pour toutes les questions

Romuald

 

[Dull]

Re : Remplir une cellule quand je clique sur un bouton

Re le Fil

Clic sur l'équerre bleu (clic droit sur la barre d'outil et clic sur Désactiver le mode création)
Clic droit sur ton bouton AT/Propriété et dans (Name) changer CommandButton1 par btnAT

Bonne Journée

 

[romualdlecordier]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour

Merci à tous pour votre aide, j'ai pu créer tous mes boutons et faire mon Planning

Encore merci

Romuald

 

[Lone-wolf]

Re : Remplir une cellule quand je clique sur un bouton

Bonjour à tous,

and "A Special Goodmorning" à toi laetitia90.


A+