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 :

probleme collection vba excel en vbscript


Sujet :

VBScript

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    février 2006
    Messages
    207
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 207
    Points : 51
    Points
    51
    Par défaut probleme collection vba excel en vbscript
    Bonjour j'i automatisé l'importation de données dans une feuille excel via vbscript
    Mon probleme c'est que je dois faire un trie et un dédoublonnage dans la feuille
    en vba excel il existe la notion de collection ci joit un code vba excel qui fait le job mais j'aimerais le faire directmeent dans mon code vbscript
    j'ai trouvé la notion de collection en vba mais elle ne correspond pas help si quelqu'un peut m'adier
    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
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
     
    Sub triededoublonne()
        Dim AllCells As Range, Cell As Range
        Dim NoDupes As New Collection
        Dim i As Integer, j As Integer
        Dim Swap1, Swap2, Item
     
     
    'version sur plusieurs colones
        On Error Resume Next
        For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
     
                 NoDupes.Add Sheets("Feuil1").Range("A" & i) & ":" & Sheets("Feuil1").Range("B" & i), CStr(Sheets("Feuil1").Range("A" & i) & ":" & Sheets("Feuil1").Range("B" & i))
     
    '
        Next i
     
     
        On Error GoTo 0
     
    '   On trie la collection
        For i = 1 To NoDupes.Count - 1
            For j = i + 1 To NoDupes.Count
                If NoDupes(i) > NoDupes(j) Then
                    Swap1 = NoDupes(i)
                    Swap2 = NoDupes(j)
                    NoDupes.Add Swap1, before:=j
                    NoDupes.Add Swap2, before:=i
                    NoDupes.Remove i + 1
                    NoDupes.Remove j + 1
                End If
            Next j
        Next i
     
     
        For i = 1 To NoDupes.Count
        t = Split(NoDupes(i), ":")
     
          Range("G" & i).Value = t(0)
           Range("H" & i).Value = t(1)
        Next i
     
    End Sub

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    février 2006
    Messages
    207
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 207
    Points : 51
    Points
    51
    Par défaut
    bonjour joint le code suivant
    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
     
     
    Dim sampleVisualBasicColl As New Collection
    'On Error Resume Next
     
    Dim item1, item2, item3, item4 As String
    item1 = "Items"
    item2 = "In"
    item3 = "A"
    item4 = "Collection"
    sampleVisualBasicColl.Add(item1, "firstkey")
    sampleVisualBasicColl.Add(item2, "secondkey")
    sampleVisualBasicColl.Add(item3, "thirdkey")
    sampleVisualBasicColl.Add(item4, "fourthkey")
    For Each aString In sampleVisualBasicColl
        If aString = "Collection" Then
            MsgBox(aString)
        End If
    Next aString
    mais j'ai une erreur la var object est rien....
    comprend pas qu'est ce qu'il me manque

Discussions similaires

  1. [XL-2003] Probleme fonction VBA Excel
    Par loan33 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/01/2011, 16h19
  2. Probleme en VBA Excel : supprimer une ligne doublante
    Par yanly dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/07/2007, 13h54
  3. [VBA-E]Probleme macro VBA excel 2000 2003
    Par skichatchat dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/04/2007, 21h16
  4. [VBA] [Excel] Probleme de rafraichissement d'un label
    Par lejert dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/11/2005, 17h09
  5. [VBA Excel]collection et type
    Par Tan dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/02/2005, 18h22

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