Recopie de valeur d'une CBO dans une cellule [Fermé]

Signaler
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
-
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
-
Bonsoir à tous,

Je viens vers vous pour un petit problème que je n'arrive pas à résoudre, j'explique :
Dans un classeur, j'ai un onglet "Menu" avec plusieurs boutons.
J'ai un bouton "Extraction" qui m'ouvre une CBO (sur l'onglet "Menu") :

Dans cette CBO, je rentre un âge mini et un âge maxi (tirées de deux listes) que je voudrais (ces deux valeurs) placer dans une autre feuille "Données" dans les cellules correspondantes ; L7 et M7 respectivement.
Ces valeurs servent ensuite à l'extraction des tranches d'âges correspondant aux données rentrées dans une autre feuille, mais ça, je sais m'en débrouiller.

Merci de vos suggestions VBA.

Bonne soirée à tous, DMT





Configuration: Windows / Chrome 78.0.3904.108

5 réponses

Messages postés
7106
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
582
Bonjour,

voir récupérer la valeur de l'item sélectionné

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F

ensuite pour :

placer dans une autre feuille "Données" dans les cellules correspondantes ; L7 et M7

Sheets("Données").Range("L7").Value = valeur de l'item sélectionné



Voilà
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
1
Bonsoir Le Pivert,

Merci de ta réponse, mais j'ai du mal avec le lien, je ne comprends pas très bien la manip ...

Pardon, je ne suis pas un pro du VBA et j'ai encore beaucoup à apprendre ...

Les données sont rentrées avec les deux listes (OK), ce que je n'arrive pas à faire, c'est d'affecter les données sélectionnées dans les deux cellules L7 et M7. Il y a un truc qui m'échappe ...
Messages postés
7106
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
582
j'ai du mal avec le lien, je ne comprends pas très bien la manip .

Dans le lien il y a cette rubrique dans laquelle tu as ta réponse à:

affecter les données sélectionnées

Récupérer le contenu de l'item sélectionné.
La procédure renvoie une chaîne vide si rien n'est affiché dans le ComboBox


@+
Messages postés
7106
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
582
Je ne comprends pas que tu ais des difficultés sur ce point.

Je t'ai répondu sur ce post il y a quelques temps et tu semblais maîtriser vba

https://forums.commentcamarche.net/forum/affich-36262356-copier-coller-avec-une-combobox

@+
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
1
Bonsoir Le Pivert,

Pardon, je rentre de réunion (depuis ce matin, dur dur)
C'est vrai que j'avais un peu le même pb, mais le temps est passé dessus et je mélange tout en ce moment, coup de fatigue sans doute.
Pourtant simple, copier deux valeurs du CBO et les placer dans deux cases d'une autre feuille ...
Ben non, je n'y arrive plus. Pas moyen d'écrire une ligne de code en ce moment je suis bloqué. Pour ça que j'appelle à l'aide.
Je reprendrai plus tard, tant pis.
Merci de ta patience.
Bonne soirée à toi.
DMT.
Messages postés
7106
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 décembre 2020
582
Comme ceci:

Sheets("Données").Range("L7").Value = ComboBox1.Value  'adapter nom ComboBox


@+ Le Pivert
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
1
Bonsoir et merci ami,

Je teste demain et je te dis ce qu'il en est, ce soir, dodo, je suis crevé.

Merci à toi de m'aider.

A demain, DMT.
Messages postés
38
Date d'inscription
vendredi 19 octobre 2018
Statut
Membre
Dernière intervention
24 novembre 2020
1
Bonjour Le Pivert,

Après une bonne nuitée de repos, reprise dans la matinée ... Ben, ça tourne parfaitement !

Sans s’énerver et en comprenant ce que l'on écrit, les problèmes sont bien moins nombreux ...

Je te remercie infiniment de ta patience à mon égard. Très bonne journée à toi, et à plus pour une autre question peut-être.

DMT