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
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
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
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
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
@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.
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.