Sujet Précédent Sujet Suivant

VBA supression listBox

Résolu/Fermé
Stikmou - 7 févr. 2011 à 09:41
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 févr. 2011 à 14:05
Bonjour à tous,

voila j'ai encore une question en vba.
J'ai un formulaire ou je veux supprimer certains éléments. Je m'explique :
J'ai une listBox et un bouton supprimer.
J'aimerai que quand j'ai sélectionné une ou plusieurs lignes de ma listBox et que j'appuis sur supprimer, ca me les supprime.
J'ai déjà essayer avec un RemoveItem, le problème c'est qu'il ne connais pas.

Si vous avez des idées. Merci :)



4 réponses

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
7 févr. 2011 à 10:31
Bonjour,

Difficile de te répondre sans voir le code!...

néanmoins, s'il s'agit d'une listbox par activeX

Ta listbox ne doit pas provenir d'une rowsource
La propriété multiselect doit être à 2

lorsque tui cliques sur le bouton
il faut boucler sur la listbox en sens inverse

par exemple: 

 For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) = True Then
            ListBox1.RemoveItem (ListBox1.ListIndex)
        End If
    Next i
0
Réponse 2 / 4
Stikmou
7 févr. 2011 à 10:45
Merci pour ta réponse, mais j'ai abandonné cette branche et j'ai préféré faire plutôt une comboBox. Mais j'ai toujours un problème quand j'appuis sur le bouton suprimer. Cela me marque "Membre de méthode ou données non trouvable".
en surlignant SelectedItem

Voici le code 
combolist.Items.Remove (combolist.SelectedItem)
0
Réponse 3 / 4
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
Modifié par lermite222 le 7/02/2011 à 12:37
Bonjour,
tu n'est PAS EN VBA mai en VB.NET 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selectedItem As Object
        selectedItem = ComboBox1.SelectedItem
        ComboBox1.Items.Remove(selectedItem)
End Sub

A+

L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.
0
Stikmou
7 févr. 2011 à 13:14
Problème résolue seul par : 
If ComboBox1 = "" Then
    MsgBox "Vous devez choisir une taille"
    GoTo fin:
End If


ComboBox1.RemoveItem (ComboBox1.ListIndex)

DoCmd.RunSQL ("DELETE TAILLE.code_taille from TAILLE where code_taille = '" + ComboBox1 + "'")
MsgBox ("La taille " + ComboBox1 + " à été supprimé avec succès")
Me.Refresh
fin:
ComboBox1 = ""


Je sais pas si c'est esthétiquement bon et beau, mais en tous cas ça marche.
0
Réponse 4 / 4
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
7 févr. 2011 à 13:50
Pfffuuit, tu dis être en VBA, tu met un exemple en VB.Net, tu est probablement sur Access...
COMMENT VEUX-TU QU'ONT S'Y RETROUVE.
A+
0
Stikmou
7 févr. 2011 à 13:59
vb.net oui excuse moi, erreur de ma part :/
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
7 févr. 2011 à 14:05
Encore du temps de perdu par imprécision du demandeur!
la semaine commence bien!

bonjour à lermite
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

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

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

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

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

10 réponses