Connaitre le nombre d'elements (sans doublons) d'un tableau
Résolu
nicobox2
PCPT
- Messages postés
- 23
- Date d'inscription
- lundi 7 novembre 2005
- Statut
- Membre
- Dernière intervention
- 14 décembre 2006
PCPT
- Messages postés
- 13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Membre
- Dernière intervention
- 3 février 2018
A voir également:
- Connaitre le nombre d'elements (sans doublons) d'un tableau
- Visual Basic / VB.NET : Extraire des nombres aléatoires sans doublons - CodeS SourceS - Guide
- Lister sans doublons les elements d'une DB et afficher dans un treeview ✓ - Forum - VB.NET
- Access requête ajout sans doublon ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Routine pour randomiser des integers sans doublons - CodeS SourceS - Guide
- Remplir combobox sans doublon et avec format ✓ - Forum - Visual Basic 6
56 réponses
PCPT
7 nov. 2006 à 23:56
- Messages postés
- 13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Membre
- Dernière intervention
- 3 février 2018
7 nov. 2006 à 23:56
très bien
mis à part que je ne vois pas pourquoi il faudrait ôter 1...
ps : pense à valider le code ;)
++
Prenez un instant pour répondre à ce sondage svp
mis à part que je ne vois pas pourquoi il faudrait ôter 1...
ps : pense à valider le code ;)
++
Prenez un instant pour répondre à ce sondage svp
cs_DARKSIDIOUS
6 nov. 2006 à 19:16
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Membre
- Dernière intervention
- 4 mars 2013
6 nov. 2006 à 19:16
Il te suffit de trier le tableau et de tester ligne à ligne si deux lignes sont identiques
OU
faire deux boucles imbriquées : l'une qui lit, l'autre qui parcourt toutes les autres lignes pour tester les doublons.
OU
faire deux boucles imbriquées : l'une qui lit, l'autre qui parcourt toutes les autres lignes pour tester les doublons.
le cancre
6 nov. 2006 à 19:19
- Messages postés
- 292
- Date d'inscription
- mercredi 25 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 novembre 2009
6 nov. 2006 à 19:19
dim Compare as string
For i = 0 To UBound(TonTab) If InStr(hi, TonTab(i)) 0 Then Compare Compare & TonTab(i) & "/"
Next i
Dim yo() As String
yo = Split(hi, "/")
MsgBox "le nombre est " & UBound(yo)
For i = 0 To UBound(TonTab) If InStr(hi, TonTab(i)) 0 Then Compare Compare & TonTab(i) & "/"
Next i
Dim yo() As String
yo = Split(hi, "/")
MsgBox "le nombre est " & UBound(yo)
cboulas
6 nov. 2006 à 19:19
- Messages postés
- 2641
- Date d'inscription
- mercredi 2 juin 2004
- Statut
- Membre
- Dernière intervention
- 8 janvier 2014
6 nov. 2006 à 19:19
Salut, il faut que tu construise ta procédure en 2 étapes
Avant les étapes créer une variable disponible à travers les fonctions et sub-r de ta form
Private Toto() as string
Ensuite créer une fontion qui va vérifier le contenu de ton tableau Toto enfin de voir si l'info est déjà enregistrée
Private function CheckRef(byval Ref as String) as Boolean
'ici une boucle qui parcours ton tableau et qui retourne True si Ref à été trouvé dans le tableau et false dans le cas contraire
end function
puis créer la sub-r principale de ta vérif
Sub CheckTable
'ici une boucle qui parcours toutes les lignes du tableau et qui vérifie si la ligne en cours est présente dans toto ou pas
'si elle y est alors tu passe à la suivante, dans le cas contraire tu ajoute cette ref au tableau toto
'puis une fois la boucle finie tu fait : len(toto) ou toto.lenght je sais plus ^^ bref ça te retourne le nombre d'élément enregistrer
end Sub
Chris...
Web :
Firstruner
Avant les étapes créer une variable disponible à travers les fonctions et sub-r de ta form
Private Toto() as string
Ensuite créer une fontion qui va vérifier le contenu de ton tableau Toto enfin de voir si l'info est déjà enregistrée
Private function CheckRef(byval Ref as String) as Boolean
'ici une boucle qui parcours ton tableau et qui retourne True si Ref à été trouvé dans le tableau et false dans le cas contraire
end function
puis créer la sub-r principale de ta vérif
Sub CheckTable
'ici une boucle qui parcours toutes les lignes du tableau et qui vérifie si la ligne en cours est présente dans toto ou pas
'si elle y est alors tu passe à la suivante, dans le cas contraire tu ajoute cette ref au tableau toto
'puis une fois la boucle finie tu fait : len(toto) ou toto.lenght je sais plus ^^ bref ça te retourne le nombre d'élément enregistrer
end Sub
Chris...
Web :
Firstruner
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
le cancre
6 nov. 2006 à 19:20
- Messages postés
- 292
- Date d'inscription
- mercredi 25 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 novembre 2009
6 nov. 2006 à 19:20
laisse tomber le premier
dim Compare as string
For i = 0 To UBound(TonTab) If InStr(Compare, TonTab(i)) 0 Then Compare Compare & TonTab(i) & "/"
Next i
Dim yo() As String
yo = Split(Compare, "/")
MsgBox "le nombre est " & UBound(yo)
dim Compare as string
For i = 0 To UBound(TonTab) If InStr(Compare, TonTab(i)) 0 Then Compare Compare & TonTab(i) & "/"
Next i
Dim yo() As String
yo = Split(Compare, "/")
MsgBox "le nombre est " & UBound(yo)
mortalino
6 nov. 2006 à 19:23
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
6 nov. 2006 à 19:23
Salut,
une simple collection, avec la clé, les données en doublons ne s'ajoutent pas.
Un petit on error resume next avant l'ajout dans la collection, on error goto 0 et c'est fini.
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
une simple collection, avec la clé, les données en doublons ne s'ajoutent pas.
Un petit on error resume next avant l'ajout dans la collection, on error goto 0 et c'est fini.
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
le cancre
6 nov. 2006 à 19:26
- Messages postés
- 292
- Date d'inscription
- mercredi 25 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 novembre 2009
6 nov. 2006 à 19:26
mortalino tu peux faire une ptite démo stp
le cancre
6 nov. 2006 à 19:37
- Messages postés
- 292
- Date d'inscription
- mercredi 25 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 novembre 2009
6 nov. 2006 à 19:37
bien sur si ton code est plus petit que le mien ,sinon laisse tomber
mortalino
6 nov. 2006 à 19:40
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
6 nov. 2006 à 19:40
En cas ouvre un nouveau projet, fait Ctrl + G, et colle ceci :
Private Sub Form_Load()
Dim sTableau(1 To 5) As String
Dim i As Byte
Dim cCollection As New Collection
sTableau(1) = "Valeur 1"
sTableau(2) = "Valeur 2"
sTableau(3) = "Valeur 1"
sTableau(4) = "Valeur 3"
sTableau(5) = "Valeur 2"
' *** seul 1, 2 et 3 devra rester
On Error Resume Next
' l'ajout d'un doublon provoque
une erreur, on occulte l'erreur,
' l'ajout du
doublon ne se fait pas et la routine continue ;)
For i = LBound(sTableau) To UBound(sTableau)
cCollection.Add sTableau(i), CStr(sTableau(i))
Next i
For i = 1 To cCollection.Count
Debug.Print cCollection.Item(i)
Next i
Unload Me
End Sub
--Mortalino--
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Private Sub Form_Load()
Dim sTableau(1 To 5) As String
Dim i As Byte
Dim cCollection As New Collection
sTableau(1) = "Valeur 1"
sTableau(2) = "Valeur 2"
sTableau(3) = "Valeur 1"
sTableau(4) = "Valeur 3"
sTableau(5) = "Valeur 2"
' *** seul 1, 2 et 3 devra rester
On Error Resume Next
' l'ajout d'un doublon provoque
une erreur, on occulte l'erreur,
' l'ajout du
doublon ne se fait pas et la routine continue ;)
For i = LBound(sTableau) To UBound(sTableau)
cCollection.Add sTableau(i), CStr(sTableau(i))
Next i
For i = 1 To cCollection.Count
Debug.Print cCollection.Item(i)
Next i
Unload Me
End Sub
--Mortalino--
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
le cancre
6 nov. 2006 à 19:57
- Messages postés
- 292
- Date d'inscription
- mercredi 25 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 novembre 2009
6 nov. 2006 à 19:57
j'utilise jamais les collections mais c'est bon à savoir,merci
cboulas
6 nov. 2006 à 20:09
- Messages postés
- 2641
- Date d'inscription
- mercredi 2 juin 2004
- Statut
- Membre
- Dernière intervention
- 8 janvier 2014
6 nov. 2006 à 20:09
Bonne idée !
Chris...
Web : Firstruner
Chris...
Web : Firstruner
cs_DARKSIDIOUS
6 nov. 2006 à 20:15
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Membre
- Dernière intervention
- 4 mars 2013
6 nov. 2006 à 20:15
ca produit pas une erreur si y'a des doublons dans une collection à l'ajout ?
nicobox2
6 nov. 2006 à 20:31
- Messages postés
- 23
- Date d'inscription
- lundi 7 novembre 2005
- Statut
- Membre
- Dernière intervention
- 14 décembre 2006
6 nov. 2006 à 20:31
Je laisse un message, je prends le RER, j'arrive chez moi 11 messages ! Quelle reactivité !
Merci à tous pour votre aide,
Merci à tous pour votre aide,
mortalino
6 nov. 2006 à 20:34
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
6 nov. 2006 à 20:34
LOL, j'avais perdu le fil, j'ai cru que c'était Le Cancre qui demandait, du coup !
Bah voilà, t'as le choix du code.
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Bah voilà, t'as le choix du code.
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
mortalino
6 nov. 2006 à 20:42
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
6 nov. 2006 à 20:42
Excuse Dark, j'avais pas vu ton message,
Oui, avec la clé (qui doit être unique), tu as l'erreur 457, "Cette clé est déjà associé à cette collection".
Ce qui as de bien, c'est que ça prend du String. (pas forcément du numérique)
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Oui, avec la clé (qui doit être unique), tu as l'erreur 457, "Cette clé est déjà associé à cette collection".
Ce qui as de bien, c'est que ça prend du String. (pas forcément du numérique)
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Dolphin Boy
6 nov. 2006 à 21:06
- Messages postés
- 630
- Date d'inscription
- vendredi 5 mai 2006
- Statut
- Membre
- Dernière intervention
- 17 février 2007
6 nov. 2006 à 21:06
Salut, s'il s'agit d'un tableau en mémoire, je pense que DARKSIDIOUS a donné la meilleure réponse possible.
Quoique, à mon avis, le meilleur des contrôles de doublons aurait dû se faire au niveau du remplissage du tableau et non pas au moment de son utilisation.
Quoique, à mon avis, le meilleur des contrôles de doublons aurait dû se faire au niveau du remplissage du tableau et non pas au moment de son utilisation.
mortalino
6 nov. 2006 à 21:10
- Messages postés
- 6786
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
6 nov. 2006 à 21:10
Je sais qu'une collection est plus lourde qu'un tableau, mais s'il y a un tri de données sur les doublons à faire en tableau, 2 boucles pour le tableau, c'est trop long, surtout si t'as des milliers de données à traiter.
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
@++
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Dolphin Boy
6 nov. 2006 à 21:54
- Messages postés
- 630
- Date d'inscription
- vendredi 5 mai 2006
- Statut
- Membre
- Dernière intervention
- 17 février 2007
6 nov. 2006 à 21:54
mortalino > je persiste et signe : il est sûrement moins long de contrôler les doublons au moment du remplissage du tableau (ou de la collection) qu'au moment des différentes utilisations. Reste à savoir comment ce tableau (ou cette collection) est rempli(e).
vercomax
6 nov. 2006 à 22:00
- Messages postés
- 548
- Date d'inscription
- mercredi 28 juillet 2004
- Statut
- Membre
- Dernière intervention
- 11 septembre 2013
6 nov. 2006 à 22:00
trés fort avec les collections Mortalino, merci pour ce code
:)
:)
chaibat05
7 nov. 2006 à 00:24
- Messages postés
- 1883
- Date d'inscription
- samedi 1 avril 2006
- Statut
- Membre
- Dernière intervention
- 20 novembre 2007
7 nov. 2006 à 00:24
Bonsoir le cercle des poètes perdus ,
une variante de l' idée de DARKSIDIOUX,
si ce n' est la même...
'------------------------------------------------
Function Compte_Sans_Doublon() As integer
Dim uB as integer
uB=UBound(T)
if uB=0 Then
Compte_Sans_Doublon=0
ElseIf uB=1 Then
Compte_Sans_Doublon=1
Else
uB=uB-1
Dim Temp() As String
Dim i as Integr, Dim sText As string
For i=1 To uB
sText=T(i)
Redim Preserve Temp(i)
Temp(i)=sText
Do While sText=T(i+1)
i=i+1
Loop
Next
Compte_Sans_Doublon=UBound(Temp)
End If
End Function
'------------------------------------------------
MonCompte=Compte_Sans_Doublon
'------------------------------------------------
j' espère que je ne me suis pas perdu !
une variante de l' idée de DARKSIDIOUX,
si ce n' est la même...
'------------------------------------------------
Function Compte_Sans_Doublon() As integer
Dim uB as integer
uB=UBound(T)
if uB=0 Then
Compte_Sans_Doublon=0
ElseIf uB=1 Then
Compte_Sans_Doublon=1
Else
uB=uB-1
Dim Temp() As String
Dim i as Integr, Dim sText As string
For i=1 To uB
sText=T(i)
Redim Preserve Temp(i)
Temp(i)=sText
Do While sText=T(i+1)
i=i+1
Loop
Next
Compte_Sans_Doublon=UBound(Temp)
End If
End Function
'------------------------------------------------
MonCompte=Compte_Sans_Doublon
'------------------------------------------------
j' espère que je ne me suis pas perdu !