Recupérer 1ere lettre caption Optionbutton

Résolu
Lameche15 Messages postés 156 Date d'inscription mardi 9 septembre 2008 Statut Membre Dernière intervention 15 septembre 2022 - 25 oct. 2013 à 14:00
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 25 oct. 2013 à 14:19
Bonjour,


J'aimerais modifier cette ligne de code afin que je ne puisse mettre dans la cellule active que la 1ère lettre du "Caption" de mon "OptionButton"

ActiveCell.Value = Me.Controls("OptionButton" & cptjour).Caption


J'espère etre clair, merci d'avance

4 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 228
Modifié par ucfoutu le 25/10/2013 à 14:08
Bonjour,
Question surprenante après 5 années (!) de pratique VB !
Ouvre vite ton aide VBA sur le mot left !!!!!!!
Tout de même !!!!!! ... Ne pas confondre, s'il te plait, un forum de développeurs avec ... çà !!!!
0
Lameche15 Messages postés 156 Date d'inscription mardi 9 septembre 2008 Statut Membre Dernière intervention 15 septembre 2022
25 oct. 2013 à 14:08
Ouias désolé j'ai fait mon fainéant.
Le problème ce que je n'ai pas de glossaire des noms de fonctions, cela ne fonctionne pas.
En cherchant un tout petit peu sur le web j'ai déduit que je pouvais faire ceci et ça fonctionne:
ActiveCell.Value = Mid(Me.Controls("OptionButton" & cptjour).Caption, 1, 1)

Désolé pour le dérangement
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 228
Modifié par ucfoutu le 25/10/2013 à 14:11
Ouais bon ...
Essaye ce cesser de "faire ton fainéant", hein ...
Et ... de clore cette discussion (tag "résolu") étonnante sur ce forum !
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 228
Modifié par ucfoutu le 25/10/2013 à 14:20
Et on ne "dépense" pas Mid inutilement ! On va au moins coûteux : Left(la_chaine,1)
Je clos moi-même sans plus attendre cette curieuse discussion
0