Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

afficher automatiquement "présent" lorsque j'appuie sur la touche "p"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fabian123
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fabian123

XLDnaute Occasionnel
Bonjour à toutes et tous!

je viens encore vous ennuyer!

est-il possible (je suppose qu'il faudrait passer par une macro...), dans une plage de cellules données, d'obtenir lorsque j'appuie sur la touche "p" qu'il inscrive automatiquement "présent" dans la cellule sélectionnée. Idem avec "a" pour absent et "c" pour congé...

Merci d'avance!!!
 
Trier par date Trier par votes
Re : afficher automatiquement "présent" lorsque j'appuie sur la touche "p"

Bonjour Calvusn le fil, le forum,
Pour ajouter des conditions, la lettre doit être majuscule. Exemple:
Code: 
Case "[COLOR=red][B]D[/B][/COLOR]"
        Target.Value = "dodo": Target.Interior.ColorIndex = 25
Si ce n'est pas cela, laisse un exemple d'où tu bloque, ce sera plus simple.
Cordialement
 
Vote positif 0 Vote négatif
Re : afficher automatiquement "présent" lorsque j'appuie sur la touche "p"

Bonjour Efgé, le forum,

J'avais bien remarqué le A majuscule et le p minuscule sur ton fichier. J'ai même failli tester à un moment si ce n'était pas le problème, mais dans la fraction de seconde me suis dit que non, que tu avais du faire ça par mégarde et qu'excel gère indifféremment les maj et les min. Eh bien oh que non !! C'est ça d'être une truffe en vba.

Je te remercie donc, puisque maintenant ça fonctionne. 😉

J'aurai alors d'autres questions s'il te plait.

Est il possible :

1/ D'avoir une liste de propositions en fonction de la lettre choisie ?
Par exemple, en mettant
Code: 
  Case "D"
        Target.Value = "deca": Target.Interior.ColorIndex = 3       
Target.Value = "decadi": Target.Interior.ColorIndex = 3
        Target.Value = "decado": Target.Interior.ColorIndex = 3

où excel proposerait les différentes possibilités dès qu'on a tapé "D", ou avancé dans le texte ?

2/ Comment faire pour avoir ce code sur toutes les feuilles ?
J'ai inscrit le code dans This workbook, mais ça ne fonctionne que sur la feuille où est également inscrit le code. J'imagine qu'il doit y avoir une instruction particulière pour appliquer à toutes les feuilles.

Merci de ton attention.

Bonne journée.
 
Vote positif 0 Vote négatif
Re : afficher automatiquement "présent" lorsque j'appuie sur la touche "p"

Re
Pour répondre aux nouvelles questions:
1/ C'est possible, mais par marcro je ne connait pas. Fait des recherches sur le forum sur les saisies semie-auto suivant une liste. (Le début de code que tu fourni ne fonctionnera pas)
2/ A tester dans le ThisWorkbook:
Code: 
[COLOR=blue]Private Sub[/COLOR] Workbook_SheetChange([COLOR=blue]ByVal[/COLOR] Sh [COLOR=blue]As Object[/COLOR], [COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
Application.EnableAutoComplete = [COLOR=blue]False[/COLOR]
[COLOR=blue]If[/COLOR] Intersect(Target, Range("A1:G20")) [COLOR=blue]Is Nothing Then Exit Sub[/COLOR]
[COLOR=blue]Select Case[/COLOR] UCase(Target.Value)
    [COLOR=blue]Case[/COLOR] "P"
        Target.Value = "Présent": Target.Interior.ColorIndex = 35
    [COLOR=blue]Case[/COLOR] "A"
        Target.Value = "Absent": Target.Interior.ColorIndex = 3
  [COLOR=green] 'Etc[/COLOR]
    [COLOR=blue]Case Else[/COLOR]
        Target.Interior.ColorIndex = xlNone
[COLOR=blue]End Select[/COLOR]
Application.EnableAutoComplete = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : afficher automatiquement "présent" lorsque j'appuie sur la touche "p"

Re,

Merci. J'ai déjà une solution avec liste en cascades. Mais il faut cliquer dans la cellule puis faire le choix. J'imaginais qu'il y avait peut être une solution plus directe par vba qui permette l'incrémentation au fur et à mesure.

Tant pis.

Je te remercie en tout cas.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
671
Lu76Fer
I
  • Question Question
XL 2016 Colorer cellules entre 2 dates et étendre la mise en forme et ajout de texte
Réponses
1
Affichages
660
Irina1009
I
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
G
  • Résolu(e)
XL 2016 Find avec Combobox et Texbox - RESOLU
Réponses
3
Affichages
956
Grall
G
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
U
  • Résolu(e)
XL 2019 Duppliquer formule VBA (afficher la date automatique lors d'une saisie) + Problème VBA cellules protégées
Réponses
11
Affichages
2 K
ugo13
U
M
  • Question Question
XL 2016 Modification fichier Excel pour chrono kart avec cellule IR
2
Réponses
17
Affichages
4 K
Dranreb
L
  • Résolu(e)
Microsoft 365 RECHERCHEV/INDEX - Optimiser le temps de traitement pour la recherche dans un tableau à liste ?
2
Réponses
16
Affichages
4 K
loic.zambon
L
M
  • Question Question
XL 2016 Afficher dans une cellule une liste de plusieurs cellules
Réponses
5
Affichages
3 K
Michelll38
M
D
  • Question Question
XL pour MAC Retraitement (trop complexe pour moi) d'une base de données
3 4 5
Réponses
74
Affichages
11 K
didcac
D
O
  • Question Question
Lancer une macro automatiquement lorsque la cellule affiche "100%"
Réponses
3
Affichages
784
chris
C
  • Question Question
VBA : Interdire l'utilisation de la touche delete uniquement sur 3 colonnes
Réponses
2
Affichages
1 K
Cedric_C
C
C
  • Question Question
Combobox en cascade : activation auto de combobox suivant contenu de la précédente?
Réponses
1
Affichages
655
Dranreb
N
  • Question Question
Faire un AutoFill sur Range(xx1:xy1)
Réponses
2
Affichages
969
Nurbo
N
X
  • Question Question
Afficher Résultats Macro (boucle If) dans Listbox sur feuille (non userform)
Réponses
9
Affichages
2 K
Xenors
X
A
  • Question Question
Graphique sur Chartspace - UserForm - Problème tracé plage de données
Réponses
6
Affichages
2 K
Modeste geedee
T
  • Question Question
[Résolu]Le tableau s'agrandit tout seul !
2
Réponses
18
Affichages
5 K
Thibault98
T
T
  • Question Question
Problème RECHERCHEV
Réponses
4
Affichages
2 K
TravisPittman
T
S
  • Question Question
Activate : besoin ou pas selon la méthode employée
Réponses
10
Affichages
1 K
Sebast
S
  • Question Question
Detecter l'appui sur la touche del
Réponses
14
Affichages
8 K
Airone784
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…