Autres [RESOLU] Ajout dans macro mais où sans trop de casse!!!

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 !

un internaute

XLDnaute Impliqué
Bonjour le forum
Dans fichier joint je voudrais faire comme dans colonne B (je clique n'importe où dans colonne B6 jusqu'à B36 s'affiche la date colonne A.
Si c'est pas la bonne date je clique sur autre cellule etc... toujours colonne B6 jusqu'à B36 et si c'est la bonne date je tape un nombre et je valide avec la flèche droite pour afficher le choix du texte que je veux
Je voudrais faire la même chose avec colonnes E et D
Choix heure (2h avec flèche) ou taper heure par exemple 2:05) s'affiche la date... si c'est pas la bonne je continue etc.. jusqu'à obtenir la bonne date.
Mais je ne voudrais pas tout "casser" alors je fait appel à des pros du VBA
Merci pour vos éventuels retours
 

Pièces jointes

Dernière édition:
Solution
Bonjour un internaute,
Pas tout compris. Sorry.
Si le but est que la même macro s'exécute sur les colonnes B,E,F alors testez dans Workbook_SheetSelectionChange avec :
VB:
    If UCase(Sh.Name) <> "MENU" And Target.Count = 1 And Target.Row > 5 And _
        (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 6) Then
Sinon soyez plus clair. 🙂
Bonjour un internaute,
Pas tout compris. Sorry.
Si le but est que la même macro s'exécute sur les colonnes B,E,F alors testez dans Workbook_SheetSelectionChange avec :
VB:
    If UCase(Sh.Name) <> "MENU" And Target.Count = 1 And Target.Row > 5 And _
        (Target.Column = 2 Or Target.Column = 5 Or Target.Column = 6) Then
Sinon soyez plus clair. 🙂
 

Pièces jointes

Bonjour sylvanu
Je me suis mal exprimé, ce n'est pas une première c'est pratiquement à chaque fois!!!
Alors toutes mes excuses
C'est lorsque je clique colonne E cellules E6:E36, n'importe où la date doit s'afficher colonne D et non colonne A
Merci pour ton éventuel retour
 
Bonjour un internaute, bonjour Sylvanu,
juste une remarque sur le code proposé par Sylvanu
If UCase(Sh.Name) <> "MENU" And Target.Count = 1 And Target.Row > 5 And _
(Target.Column = 2 Or Target.Column = 5 Or Target.Column = 6) Then
Target.Count est de type Long, et provoque un dépassement de capacité si, par exemple on teste après avoir sélectionné toutes les cellules de la feuille. Préférer Target.CountLarge qui est de type variant :
https://learn.microsoft.com/fr-fr/office/vba/api/excel.range.count
 
- 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

Réponses
12
Affichages
355
Réponses
3
Affichages
532
Retour