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
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
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
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
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
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