Remplir cellule avec bouton
Sam63
-
Sam63 -
Sam63 -
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
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
A voir également:
- Remplir cellule avec bouton
- Excel cellule couleur si condition texte - Guide
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Proteger cellule excel - Guide
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
5 réponses
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
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
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
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.
https://cjoint.com/c/HKDmWYkS3Su