XL 2016 Saisie semi-automatique (VBA ou formule mais pas en insérant des objets)

[albatore78]

Bonjour @tous,

Après avoir consulté plusieurs site, je n'arrive pas à trouver ce que je veux. En effet, je souhaite avoir dans une cellule un menu déroulant, dont la liste provient d'une autre feuille, avec une saisie semi-automatique. Seul hic, il faut que la personne ne puisse pas saisir autre chose que ce qui se trouve dans le menu déroulant.

J'ai trouvé plusieurs méthodes mais à chaque fois il y a quelque chose qui ne me convient pas. En effet, en utilisant "Validations de données", on est obligé de retirer le message d'alerte bloquant. J'i essayé également avec la formule DECALER mais même constat.

Auriez-vous une solution qu'elle soit en VB ou avec une formule ?

En vous remerciant par avance,

Bonne journée,

 

[albatore78]

Bonjour @tous, @Dudu2

C'est parfait. Et du coup si je veux que ma valeur se mette dans la cellule A14, je n'ai plus qu'à insérer la ligne : Range("A14").Value = ÉvènementChoisi en ayant au préalable déverrouillée la cellule et insérer une validation de donnée limitée à la liste sur cette dernière pour être sûr que quelqu'un ne vienne pas ajouter une valeur hors liste en cellule A14 en manuel.

Un très très grand merci pour votre aide qui m'a énormément dépanné,
Bonne soirée et @bientôt,

 

[Dudu2]

je n'ai plus qu'à insérer la ligne : Range("A14").Value = ÉvènementChoisi en ayant au préalable déverrouillée la cellule

Oui c'est bien ça.
Assure-toi quand même que Len(ÉvènementChoisi) > 0 car si l'utilisateur ne fait pas de choix (fermeture du UserForm), Len(ÉvènementChoisi) = 0.

 

[albatore78]

Oui c'est bien ça.
Assure-toi quand même que Len(ÉvènementChoisi) > 0 car si l'utilisateur ne fait pas de choix (fermeture du UserForm), Len(ÉvènementChoisi) = 0.

Merci, je regarde ça.

 

[Dudu2]

A titre d'expérience, je viens de coder un petit outil de protection de cellules pour un autre sujet du forum. Sans feuille protégée ni cellules verrouillées, empêche la modification des zones définies en paramètre.

Vois le fichier joint qui est un exemple d'utilisation et copie son Module_ZonesAProtéger dans ton projet VBA si tu veux t'en servir pour protéger A14 et/ou d'autres zones.

C'est très simple et tout est expliqué dans ce module !

Fichier modifié le 28/09 à 20h18

 

[Dudu2]

Je viens de modifier ce fichier pour corriger un problème.
Reprendre le fichier modifié dans le post précédent.

 

[albatore78]

Bonjour @Dudu2,
Hyper intéressant. Cela pourra me servir lorsque je devrais effectuer des tableaux de synthèse .
Les explications dans le code sont tiptop car même si je ne maitrise pas grand chose en programmation, cela me permet aisément de comprendre et de l'appliquer en fonction de ce que je souhaite effectuer.
Encore un grand merci.

 

[Dudu2]

Bonjour albatore78,

C'est un peu une usine à gaz car il y a des bizarreries dans les évènements de Change liés aux titres des tableaux structurés et aussi la difficulté liée au Couper/Coller en général. Mais ça fonctionne pour ce que j'ai pu tester, SAUF dans un cas très particulier que je n'ai pas réussi à régler car c'est très difficile. Il faudrait rajouter des tuyaux à l'usine en faisant attention que ça devienne pas du type Seveso

.

C'est lorsqu'on fait un Couper/Coller avec le Couper d'une zone protégée et le Coller à la fin d'un tableau structuré.
Le Undo logiciel (ou SendKeys Ctrl-z) ne fonctionne pas car il va s'appliquer au formatage que tableau structuré aura effectué automatiquement sur les zones cibles et on n'en sort pas. Sauf à envoyer des Sendkeys Ctrl-z par shell !