[XL-2007] TCD-VBA- boucle champ des données

Je vais meme te donner mieux , selon moi il faut faire un dico tu recupere tes données

Code:

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
    'dicos a partir de ma reference : fichier
Function GetPath() As Dictionary
        'definition variables
    Dim RangeTotal As Range, MyRange As Range
    Dim MyDico As New Dictionary
    Dim xlsheet As Worksheet
    Dim My_Object As Donnees
        'definition feuille
    Set xlsheet = ThisWorkbook.Worksheets("")
        'Creation dico
    With xlsheet
'tu definis comme tu veux ton range , car je connais pas tes données
        Set RangeTotal = .Range(.Range("").Offset(1), .Range("").End(xlDown))
        'creation dico des liens, feuilles
        For Each MyRange In RangeTotal
            If Not MyDico.Exists(MyRange.Value) Then
                Set MyObject = New Object
 
                My_Object.Colonne1 = MyRange.Offset(, 3).Value
                My_Object.Colonne2 = MyRange.Offset(, 4).Value
                MyDico.Add MyRange.Value, My_Object
            End If
        Next MyRange
    End With
        'attribution et vidage
    Set Dicotest = MyDico
    Set MyDico = Nothing
End Function

deuxieme partie tu crais un object vite fais dans un module de classe

Code:

1
2
public Colonne1 as double
Colonne2 as double

Le nom de ma classe est Donnees mais tu mets ce que tu veux biensure