Excel 2010 VBA

Fermé

Cluses74 Messages postés 240 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023 - 31 oct. 2018 à 16:53
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 - 26 nov. 2018 à 08:39

Bonjour,
j'explique mon problème

1 - je sélectionne les feuilles de mon classeur à l'aide d'une combobox1
2 - j'aimerai afficher la valeur d'une cellule d'une feuille sélectionnée par la combobox1
3 - afficher la valeur de cette cellule N4 dans une textbox13
D'avance merci à celui qui me répondra et me donnera le bon code

A voir également:

Excel 2010 VBA
Liste déroulante excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Clé activation office 2010 gratuit - Télécharger - Sécurité
Word et excel gratuit - Guide

2 réponses

Réponse 1 / 2

via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
31 oct. 2018 à 17:40

Bonjour

Textbox13.value=Sheets("lenomdelafeuille").range("N4")
devrait aller

Cdlmnt
Via

Cluses74 Messages postés 240 Date d'inscription dimanche 4 janvier 2015 Statut Membre Dernière intervention 22 août 2023
25 nov. 2018 à 23:31

merci de cette réponse mais comment afficher les noms des 20 feuilles car ce code si j'ai bien compris n 'est valable que pour une feuille de classeur et non pour l'ensemble de mon classeur
Mais encore merci de cette réponse

Réponse 2 / 2

via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
Modifié le 26 nov. 2018 à 08:40

A l'initialisation de ton Userform (événement Initialize) tu la remplis avec les nom ds feuilles avec une boucle :

For i = 1 To sheets.Count
        ComboBox1.AddItem sheets(i).Name
    Next i

puis dans l'évenement Textbox13_Change :

Textbox13.value=Sheets(ComboBox1.value).range("N4")

Cdlmnt
Via