Remplir cellule avec bouton

Fermé
Sam63 - Modifié le 29 nov. 2018 à 13:35
 Sam63 - 29 nov. 2018 à 19:02
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

5 réponses

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
Modifié le 29 nov. 2018 à 13:38
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

0
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
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
29 nov. 2018 à 14:29
Ton fichier en retour avec bouton et macro
https://mon-partage.fr/f/MF5QpbkQ/

Cdlmnt
Via
0
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.
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
29 nov. 2018 à 15:13
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

0
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
0
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
29 nov. 2018 à 16:36
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

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
29 nov. 2018 à 18:42
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
0
Ok je regarde cela au plus vite et je te dit tout cela, en tout cas je te remercie d'avance
0
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.
0
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
0