IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Problème code avec listbox.list


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut Problème code avec listbox.list
    Bonjour,

    Je rencontre un problème avec un code qui me permet d'alimenter et de supprimer des lignes d'une feuille excel à l'aide d'une listbox dans un userform.
    le problème apparait lorsuque je n'ai plus qu'une ligne dans ma list box si je rentre une nouvelle ligne ou je retire une ligne un beug apparait avec cette commande : ListBox3.List() = [nom].Value

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Private Sub CommandButton8_Click()
    Dim j As Integer
    Dim numero As Integer
     
    For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) = True Then
    With Feuil2
    .Rows(i + 2).Copy
    End With
    With Feuil4
    .Rows(1).Insert Shift:=xlDown
    End With
    End If
    Next i
     
    For i = 0 To ListBox2.ListCount - 1     'décoche toutes les cases
            'sélection de l'item
            ListBox2.Selected(i) = False
        Next i
     
        With Feuil4
        numero = 1
            For j = 1 To [nombre_charges]
            .Cells(j, 1) = numero
            numero = numero + 1
            Next
        End With
     
    ListBox3.List() = [nom].Value
     
    MsgBox ("Ces charges ont bien été ajoutées au BILAN")
    End Sub
    voila si quelqu'un peut m'aider cela serait génial! Merci!!

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Pour charger la listebox j'utiliserais plutôt Rowsource
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ListBox1.RowSource = ["Nom"]

Discussions similaires

  1. Problème Code avec If
    Par Sylv3D dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/11/2011, 18h54
  2. Problème code avec Eclipse
    Par rmed92 dans le forum Eclipse Java
    Réponses: 8
    Dernier message: 20/03/2011, 16h55
  3. wss 3 problème javascript avec les listes
    Par cege dans le forum SharePoint
    Réponses: 3
    Dernier message: 02/12/2008, 08h17
  4. [STL]Problème itérateur avec list
    Par Fiquet dans le forum SL & STL
    Réponses: 7
    Dernier message: 03/10/2005, 17h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo