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

Remplir une cellule a partir de combobox puis vider la combobox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jema
  • 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
J

Jema

XLDnaute Nouveau
Bonjour 🙂

J'ai une petite combobox que je pense assez simple qui sert à remplir une cellule directement quand on sélectionne un élement de la combobox.

Private Sub ComboBox1_Change()
Sheets("param").Calculate

Range("D3") = "0:" & ComboBox1.Value

' ligne suivante pose probleme
ComboBox1 = ComboBox1.List(0)

End Sub

Quand je ne met pas la ligne qui pose problème, la copie se fait sans problème et la cellule recoit la bonne donnée.

Mais ce que j'aimerais bien pouvoir faire c'est remplir la cellule puis vider la sélection de la combobox. Or avec le code que j'ai là, il est censé remplir la cellule d'abord puis changer la valeur de la combobox, mais il modifie la valeur de la cellule également. Les deux sembles donc toujours liés pendant l'exécution de la fonction.

Où fais-je une erreur?! 🙂

Merci d'avance!

Jema
 
Dernière édition:
Trier par date Trier par votes
Re : Remplir une cellule a partir de combobox puis vider la combobox

Bonsoir Jema,

Pour éviter que la macro soit relancée quand on modifie la ComboBox, il faut désactiver l'action des évènements, puis ne pas oublier de les réactiver ensuite :

Code: 
Private Sub ComboBox1_Change()
Sheets("param").Calculate 'à quoi ça sert ???
Range("D3") = "0:" & ComboBox1
Application.EnableEvents = False 'désactive l'action des évènements
ComboBox1 = ComboBox1.List(0) 'pourquoi pas = "" ???
Application.EnableEvents = True
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Ahhhh... J'y ai cru! J'étais persuadé que ca marcherait mais manifestement aucun changement. :'(

Même en ne mettant QUE Application.EnableEvents = False
et plusieurs tests, toujours le même soucis.

Merci pour l'effort. 🙂

Jema
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

bonsoir le fil, Job75, Jema

... Les deux sembles donc toujours liés pendant l'exécution de la fonction
Cliquez pour agrandir...
D'ou (peut-être) :
Code: 
Range("D3") = "0:" & ComboBox1.Value
[B][COLOR=blue]Range("D3") = Range("D3").Value[/COLOR][/B]
A plus
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Bonjour,

en général, pour éviter un nouvel appel lors du changement dans la liste, je passe par une variable booléenne déclarée hors macro :
Code: 
Dim Fait As Boolean
Private Sub ComboBox1_Change()
  Sheets("param").Calculate
  If Fait = False Then
    Range("D3") = "0:" & ComboBox1.Value
    Fait = True
    ComboBox1 = ""  'pour pouvoir choisir, ensuite, le premier de la liste
    Fait = False
  End If
End Sub

remarque : dans la demande, vider n'est pas clair (clear) !
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Bonjour Jema, soenda, Lii,

En réfléchissant, je parierais bien sur ça :

- la liste de ComboBox1 est donnée par la propriété RowSource

- la cellule D3 se trouve dans la plage de définition de RowSource.

Dans ce cas Application.EnableEvents = False est inopérant en effet.

La méthode de Lii doit alors fonctionner, à condition de remplacer :

Code: 
    Range("D3") = "0:" & ComboBox1.Value
    Fait = True

par :

Code: 
    Fait = True 'bon emplacement
    Range("D3") = "0:" & ComboBox1.Value

Edit : autre possibilité, dans la plage de RowSource se trouvent des formules, alors peut-être supprimer :

Sheets("param").Calculate

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Bonjour de nouveau et merci pour toutes vos propositions. 🙂

Voici le résultat de mes tests :

Solution 1 de job75 nok. Merci quand même. 🙂

Solution Soenda nok, même en rajoutant le truc de job75. Tentative risquée je trouve, mais ca aurait pu passer. 🙂

Solution de Lii OK! Bravo et merci! 😛 (+ lol pour la blague ;-) )

Donc :
"""
Dim Fait As Boolean

Private Sub ComboBox1_Change()
Sheets("sheet1").Calculate

If Fait = False Then
Range("D3") = "0:" & ComboBox1.Value
Fait = True
ComboBox1 = "" 'pour pouvoir choisir, ensuite, le premier de la liste
Fait = False
End If

End Sub
"""

Reste que cette solution prouve de fait que la fonction s'exécute deux fois d'affilés, sans celà ca ne fonctionnerait qu'une fois sur deux mais ca fonctionne ici à chaque fois.

Alors pour terminer l'analyse de vos propositions.
job75 : bien imaginé également, ca aurait pu, mais ma liste de données se trouve en fait sur une feuille "param" alors que la cellule modifiée se trouve sur "call" donc pas de lien dans ce cas.

Pour terminer, ca fonctionne donc, mais il reste toujours le mystère du pourquoi la fonction s'exécute deux fois. Si vous savez élucider ceci, je suis toujours preneur.

Bonne fin de journée et bon week-end à tous. 🙂

Jema
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Jema à dit:
Pour terminer, ca fonctionne donc, mais il reste toujours le mystère du pourquoi la fonction s'exécute deux fois.
Cliquez pour agrandir...

Si j'ai bien compris, la plage de RowSource est dans la feuille "param".

S'il y a des formules dedans, elles sont recalculées avec :

Sheets("param").Calculate

ce qui modifie la ComboBox.

A+
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Re,

à job : je n'en suis pas sûr (d'après mon test).
à Jema :
la ligne
ComboBox1 = ""
provoque un changement dans la liste donc la macro est relancée.
La variable booléenne à True permet de ne pas changer le contenu de [D3].
Cliquez pour agrandir...
Pour voir le déroulement de l'action, mets un point d'arrêt au début (F9) et fait du pas à pas (F8).
 
Vote positif 0 Vote négatif
Re : Remplir une cellule a partir de combobox puis vider la combobox

Yeahhhhhhh, effectivement. Je crois que je vais devenir acros à ce système pour débuger. 😛

Ca marche super bien et oui, la fonction se réexécute quand on modifie la combobox.

Du coup maintenant, ca marche et j'ai tout compris.

Merci et merci encore. 🙂

Jema
 
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

S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
277
NONO14
N
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
609
ChTi160
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
743
NONO14
N
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
277
Guy_M
G
C
  • Résolu(e)
XL 2016 Problème de DropDown d'une ComboBox (VBA)
Réponses
2
Affichages
555
crocrocro
C
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
429
snoopy07
S
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
933
fanfan38
M
  • Question Question
Microsoft 365 Fonction Index ( sélectionner la Matrice en fonction de cellule
Réponses
3
Affichages
118
manuZ51
M
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
237
escudo
E
A
  • Résolu(e)
XL 2013 valeur cellule en fonction de valeur combobox et optionbtutton
Réponses
4
Affichages
426
Appo1985
A
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
224
danielco
D
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
470
Droopyougo
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
553
tactic6
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
211
Lu76Fer
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
235
piga25
  • Résolu(e)
XL 2013 probleme combobox listindex -1 même avec une valeur
2
Réponses
17
Affichages
867
TooFatBoy
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
242
Rod59
R
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
523
Faroyo
F
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
451
Leo98
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…