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

VBScript Discussion :

Suppression de doublons et calculs


Sujet :

VBScript

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Suppression de doublons et calculs
    Saut tout le monde,

    J'ai un tableau 2D ressemblant à :

    cle1 4
    cle2 3
    cle3 7
    cle2 1
    cle4 10
    cle4 6

    J'aimerais faire en sorte d'avoir :

    cle1 4
    cle2 4
    cle3 7
    cle4 16

    Donc supprimer les lignes avec une clé doublon mais additionner sa valeur avec la première... Je sais que c'est pas dur, que je devrais trouver mais ce n'est pas le cas.

    Pour l'instant j'ai ceci :

    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
     
    Dim cle()
    Redim cle(Ubound(Tab3,1))
    m=0
    ok=0
    n=0
    For i=0 to Ubound(Tab3,1)
    	Do While cle(m) <> Tab3(i,0) AND m < Ubound(Tab3,1)
    				m=m+1
    	Loop
     
    	If	cle(m) = Tab3(i,0) Then
    		For a=m to Ubound(Tab3,1)-1
    			For b=0 to Ubound(Tab3,2)
    				Tab3(a,b)=Tab3(a+1,b)
    			Next
    		Next
    		ok=1
    	End If
     
    	If ok=0 Then
    		cle(n)=Tab3(i,0)
    		n=n+1
    	End If
     
    	m=0
    	ok=0
    Next
    Avez vous des idées ? Merci d'avance

    Edit : ce code m'affiche une liste sans doublon mais supprime certaines valeurs, sur 2200 lignes originales, dont 1550 sans doublons, il m'en affiche que 1422
    Dernière modification par Invité ; 14/06/2013 à 12h18.

Discussions similaires

  1. Suppression de doublons et insertion
    Par Samish dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 15/08/2005, 21h57
  2. Réponses: 17
    Dernier message: 03/12/2004, 11h17
  3. [langage] Suppression de doublon dans tableau
    Par LFC dans le forum Langage
    Réponses: 5
    Dernier message: 15/04/2004, 14h08
  4. Requête de suppression de doublons : besoin d'aide
    Par biocorp dans le forum Langage SQL
    Réponses: 3
    Dernier message: 27/01/2004, 17h04
  5. [LG]Suppression de doublons
    Par moustique31 dans le forum Langage
    Réponses: 5
    Dernier message: 20/12/2003, 21h03

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