Macro bouton Fermé

Question

Bonjour,
Je pète un câble, normalement je trouve facilement ce genre de problème, mais il m'est impossible de me concentrer ; je suis obligé de bosser dans un endroit bruyant et extrêmement bête, c'est incontournable, et je ne trouve pas la solution :

Il me faut un bouton qui déclenche deux actions : Exemple : Si je clique sur le bouton en A1, ça affiche la date d'aujourd'hui en A2, et ça ajoute "1" au chiffre en A3...

Voilà, je craque, j'y arrive pô... Merci de me filer un p'tit coup de pied, ce serait bien sympa !

Olivier.

Mike-31 · Answer

Salut,

regardes si c'est ce que tu cherches, à mettre dans le code d'un bouton réalisé avec la barre d'outils contrôle
Private Sub CommandButton1_Click()
    Range("A1") = Now
    Range("A1").NumberFormat = "dd/mm/yyyy"

    Range("A2") = Range("A3") + 1
End Sub


Ou avec un bouton de la barre formulaire, placer ce code dans un module et l'affecter à un bouton
Sub Heure ()
    Range("A1") = Now
    Range("A1").NumberFormat = "dd/mm/yyyy"

    Range("A2") = Range("A3") + 1
End Sub

A+

Mike-31 · Answer

Re,

Pour le premier problème, c'est bon.

Par contre pour le deuxième c'est pas très clair, tu veux mettre la date  en A1, A2 et A3, mais en A2et A3 il y a déjà c'est histoire d'ajouter 1

en suite 40 ligne et 10 colonnes c'est pas un problème mais sur quel critère et dans quelles cellules

Le mieux est de mettre un modèle de ton fichier avec des anotations, ici je veux ça et là etc ... que l'on comprenne

pour joindre un fichier avec ce lien

https://www.cjoint.com/

A+

m@rina · Answer

Bonjour,

Surtout si tu ne donnes pas le lien ! ;))) On va avoir du mal à le voir...
Une fois ton fichier télécharger, il faut que tu colles le lien ici (qui est copié automatiquement dans le presse papier).

m@rina

Furax · Answer

Ok, pas tout compris mais je vais essayer en copiant l'adresse du lien...

https://www.cjoint.com/?dEpcKUaYdp

Mike-31 · Answer

Salut,

Récupères ton fichier avec le lien ci-dessous et on en reparles après que tu l'ai testé.
Pour tester le compteur une fois la date du jour dans la colonne le code sur la ligne est désactivé, saisis manuellement des dates antérieures pour relancer tes essais

https://www.cjoint.com/?dEsFt6Qqdy

A+

furax75019 · Answer

Re coucou, Je n'ai pas été assez clair dans mon premier exemple, en voici un 2ème. Désolé, ce coup-ci, c'est trop bien expliqué...

Merci du temps que tu me consacres, c'est trop cool !

https://www.cjoint.com/?dEvFFKn58U

lermite222 · Answer

Bonjour tous, Une autre approche, sans bouton, en cliquant sur la cellule où tu voulais mettre tes boutons.. Permet d'avoir 2 indications. >> Valider << et >> A jour << https://www.cjoint.com/?dFlni4IyDi Tu dis... A+

Mike-31 · Answer

Salut,

La proposition de Lermite que je salut, n'est pas mal du tout et très simple pour l'utilisateur, pour ma part, j'étais parti sur une userform avec deux combobox mais j'attends pour le terminer.

Peut être complèter la proposition de Lermite avec une inputbox de confirmation pour éviter un clic précipité dans une case, mais bon à suivre

Bon dimanche à vous

furax · Answer

Incroyable ! ça marche, c'est magique ! (faudra que je m'intéresse plus à VBA, ça vaut des points...)
Je n'ai plus qu'à transférer tout ça sur la vraie feuille en adaptant les vrais cavaliers, pis tant que j'y suis j'essaierai d'automatiser l'attribution d'une couleur par cavalier, de façon à ce que lorsqu'on attribue un cheval à un cavalier, toutes les cellules concernées prennent la couleur du cavalier. (une idée ?)

En tout cas merci à tous pour votre aide, j'espère un jour être assez balaise pour renvoyer l'ascenseur...

lermite222 · Answer

Beh oui... j'ai bien une petite idée si j'ai compris ce que tu veux.
https://www.cjoint.com/?dFmOd4F3F8
Tu dis...
A+

Mike-31 · Answer

Salut à tous,

