Remplir une cellule quand je clique sur un bouton

Patrice33740

XLDnaute Impliqué

• 28 Juillet 2014

• #2

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Juillet 2014

• #3

Re : Remplir une cellule quand je clique sur un bouton

Bonsoir romualdlecordier,

la case C3 se mettent en CP

Cliquez pour agrandir...

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+ 😎

 

Dernière édition: 28 Juillet 2014

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Juillet 2014

• #4

Re : Remplir une cellule quand je clique sur un bouton

Re

Ou comme ceci:

Code:

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+ 😎

 

Vote positif 0 Vote négatif

R

romualdlecordier

XLDnaute Occasionnel

• 29 Juillet 2014

• #5

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

 

Pièces jointes

• Planning PlateForme.xls

  62 KB · Affichages: 55
• Planning PlateForme.xls

  62 KB · Affichages: 55
• Planning PlateForme.xls

  62 KB · Affichages: 46

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 29 Juillet 2014

• #6

Re : Remplir une cellule quand je clique sur un bouton

bonjour romualdlecordier

"brut" comme cela

Code:

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

ps bonjour lone-wolf

 

Dernière édition: 29 Juillet 2014

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 29 Juillet 2014

• #7

Re : Remplir une cellule quand je clique sur un bouton

Bonjour,

Exemple :

 

Pièces jointes

• _Planning PlateForme.xls

  75 KB · Affichages: 68
• _Planning PlateForme.xls

  75 KB · Affichages: 75
• _Planning PlateForme.xls

  75 KB · Affichages: 72

Vote positif 0 Vote négatif

R

romualdlecordier

XLDnaute Occasionnel

• 29 Juillet 2014

• #8

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

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 29 Juillet 2014

• #9

Re : Remplir une cellule quand je clique sur un bouton

Re,

Clic droit sur l'onglet Janvier / visualiser le code

 

Vote positif 0 Vote négatif

R

romualdlecordier

XLDnaute Occasionnel

• 29 Juillet 2014

• #10

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

 

Pièces jointes

• _Planning PlateForme.xls

  74.5 KB · Affichages: 87
• _Planning PlateForme.xls

  74.5 KB · Affichages: 80
• _Planning PlateForme.xls

  74.5 KB · Affichages: 107

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 29 Juillet 2014

• #11

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

 

Vote positif 0 Vote négatif

R

romualdlecordier

XLDnaute Occasionnel

• 29 Juillet 2014

• #12

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 29 Juillet 2014

• #13

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

 

Vote positif 0 Vote négatif

R

romualdlecordier

XLDnaute Occasionnel

• 29 Juillet 2014

• #14

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Juillet 2014

• #15

Re : Remplir une cellule quand je clique sur un bouton

Bonjour à tous,

and "A Special Goodmorning" à toi laetitia90. 😀 😉


A+ 😎

 

Vote positif 0 Vote négatif