ReEMO Xmacros par ListBox => OK c'est Bon Merci!
Bonsoir Jean, Pascal, @Xtof@, Didier, Jean-marie
Tout d'abord et en premier lieu et avant de commencer et en prime abord et avant toute chose et en préface et en hors d'oeuvre et en préliminaire et maintenant !!!
(mort de rire en écrivant)
Merci à vous Quatre d'avoir si vite répondu à mon appel !
Pour le présent problème, ou le problème présent donc ce n'est pas la version d'Excel, ni ma démo, c'est une Schmilblic que j'ai mis dans ma démo qui doit dérouter notre ami Jean.
En fait pour indiquer 'Liste de Validation Excel' dans les message de ma démo, je suis passé par un passage
(arf passer par un passage !!! faut le faire) en bref je suis passé par un passage d'argument qui est concrétisé par une Constante (
Const) de Type
String (pas celui auquel vous pensez à chaque fois lol)
Enfin Bref ce String peut être enlevé immédiatement !!! (
Re Mdr)
En Fête Jean,
non pas encore (quoique) !, en fait jean c'est inutile et c'est ceci qui doit pertuber le fonctionnement...
Voici à quoi devrait ressembler le Private Module de la Feuille où se trouve la Cellule 'M14' sans Constante String
(heuresement que c'est pas la Celulle 'Q69') arf !
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'M14' Then Exit Sub
Select Case Target.Value
Case 'JANVIER': Janvier
Case 'FEVRIER': Fevrier
Case 'MARS': Mars
Case 'AVRIL': Avril
Case 'MAI': Mai
Case 'JUIN': Juin
Case 'JUILLET': Juillet
Case 'AOUT': Aout
Case 'SEPTEMBRE': Septembre
Case 'OCTOBRE': Octobre
Case 'NOVEMBRE': Novembre
Case 'DECEMBRE': Decembre
End Select
End Sub
N'oublies pas non plus en
Top de Module '
Option Compare Text' qui t'évitera des souci de Casse,
('Casse' pour MAJ / min, mais pas de casse du PC !! mes macros sont 'CCC' Certifiées Contre la Casse)
Ensuite tes macros :
Sub Janvier()
MsgBox 'Vous avez cliqué sur Janvier '
End Sub
Etc... doivent se trouver dans un
Module Standard (module1 par Exemple)
Ce sera idem pour les autres Listes de Validations, plus de source, dans le Private Module de La Feuille et les Sub : 'B' , 'J5_Mixte', 'Mini_bus_9pl ' etc etc dans un Module Standard ...
Voilà, je pense que c'est un peu ma faute car je ne peux m'empécher de rajouter des trucs et sur une Démo, çà peut porter à confusion...
Conclusion, il ne vaut mieux pas en toute cir
Constante porter de
String
Bonne Soirée
@+Thierry
Sorry Jean Marie je viens de voir ton Post d'un autre IE, mais celui ci avec la mise en Page HTML m'a rendu Fou et en plus avec les fourre de rires !!! pas évident !!! lol