Pour compléter le magnifique code de Lermite, une petite msgbox pour confirmer l'enregistrement et éviter les erreurs d'un clic accidentel et éventuellement l'enregistrement automatique

A+

furax · Answer

Oups, pas trouvé msgbox...

Sinon, pour les couleurs c'est trop compliqué, car en plus le cheval doit également être repérable par la couleur de son cavalier (ou de ses cavaliers différents...) alors je le fais manuellement, les changements sont trop rares pour automatiser ça.

Aussi je n'arrive pas à percuter comment je peux rajouter des cavaliers (autrement dit, des colonnes supplémentaires dotées des mêmes codes que les autres). Décidément, je me croyais autonome avec Excel, mais je n'avais jamais eu besoin de VBA jusqu'à présent, je vais de surprise en surprise !

Voilà où j'en suis et il me manque au moins 5 cavaliers...

https://www.cjoint.com/?ebt2qArAUi

Youpi !

Mike-31 · Answer

Salut,

Excuses, j'ai oublié de coller le lien

https://www.cjoint.com/?ecjUaIDxLN


Pour le nombre de cavalier et les couleurs, si tu n'y arrives pas, dis nous combien de colonnes doivent être concernées en prévoyant peut être une extension. Pour les couleurs que souhaites tu mettre la cellule de la date au couleur du cavalier !

A+

furax · Answer

Hello,

Ben... Je suppose que pour rajouter 4 colonnes par cavalier à chaque fois qu'un nouveau cavalier arrive, il doit falloir modifier en conséquence certains détails du code, si on m'explique ces détails j'imagine que je serais capable de rajouter des colonnes tout seul et je ne vous embêterai plus avec ça ! (à moins que ce soit vraiment du chinois, auquel cas...)

Mais pour les couleurs, vraiment, c'est pas la peine de s'embêter, en plus y'a toujours un cavalier pour rouspéter qu'il n'aime pas sa couleur et je dois la changer, autant que ça reste manuel...

lermite222 · Answer

Bonjour,
J'ai rectifier le classeur suivant tes dernières précision.
1°) Tu peu ajouter autant de cavalier que tu veux, c'est mis en automatique, il faut que la colonne des totaux soit impérativement en dernier.
2°) Pour permettre la modification de la feuille j'ai ajouter un bouton (Auto/Manuel) avec un commentaire. (sinon la macros serait perturbée par les modif)
https://www.cjoint.com/?ecm3CTDctG
Et éventuellement, j'ai ajouter un autre bouton (Annuler la dernière entrée)
Avec ce 2èm classeur
A+
EDIT: Je viens de lire ton dernier message, si la couleur t'embète tu dis, je supprimerais les lignes concernées.

Furax · Answer

Bravo les gars, c'est une affaire qui marche ! J'aurais bien un petit souci avec le Mac (ben voui, je bosse sur PC et Mac, heuuu...) qui m'envoie l'erreur d'exécution 57121, impossible de sortir du mode création, ça doit venir de la dernière modif (Auto ou manuel).

Sinon, pour les couleurs, c'est vrai que c'est un peu l'anarchie du fait qu'il peut arriver que plusieurs cavaliers peuvent être amenés à se partager la responsabilité d'un cheval (donc, dans les 4 colonnes à droite du nom des chevaux, je peux éventuellement indiquer les couleurs des co-responsables, la cellule du nom du cheval étant de la couleur du cavalier principal de ce cheval).

L'idéal, ce serait de reprendre mon dernier tableau (  https://www.cjoint.com/?ebt2qArAUi  ) car les données sont à jour, et faire en sorte que je puisse ajouter des cavaliers. Pis normalement je ne vous embêterais plus avec mes problèmes, y'en a sûrement d'autres qui ont besoin de vos lumières !

Encore merci pour votre patience (et votre génie ! ça m'épate ce VBA, va falloir que je m'y mette !)

Mike-31 · Answer

Salut Furax,

Le code de Lermite met bien la couleur du cavalier responsable dans les colonnes F, J, N etc , qui sont des colonnes qui activent le code, pourquoi ne pas déclencher le code depuis les cellules qui recoivent les dates et les coloriser au couleur du responsable. il suffit  de décaler dans le code d'une colonne 

A+

lermite222 · Answer

Pour l'erreur que tu a, tu emploi Excel 98 ?
Cette erreur c'est parce que le Mac ne reconnaît pas les ActiveX des boutons 
Essaye avec cette version, possible que ça fonctionne sur Mac.
https://www.cjoint.com/?edbTXiXlhr
A+.

Macro bouton

18 réponses

Discussions similaires