A voir également:
- Remplir cellule avec bouton
- Aller à la ligne dans une cellule excel - Guide
- Remplir et signer pdf - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Bouton shift pc ✓ - Forum Jeux vidéo
5 réponses
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
Modifié le 29 nov. 2018 à 13:38
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
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
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
29 nov. 2018 à 14:29
29 nov. 2018 à 14:29
Ton fichier en retour avec bouton et macro
https://mon-partage.fr/f/MF5QpbkQ/
Cdlmnt
Via
https://mon-partage.fr/f/MF5QpbkQ/
Cdlmnt
Via
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
29 nov. 2018 à 15:13
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
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
29 nov. 2018 à 16:36
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
Pour mettre à cheval sur 2 mois je regarde ça
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
29 nov. 2018 à 18:42
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
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
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.
29 nov. 2018 à 13:49
https://cjoint.com/c/HKDmWYkS3Su