1. Accueil
  2. Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Supprimer le dernier élément d'un combobox [Résolu]

Signaler
Messages postés
6
Date d'inscription
mercredi 15 février 2012
Statut
Membre
Dernière intervention
29 mai 2019
 -
Messages postés
6
Date d'inscription
mercredi 15 février 2012
Statut
Membre
Dernière intervention
29 mai 2019
 -
Bonjour,
je suis actuellement sur un code et je voudrais faire en sorte qu'un combobox prenne une ligne du classuer excel excel et retire la derniere cellule d ela ligne.
Cependant appliqué à mon code cela me met "Erreur non répertorié" je ne comprends pas pourquoi
Voici le code :

Sub OptionButton2_Change()
Worksheets("Données").Activate
If OptionButton2.Value = True Then
ComboBox1.RowSource = Worksheets("Données").Range("A2", Range("A65536").End(xlUp)).Address
Else
ComboBox1.RowSource = ""
End If
dernier = ComboBox1.ListCount
ComboBox1.RemoveItem dernier - 1
End Sub

Merci de votre aide
Afficher la suite

6 réponses

Réponse 1 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
De plus si j'ai bien compris ton explication il faudrait donc un combobox non lié qui aille prendre la plage concerné?Comment faire?

Il n'y a alors qu'une seule méthode !
Parcourir la plage concernée (bloucle for ... to ou For Each ... Next) et alimenter ta combo (non liée à la plage par un RowSource) par AddiTem


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'e
Réponse 2 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Bonjour,
Réponse évidente :
Si ta combobox est liée (c'est ainsi que tu l'as définie), elle est liée.
On ne peut, dès lors, la modifier (que ce soit par ajout, suppression, ou autre modification) !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'e
Réponse 3 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Conclusion ? ===>> ce n'est pas à ta combo, qu'il faut toucher, mais à la plage à laquelle tu l'as liée.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'e
Réponse 4 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 220
Ayé ?

et c'est donc ceci, que tu veux faire, bien que je n'en voies nullement l'intérêt : 
Sub OptionButton2_Change()
  If OptionButton2.Value = True Then
     ComboBox1.RowSource = Worksheets("Données").Range("A2", Range("A65536").End(xlUp)).Address
  Else
    Worksheets("Données").Range("A65536").End(xlUp).ClearContents
    ComboBox1.RowSource =  Worksheets("Données").Range("A2", Range("A65536").End(xlUp)).Address
  End If
End Sub

PS : observe deux choses :
1) mon code est indenté
2) il est mis entre balises code (3ème icône en partant de la droite), ce qui le rend lisible .
Merci de penser à en faire autant.




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'e
Réponse 5 / 6
Messages postés
6
Date d'inscription
mercredi 15 février 2012
Statut
Membre
Dernière intervention
29 mai 2019
Merci de m'avoir répondu
Je ne pense pas qu'avec ton code ce que je veux faire va fonctionner(enfin cela va fonctionner mais des informations du classeur vont être perdu)
J'essaye de m'exprimer plus clairement en prenant un exemple(pour montrer l'utilité aussi):
Voici la ligne à mettre dans le combobox:

Bananes Pommes Poires nombre de fruits

cependant je ne connais pas à l'avance le nombre de fruits ( pour cette raison je ne peux utiliser une plage fixe) et je ne veux pas que le nombre total puisse être choisi dans mon combobox(un peu farfalu comme exemple je te l'accord).

De plus si j'ai bien compris ton explication il faudrait donc un combobox non lié qui aille prendre la plage concerné?Comment faire?

Merci encore

ps:désolé pour la mise en forme du code initial ce sera fait à l'avenir
Réponse 6 / 6
Messages postés
6
Date d'inscription
mercredi 15 février 2012
Statut
Membre
Dernière intervention
29 mai 2019
Ah oui en effet je n'avais pas pensé à cette méthode
merci!
Répondre Posez votre question