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

[un internaute]

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

 

[sylvanu]

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 :

    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.

 

[un internaute]

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

 

[crocrocro]

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

 

[un internaute]

Bonjour crocrocro
Ce n'est pas ce que je veux je me suis mal expliqué
A voir
Merci à toi

 

[sylvanu]

Re,
PJ à tester.

 

[un internaute]

Re sylvanu
SUPER
Tu viens de sauver le nonagénaire!!!
Encore merci
Bonne fin de journée
Cordialement

 

[sylvanu]

@crocrocro,
J'ai testé soit après sélection de plusieurs cellules, soit sélection de toute la feuille, cela ne provoque aucune erreur.
La condition de cette ligne n'étant pas remplie la macro se termine en sortant.

 

[crocrocro]

Pour Sylvanu,
je n'avais pas testé le cas particulier du fichier.
Dans mes codes, pour passer dans tous les cas de figures, j'utilise (quand j'y pense) LargeCount et non Count.