Insertion d'item dans une comboBox sans VBA

Résolu/Fermé

Boosterz Messages postés 59 Date d'inscription mardi 13 juin 2017 Statut Membre Dernière intervention 28 juin 2017 - 15 juin 2017 à 08:11
Boosterz Messages postés 59 Date d'inscription mardi 13 juin 2017 Statut Membre Dernière intervention 28 juin 2017 - 15 juin 2017 à 09:12

Bonjour,

Je cherche désespérément comment ajouter des " items " dans une comboBox sous Excel sans passer par ceci :
ComboBox1.AddItem (Objet)

Juste depuis le menu des propriétés...

Merci

A voir également:

Insertion d'item dans une comboBox sans VBA
Insertion sommaire word - Guide
Insertion liste déroulante excel - Guide
Touche insertion clavier - Guide
Insertion signature word - Guide
Insertion filigrane word - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 718
15 juin 2017 à 09:07

Bonjour,

Si tu ne veux pas passer par VBA pour mettre des items dans une comboBox sous Excel, il faut que tes données soient dans une plage contigüe mentionnée dans ListFilRange.

Boosterz Messages postés 59 Date d'inscription mardi 13 juin 2017 Statut Membre Dernière intervention 28 juin 2017 27
Modifié le 15 juin 2017 à 09:12

Super,

Merci à vous bonne journée

Discussions similaires

Avis site DHgate .

Bonjour il y a quelque semaine j'ai commande une paire de Jordan 4 sur DHgate et en essayant de suivre mon colis j'ai vue qu'il y avait écrit (item returned from customs) se qui veut dire en français (objet retourner par la douane) que dois je faire aidez moi svp ????????

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...