Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir une combobox sur une feuille excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion thunder23
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

thunder23

XLDnaute Occasionnel
Bonsoir le forum,

Je viens vers vous car je souhaiterais remplir une ComboBox qui est sur une feuille excel avec le contenu d'une colonne sur une autre feuille excel. Je n'ai jamais eu à faire comme ça car auparavant s'était dans un UserForm.

Merci d'avance pour votre aide 🙂
 
Trier par date Trier par votes
Re..
Modifier ce classeur est pour moi==>mission impossible, il faudrait des semaines.
Désolé.
Si tu es à l'origine de ce projet, cela ne devrait pas poser de problème pour adapter les boutons à un combobox.
On est quand même très.. très.. loin de la demande d'origine
*/Remplir une combobox sur une feuille excel/*
Sinon, ouvre un nouveau poste, peut-être quelqu'un……..
 
Vote positif 0 Vote négatif
Re...

Ce n'est pas grave c'est déjà énorme l'avancé qui a été faite, merci encore.
Oui l'origine du projet est de moi après certains code m'ont été proposé car à l'époque le code VBA j'étais novice mais je sais comment ils fonctionnent.
Effectivement on est trèèèèès loin de la demande d'origine, je me suis un peu emporté pour le coup mais ça me fait plaisir de partager dans ce domaine mais je pense que je vais d'abord voir si je peux adapter les codes avec celui que tu m'as proposé sinon je ferais un autre poste 😉

Merci encore
Cordialement
Michel
 
Vote positif 0 Vote négatif
Re..
C'est ce qu'elle fait
Essaie ce code pour mieux voir

VB: 
Private Sub ComboBox_poste_Change()
    Dim C As Range
    If ComboBox_poste.ListIndex = -1 Then Exit Sub
    For Each C In Selection    'Boucle sur les cellules selectionnées
        If Not Intersect(C, [plage]) Is Nothing Then    ' vérifie si C est bien dans plage("plage" est un nom défini)
            Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2).Copy C
            MsgBox "Valeur de la cellule recherchée: " & Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2) & vbLf & "Adresse de la cellule recherchée : Feuil2 " & Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2).Address & vbLf & "Adresse de la cellule de destination: " & C.Address
        End If
    Next
    If [c36] = "" Then [d36] = "": [d36].Interior.ColorIndex = xlNone
    ComboBox_poste = ""
End Sub
 
Vote positif 0 Vote négatif

Re,

oui je comprends bien, merci d'avoir décripter pas á pas la variable mais comment faire pour prendre que la valeur (ex: M) sans la mise en forme?
j'avoue que je n'ai pas précisé et je m'en excuse. 🙂

Cdlt
Michel
 
Vote positif 0 Vote négatif
Re...
VB: 
'----------------
C = Feuil2.Cells(ComboBox_poste.ListIndex + 3, 2)      '.Copy C'
'---------------
En sachant qu'alors C est égale à la valeur du combobox
Donc
VB: 
'-------------
C = ComboBox_poste.Value
'-------------
Cela part un peu dans tous les sens…....🙄
 
Dernière édition:
Vote positif 0 Vote négatif
Re,

Ben en fait c'est que je ne comprends pas pourquoi ça me prends la cellule au complet alors que ça ne devrait prendre que la valeur ?
J'ai mis en pj mon fichier afin de mieux comprendre le problème car là ça me dépasse 😵

Cordialement
Michel
 

Pièces jointes

Vote positif 0 Vote négatif
Re
Evidemment
Avec les deux lignes
VB: 
 C = ComboBox_poste.Value
 Feuil10.cells(ComboBox_poste.ListIndex + 3, 2).Copy C
Je te laisse trouver celle qui est en trop et qu'il faut supprimer 🙄
 
Vote positif 0 Vote négatif
Re,

Ahh d'accord c'est l'une OU l'autre 😳😳
Je viens de supprimer
VB: 
Feuil10.cells(ComboBox_poste.ListIndex + 3, 2).Copy C
et c'est bon ça ne prend que la valeur néanmoins je vais garder ce code si j'en ai besoin plus tard 😉

encore merci pour ton aide et ta patience 🙂🙂🙂

Cordialement
Michel
 
Vote positif 0 Vote négatif
Bonjour Jacky67,

Je reviens vers toi car j'ai un soucis pour la MFC dans mon tableau et j'aurais voulu me servir de celle de la Liste mais sans la prise en charge des bordures, est-ce possible?

Merci
Cordialement
Michel
 
Vote positif 0 Vote négatif
Re..
Si tu parles du code précédent qui n'est pas une MFC ce serait
VB: 
Feuil10.cells(ComboBox_poste.ListIndex + 3, 2).Copy
C.PasteSpecial Paste:=xlPasteAllExceptBorders

*L'enregistreur de macro pour ce genre de code est aussi une grande aide
 
Vote positif 0 Vote négatif

Ahh super en tout cas j'étais très très loin car j'ai voulu essayer après avoir essuyer un échec avec la MFC "classique" 😱
Merci beaucoup 🙂🙂

Cordialement
Michel
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Remplir des cellules automatiquement
2 3 4
Réponses
49
Affichages
1 K
job75
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
293
dgil37
D
  • Question Question
XL 2019 Lenteur pour charger une ComboBox à l'ouverture d'un classeur
2
Réponses
19
Affichages
637
job75
D
  • Résolu(e)
XL 2013 Combobox
Réponses
2
Affichages
123
Dranreb
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
128
LaurentVasseur
L
  • Résolu(e)
XL 2019 Inverser une colonne sur mon USF
Réponses
10
Affichages
388
Rheeem
R
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
76
Chris5633
C
J
  • Question Question
XL 2021 remplissage colonne avec noms composant une équipe selon choix dans menu déroulant
Réponses
14
Affichages
230
JiM08
J
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
2 K
AtTheOne
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
364
thunder23
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
197
Didierpasdoué
D
  • Question Question
XL 2013 Annulé
Réponses
6
Affichages
269
bsalv
B
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
230
PRy
P
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
547
Elnono51
E
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
271
fanch55
D
  • Question Question
XL 2016 enregistrement feuille excel directement sur le drive par l'intermédiaire d'un bouton
Réponses
9
Affichages
644
fanch55
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
  • Résolu(e)
XL 2021 Récupération de données sur une seconde feuille
Réponses
8
Affichages
472
fvr1
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
333
berta8683
B
  • Question Question
Microsoft 365 fusionner tous les tableaux présents dans ce fichier Excel en une seule feuille
Réponses
6
Affichages
297
kahlouch
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…