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 :

code listbox a modifier pour une litview [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut code listbox a modifier pour une litview
    Bonjour a vous tous
    Le code ci-dessous fonctionne avec une listbox, mais comment faire pour qu’il fonctionne dans une listview
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    For i = 0 To Nb - 1
        If UserForm1.ListBox1.Selected(i) = True Then
            Element_Select = True
            Sheets(F1).Activate
    J’essai de remplacer le code ci-dessus par celui-ci mais ça bug
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    For i = 0 To Nb - 1
        If UserForm1.ListView1.ListSubItems.Add(i) = True Then
            Element_Select = True
            Sheets(F1).Activate
    Merci de votre compréhension
    Cordialement

  2. #2
    Membre Expert
    Avatar de pijaku
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    1 817
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Août 2010
    Messages : 1 817
    Billets dans le blog
    10
    Par défaut
    Bonjour,
    Boucle sur un contrôle ListView et teste si la ligne est sélectionnée :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Dim Lign As Integer
    For Lign = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(Lign).Selected = True Then 
            'bla bla VOTRE CODE ICI
        End If
    Next Lign

  3. #3
    Membre éclairé Avatar de grisan29
    Homme Profil pro
    ouvrier poseur
    Inscrit en
    Octobre 2006
    Messages
    866
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ouvrier poseur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2006
    Messages : 866
    Par défaut
    Bonjour Pijaku
    un grand MERCI
    Tasolution me vas parfaitement a moi maintenant de l'adapter, tu a fait ta part et je t'en remercie

    cordialement

    Pascal

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Passage d'un code AutoIt vers Delphi (pour une dll MMB)
    Par Frencher dans le forum API, COM et SDKs
    Réponses: 8
    Dernier message: 20/09/2012, 18h45
  2. [XL-2007] conversion code listbox pour une listview
    Par grisan29 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/02/2012, 22h47
  3. [XL-2007] code d'une d'une listbox pour une listview
    Par grisan29 dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 13/12/2011, 17h30
  4. Réponses: 2
    Dernier message: 18/10/2003, 14h42

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