Menu

Remplir cellule avec bouton

-
Bonjour,

J'ai un tableau dans un excel avec des lignes " A;B; ...;G" puis des colonnes avec tout les jours du mois. J'aimerais a coter de ce tableau renseigner une date, un nom, et un texte puis avec un bouton que cela m'incrémente dans le tableau par exemple. 22/01/2018 pour la ligne C mettre HIHI. Merci pour vos réponse

https://cjoint.com/c/HKDmJvDgmBu
Afficher la suite 

Votre réponse

5 réponses

Messages postés
9960
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
12 décembre 2018
0
Merci
BonjourSam

Ce n'est pas une image de ton fichier que laquelle on ne peut intervenir qu'il faut fournir mais ton fichier lui-même
Poste ton fichier sur cjoint.com, fais créer un lien que tu copies et reviens coller ici

Cdlmnt
Via

Merci pour ta réponse, voici le lien (je chercher accessoirement a faire tout les TOTAUX et les listes déroulante de la liste en couleur sur la droite.

https://cjoint.com/c/HKDmWYkS3Su
Commenter la réponse de via55
Messages postés
9960
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
12 décembre 2018
0
Merci
Ton fichier en retour avec bouton et macro
https://mon-partage.fr/f/MF5QpbkQ/

Cdlmnt
Via
Merci via55, c'est parfait. J'y pense que maintenant serait t'il possible de rentrer aussi du 22/05/2019 au 25/05/2019 par exemple, genre une plage ou plusieurs date en même temps au lieu de renouveller l'opération pour poser 2 semaines par exemple je te remercie.
Commenter la réponse de via55
Messages postés
9960
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
12 décembre 2018
0
Merci
Parfaitement faisable, modifie ainsi la macro :
Private Sub CommandButton1_Click()
DD = InputBox("Entrer une date de début")
DF = InputBox("Entrer une date de fin (du même mois que la date de début)")
j = Day(CDate(DD))
j2 = Day(CDate(DF))
m = Month(CDate(DD))
n = InputBox("Entrer un nom")
C = InputBox("Entrer le commentaire")
L = Application.WorksheetFunction.Match(n, Sheets("Equipe B").Range("A7:A13"), 0)
cd = 14 * m - 8
For n = j + 1 To j2 + 1
Sheets("Equipe B").Cells(cd + L, n) = C
Next
MsgBox "Commentaire intégré"
End Sub

Encore une fois merci, je n'arrive pas à mettre sur un "bouton" la 2eme macro car je souhaiterais pouvoir utilisé les 2. Si des fois tu c'est comment aussi mettre 2 date a cheval sur 2 mois. En te remerciant
Commenter la réponse de via55
Messages postés
9960
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
12 décembre 2018
0
Merci
Simplement tu crées ton bouton controle Active X puis clic droit sur le code et Visualiser le code et dans la sub vierge qui s'affiche tu colles les lignes de code

Pour mettre à cheval sur 2 mois je regarde ça

Commenter la réponse de via55
Messages postés
9960
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
12 décembre 2018
0
Merci
Voilà

J'ai rajouté des gestions d'erreur en cas de mauvaise date entrée ou absence d'une date
https://mon-partage.fr/f/IDYIyxfp/

Cdlmnt
Via
Ok je regarde cela au plus vite et je te dit tout cela, en tout cas je te remercie d'avance
C'est ce que j'ai a droite en couleur les différents types de congés (journée entière et en 1/2 journée.Je cherche aussi pour mettre tout rapidement en mise en forme conditionnelle pour le même texte rentré dans les cellules. Ce que j'aimerais faire, c'est qu'au début de l'année avoir un tableau avec le nom de congé qu'on dispose et que sa soustrait ce qu'il y a entre le premier janvier et le 31 mai.
Puis du premier juin au 31 décembre avec un autre tableau. Je sais pas a quel point je suis clair et a quel point tu peux m'aider. En tout cas je te remercie déjà pour ce que tu as fait pour moi. Cordialement
Commenter la réponse de via55