afficher des doublons dans une zone de liste - Divers / Débutants, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 22:11:06

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : COLLAGE SPéCIAL DANS EXCEL DEPUIS VB6 par lepico27

CREATION/SUPRESSION D'UN DOSSIER par orochy

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par mond14

COLLAGE SPéCIAL DANS EXCEL DEPUIS VB6 par lepico27

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

+ de logiciels à télécharger

1 464 433 membres
329 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 302 890 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : afficher des doublons dans une zone de liste [ Divers / Débutants ] (lisco)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Visual Basic 6 / Divers / Débutants / afficher des doublons dans une zone de liste
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

jeudi 7 août 2008 à 12:38:45 | afficher des doublons dans une zone de liste

lisco

Bonjour,je voudrais afficher des doublons dans une zone de liste ,c'est a dire j'ai des doulons comme:
AAAAA
AAAAA
AAAAA
BBBBB
BBBBB
CCCCC
CCCCC
DDDDD
DDDDD
et je voudrais afficher uniquement les doublons par simple clique sur un bouton de comande c'est a dire si je clique une fois j'affiche:
AAAAA
AAAAA
AAAAA
et une deuxieme clique m'affiche:
BBBBBB
BBBBBB
et un troisieme clique m'affiche :
CCCCC
CCCCC
help please
merci d'avance

jeudi 7 août 2008 à 12:44:57 | Re : afficher des doublons dans une zone de liste

mortalino	Salut, il te suffit de lire le premier item, puis l'item suivant. S'ils correspondent => ajout dans seconde liste, jusqu'à ce que l'item suivant (par boucle) soit différent. Avec une variable static, tu peux mémoriser l'index du dernier item chargé, pour reprendre là où tu en étais. @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA
	Rép. MP 6259 msg 6902 msg CS

jeudi 7 août 2008 à 16:22:25 | Re : afficher des doublons dans une zone de liste

PCPT

Réponse acceptée !
salut,

allez du tout cuit pour voir la suite, j'suis curieux... ^^

Option Explicit
'
Private Type tItem
    Item As String
    Count As Integer
End Type
'
Dim asHistory() As tItem
'
'
Private Sub Form_Load()
    List1(0).AddItem "AAAAA"
    List1(0).AddItem "AAAAA"
    List1(0).AddItem "AAAAA"
    List1(0).AddItem "BBBBB"
    List1(0).AddItem "BBBBB"
    List1(0).AddItem "CCCCC"
    List1(0).AddItem "CCCCC"
    List1(0).AddItem "DDDDD"
    List1(0).AddItem "DDDDD"
    ReDim asHistory(0)
End Sub
'
'
Private Sub Command1_Click()
    Dim i As Integer, iRet As Integer
    For i = 0 To List1(0).ListCount - 1
        iRet = GetIndex(List1(0).List(i))
        If iRet Then
            If asHistory(iRet).Count = 2 Then
                Load List1(iRet)
                List1(iRet).Left = List1(0).Left + (List1(0).Width + 50) * iRet
                List1(iRet).Visible = True
                List1(iRet).AddItem asHistory(iRet).Item
                List1(iRet).AddItem asHistory(iRet).Item
            ElseIf asHistory(iRet).Count > 2 Then
                List1(iRet).AddItem asHistory(iRet).Item
            End If
        End If
    Next i
    ReDim asHistory(0)
End Sub
'
'
Private Function GetIndex(ByVal sStr As String) As Integer
    Dim i As Integer, Index As Integer
    For i = 0 To UBound(asHistory)
        If asHistory(i).Item = sStr Then
            asHistory(i).Count = asHistory(i).Count + 1
            GetIndex = i
            Exit Function
        End If
    Next i
    Index = UBound(asHistory) + 1
    ReDim Preserve asHistory(Index)
    With asHistory(Index)
        .Item = sStr
        .Count = 1
    End With
End Function

Prenez un instant pour répondre à ce sondage svp

samedi 16 août 2008 à 10:50:24 | Re : afficher des doublons dans une zone de liste

lisco	Merci , finalement j'ai changé d'orientation pour mon projet mais la finalité était de faire un logiciel qui affiche des doublons et qui nous permettra de supprimer les fichiers que nous voulons. Mais ton code marche bien car je l'ai bien testé , et encore merci
	Rép. MP 55 msg

samedi 16 août 2008 à 13:01:52 | Re : afficher des doublons dans une zone de liste

PCPT	alors pense à valider ma réponse, çà peut servir à d'autres ++ Prenez un instant pour répondre à ce sondage svp
	Rép. MP 9936 msg 10429 msg CS

Cette discussion est classé dans : afficher, liste, clique, zone, doublons

Répondre à ce message

Sujets en rapport avec ce message

Zone de liste [ par sg1 ] MarcComment afficher les champs de deux tables dans deux zones de listes distinctes et puis afficher les champs sélectionnés dans une datagrid? Boucle dans une zone de liste [ par lisco ] Bonjour, j'ai une zone de liste et je voudrais faire une boucle qui m'affiche uniquement les meme doublons;C'est a dire j'ai un autre fichier ou j'ai Ajouter données dans une liste chainée [ par touixi ] Bonjour,J'ai un fichier texte comportant une structure défini dont je dois extraire des données.Ce fichier se présente comme ceci:10NomAdresse1Numero1 Techniques de développement DirectX [ par Kevin.Ory ] Bonjour,J'ai développé une application qui affiche une carte d'un jeu sur laquelle on peut se déplacer et zoomer. Je l'ai fais en dessinant avec les m IHM [ par lisco ] J'ai un fichier excel et je voudrais fabriquer une IHM qui m'affichera la liste de mes données disponibles dans les colonnes "A" "B" et "C" dans une compléter une zone de liste déroulante [ par mbricolo ] Bonjour,j'ai dans un fomulaire, une zone de liste déroulante, mais je voudrais que sur le click s'ouvre un autre formulaire en remplacement du déroula Demande aide sur un boucle For / Next [ par winvsmac ] Bonjour,Décidément, moi et les boucles ça fait 2. J'ai de nouveau besoin d'aide ! Environnement VB6.Voici une copie d'écran pour que se soit plus simp Zone de liste modifiable [ par Kingrise ] Bonjour,Ma question est simple et j'imagine que la solution doit l'être tout autant... Mais je suis débutanten VB...J'ai une zone de liste modifiable Zone de liste associée à un bouton de commande [ par lisco ] Bonjour , j'ai des titres de livres dans ma colonne"A""et leurs dates de publication dans ma colonne "B" dans un fichier excel, et je voudrais affich IHM -> Zone de liste, lien hypertexte [ par lisco ] Bonjour, j'ai une IHM qui contient une zone de liste dans lequel j'affiche plusieurs lignes qui representent des titres d'ouvrages , et quand je cliqu