Recupérer 1ere lettre caption Optionbutton [Résolu]

Signaler
Messages postés
126
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2019
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
226
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 ... çà !!!!
Messages postés
126
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2019

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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
226
Ouais bon ...
Essaye ce cesser de "faire ton fainéant", hein ...
Et ... de clore cette discussion (tag "résolu") étonnante sur ce forum !
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
226
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