Essai sur tableaux

Version imprimable

Voir 40 message(s) de cette discussion en une page

Essai sur tableaux

Bonjour le forum!

je fait un essai sur un post avec patricktoulon et sur les tableaux, j'avoue ne pas avoir tout compris alors je lance le post pour essayer de comprendre, pour beaucoup cela va être simple mais pas pour moi! :oops:

Je n'ais pas de projet particulier, mais c'est juste un exercice personnel!

pour débuter, j'ai 2 feuilles et je voudrais récupérer les informations sans doublons de ces deux feuilles sans doublons et je souhaiterais les lires 1 à 1 par un msgbox! donc voici:
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 29 30 31 32 Sub test() Dim MonDico As Object, Cellule As Range Dim e As Integer Dim tablo ' as ? Dim elem ' as ? Dim i As Integer e = 0 Set MonDico = CreateObject("Scripting.Dictionary") With Sheets("feuil1") tablo = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value For Each elem In tablo MonDico.Item(elem) = "" e = e + 1 Next elem End With With Sheets("feuil2") tablo = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value For Each elem In tablo MonDico.Item(elem) = "" e = e + 1 Next elem End With For i = 0 To e MsgBox ????(i) Next i End Sub
merci,

jijie

19/05/2013, 19h15
SfJ5Rpw8

Bonsoir,

tiens pour comprendre l'utilisation du Dictionary :

Supprimer les lignes en double dans un fichier texte

Bonjour,

J’ai repris ton exemple avec les données réparties dans la colonne A des feuil1 et feuil2.

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
Option Explicit
Sub test()
Dim MonDico As Object
Dim e As Integer, F As Integer, n As Integer
Dim tablo, Feuille, k
 
    Set MonDico = CreateObject("Scripting.Dictionary")
    Feuille = Array("feuil1", "feuil2")
 
    For F = 0 To UBound(Feuille)
        With Sheets(Feuille(F))
            tablo = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
            For e = 1 To UBound(tablo)
                If Not MonDico.Exists(tablo(e, 1)) Then MonDico.Add tablo(e, 1), tablo(e, 1)
            Next e
        End With
    Next F
 
    k = MonDico.keys
    For n = 0 To MonDico.Count - 1
        MsgBox "Elément n° " & n + 1 & " : " & k(n)
    Next n
 
End Sub

Cordialement

19/05/2013, 20h06
patricktoulon
bonjour
tu utilise "mondico pour la feuille 1 et 2 c'est pas bon a moins que tu veux mettre tout dans le meme dico
ensuite pour ta derniere boucle
Code:

1 2 3 For i = 0 To e MsgBox mondico.item(i) Next i
Au plaisir

j'oubliais

dans ton exercice tu utilise un tableau plus un dico .les deux n'ont pas la meme fonction

avec un tableau tu peut lui affecter une plage de cellules tel quelle
un dico fonctionne un peu comme un tableau mais n'acepte pas les doublons

un tableau peut avoir plus de deux colonnes mais un dico n'en a que deux (cle/item)
19/05/2013, 20h41
jijie
Bonjour à vous trois!

Donc patrick: ta réponse me donne aucun résultat ( ça n'enlève en rien tes compétences:ccool:) par contre si je fait la c'est bon :
Code:

1 2 3 4 d = MonDico.Keys For i = 0 To MonDico.Count - 1 MsgBox d(i) Next i
et oui je voulais faire un dico sur les deux feuilles!! Ne me demande pas pourquoi, car je voulais juste me compliquer la vie !

Pour le reste il faut avouer que je commence à comprendre que le cheminement est comme par exemple une listbox!? je pense? :(

Donc un peu d'explication:

Ici on demande que si la donnée n'est pas dans mon dico then :

Code:

If Not MonDico.Exists(tablo(e, 1))

Mais pourquoi:

Code:

Then MonDico.Add tablo(e, 1), tablo(e, 1)

Bon je continue à chercher pour comprendre !! et gFZT82 tn code fonctionne à merveille !:ccool:

Citation:

dans ton exercice tu utilise un tableau plus un dico .les deux n'ont pas la meme fonction

avec un tableau tu peut lui affecter une plage de cellules tel quelle
un dico fonctionne un peu comme un tableau mais n'acepte pas les doublons

un tableau peut avoir plus de deux colonnes mais un dico n'en a que deux (cle/item)

ah!!!!?

ça ne m'arrange pas ça!
19/05/2013, 21h06
SfJ5Rpw8

Tiens tu m'as donné une idée pour une réponse voilà :

http://www.developpez.net/forums/d13...l/#post7296407
19/05/2013, 21h47
patricktoulon

re

quoi qui t'arrange pas???? et pourquoi????
20/05/2013, 00h22
jijie
Merci Bbil

bon pour le moment on reste sur dico:

après avoir inspecter ton code et la remarque de Patrick:

Citation:

un dico n'en a que deux (cle/item)

clé= mDico.Keys
item = mDico.Items
c'est ça?

Mais je ne comprend pas bien ça :
Code:

1 2 'Cas ou existe déjà Incrémente mDico(sh1.Cells(i, 1).Text) = mDico(sh1.Cells(i, 1).Text) + sh1.Cells(i, 2).Text
quand je lis: (sh1.Cells(i, 1).Text) + sh1.Cells(i, 2).Text alors valeur cellule(i) colonne 1+cellule(i) colonne 2? alors que le résultat montre bien l'addition de la valeur colonne 2 en mémoire plus la nouvelle donnée de la colonne2

et on ne se moque pas ! :(
et je pense que maintenant Patrick tu comprends mes dernières interrogations!!
20/05/2013, 08h08
SfJ5Rpw8
Bonjour,

en fait dans le code j'utilise la valeur en colonne 1 comme clé .., une fois l'élément ajouté au dictionnaire cette clé permet d'accéder à cet élément pour récupérer sa valeur ou la modifier ..

un peu de lecture supplémentaire sur le dictionnaire :

http://tahe.developpez.com/web/vbscr...e=page_3#LII-R

en relisant mon code je m'aperçoit qu'il y as un problème... ainsi lorsque j'écris :

Code:

mDico.Add sh2.Cells(i, 1).Text, sh2.Cells(i, 2)

ce qui revient (pour être plus compréhensible) à :
Code:

1 2 3 stKey =sh2.Cells(i, 1).Text mDico.Add stKey, sh2.Cells(i, 2)
ce qui est ajouté au dictionnaire ce n'est pas la valeur contenu dans la cellule mais une référence vers cette cellule ainsi le dictionnaire me permet d'accéder à cette cellule comme j'y accéderais directement dans la feuille ..

par exemple je peu rajouter l'adresse de cette cellule dans la cellule à droite de celle-ci

Code:

mDico(stKey).Offset(0,2) = mDico(stKey).Address

Dans le code pour "goldab" c'est les valeurs qui m’intéresse, vu que le cas échéant ont doit les cumulé .. je vais donc de ce pas rajouter un .text (ou .Value) à la ligne de code.

Code:

mDico.Add sh2.Cells(i, 1).Text, sh2.Cells(i, 2).text

Et donc pour revenir à la différence avec un tableau .. en fait ce n'est pas un problème de colonnes.. puisque l'Item est un variant est donc cela peu être aussi bien un nombre qu'un objet ( une cellule, une ligne, une feuille de calcul, un classeur ...) un peu comme les collections..ThisWorkBooks, Sheets...

Merci Bbil,

donc si je compile tn exemple avec le code de "gFZT82" ça donne ça!

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'A jouter la référence à microsoft Scripting Runtiome
 
Sub FusionFeuilles2èmeEssai()
 
 Dim sh3 As Worksheet
 Dim mDico As New Dictionary
 Dim feuille As Variant
 Dim F As Integer
 Dim i As Integer
 
 
Set sh3 = ThisWorkbook.Sheets("Feuil3")
 
feuille = Array("feuil1", "feuil2")
 
For F = 0 To UBound(feuille)
 
'Lecture feuille
With Sheets(feuille(F))
 
i = 2 'Ligne 1 = Titre
 
While .Cells(i, 1) <> ""
  If Not mDico.Exists(.Cells(i, 1).Text) Then
    'Cas ou n'existe pas créé l'enregistrement
    mDico.Add .Cells(i, 1).Text, .Cells(i, 2).Value
   Else
    'Cas ou existe déjà Incrémente
    mDico(.Cells(i, 1).Text) = mDico(.Cells(i, 1).Text) + .Cells(i, 2).Text
  End If
 i = i + 1 'Ligne suivante
 Wend
End With
 
Next
 
 sh3.Cells(1, 1) = Sheets("feuil1").Cells(1, 1) 'Copy entête
 sh3.Cells(1, 2) = Sheets("feuil1").Cells(1, 2)
 For i = 0 To mDico.Count - 1
    sh3.Cells(i + 2, 1) = mDico.Keys(i) 'Récupére Nom
    sh3.Cells(i + 2, 2) = mDico.Items(i) 'Récupére nombre
    MsgBox mDico.Keys(i) & " ---> " & mDico.Items(i)
 
 Next
 
 End Sub

Donc maintenant je vais me penché sur les tableaux!

jijie

20/05/2013, 15h03
nibledispo

essai sur tableau

bonjour Jijie et tous les intervenants,

Peux-tu m'expliquer ce que fait exactement la ligne 29 que je ne comprends pas dans ton dernier code .
hors cette incompréhension de la ligne, je ne saisi pas l’intérêt de la partie "else" de la boucle.

J'ai fait un essai :
- avec ou sans cette partie, on obtient le résultat escompté; à savoir : une feuille 3 sans doublons.

Par ailleurs, tu n'as pas inclus la ligne de code suivante dans cette dernière mouture.

Code:

Set MonDico = CreateObject("Scripting.Dictionary")

et pourtant cela marche.

Est-ce la ligne qui suit, différente de ta première mouture, qui permet à VBA de s'y retrouver quand même.

Code:

Dim mDico As New Dictionary

cordialement.
20/05/2013, 15h54
jijie

Bonjour nibledispo!

je comprends ta remarque, en fait vu que mon poste ressemble à :

http://www.developpez.net/forums/d13...lles-en-excel/

on à compliqué mon exemple initial !
cette ligne (29) permet de cumuler la colonne (item) de la clé!

donc on recherche la clé sans doublon, et on additionne l'item, car il pourrais y avoir plusieurs "clé" identiques !

Pour ta deuxième remarque, je laisse le soin à Bbil ou Patrick pour te répondre !

cordialement,
20/05/2013, 16h22
SfJ5Rpw8

pour la deuxième remarque

Il y as deux manières en VB d'instancier un objet :

http://mhubiche.developpez.com/vba/f...endre/binding/

Bonjour jijie

puisque tu veux voir avec les tableaux voilà un reprise du dernier exemple en y ajoutant un tableau

essaie d'analyser comment je me sert du dico
tu constatera que la boucle sur un tableau dans ta dernière version a disparue dans mon exemple

en fait je me sert du dico rien que pour contrôler les doublons
la variable "tableau final" va stoker les données

cela réduit bien les lignes de code et en plus on supprime le besoins de boucler sur le dico pour remplir les cellules en feuil3
voila le code :

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
29
30
31
32
33
34
35
36
 
'A jouter la référence à microsoft Scripting Runtiome
Option Base 1
Sub FusionFeuilles2èmeEssai()
    Dim sh3 As Worksheet
    Dim mDico As New Dictionary
    Dim feuille As Variant
    Dim F As Integer
    Dim i As Integer
    'on redimentionne le tableau par raport au nombre de ligne utilisée dans le sheets 1
    ReDim tablofinal(Sheets(1).[a65536].End(xlUp).Row, 2)
feuille = Array("feuil1", "feuil2")
    Set sh3 = ThisWorkbook.Sheets("Feuil3")
'on place les entetes dans la variable tablofinal
tablofinal(1, 1) = Sheets(1).Cells(1, 1).Text: tablofinal(1, 2) = Sheets(1).Cells(1, 2).Value
    For F = 1 To UBound(feuille)
        'Lecture feuille
        With Sheets(feuille(F))
            i = 2    'Ligne 1 = Titre
            While .Cells(i, 1) <> ""
                            If Not mDico.Exists(.Cells(i, 1).Text) Then
                  'Cas ou n'existe pas créé l'enregistrement
                    mDico.Add .Cells(i, 1).Text, .Cells(i, 2).Value
                    tablofinal(i, 1) = .Cells(i, 1).Text
                 tablofinal(i, 2) = .Cells(i, 2).Value
                              Else
                  For a = 1 To UBound(tablofinal) - 1
                  If tablofinal(a, 1) = .Cells(i, 1).Text Then tablofinal(a, 2) = tablofinal(a, 2) + .Cells(i, 2).Text
                   Next
                       End If
                i = i + 1    'Ligne suivante
                        Wend
        End With
    Next
sh3.Cells(1, 1).Resize(UBound(tablofinal), 2) = tablofinal
 End Sub

n'hésite pas si tu a des questions
Au plaisir

20/05/2013, 20h05
jijie
Salut Patrick !

ça m'a l'air intéressant !

Je regarde ça ce soir de plus près! Mais il doit y avoir une erreur car il ne me transcrit pas toutes les données en feuil3 et bizarement, lorsque je fait ça :
Code:

1 2 3 4 5 sh3.Cells(1, 1).Resize(UBound(tablofinal), 2) = tablofinal MsgBox i For e = 1 To i MsgBox i & "--> " & tablofinal(e, 1) & " : " & tablofinal(e, 2) Next
il me donne en i 5 mais avec le titre alors que je devrait avoir 5 noms différents

De plus avec msgbox je trouve le 5 vide !

mais je regarde ds la soirée!
20/05/2013, 20h38
nibledispo

essai sur tableau

bonjour Jijie et Bbil,

Jijie,
La ligne 29 est valable à titre d'exercice mais n'a, selon moi, pas d'utilité concrète.

En effet, si j'ai bien compris : a une clé ne peut correspondre qu'un seul item alors qu'un item peut avoir des clés différentes étant entendu que si ces item sont de désignation identique ils représentent cependant bien des entités différentes.

Ainsi, si plusieurs personnes portent le prénom Jéromes (item), lesdits Jéromes devront avoir chacun leur clé.

Tout au plus, cette ligne 29 permet-elle de s'assurer qu'à une clé donnée ne correspond pas plusieurs items distincts (chouxcarotte par exemple). Encore faudrait-il qu'ils soient séparés par un espace pour être lisibles.

Bbil,
Lu ton renvoi sur les liaisons tardives et anticipées : c'est clair dans mon esprit.

cordialement.
20/05/2013, 21h44
jijie

re bonjour nibledispo ,

Citation:

Ainsi, si plusieurs personnes portent le prénom Jéromes (item), lesdits Jéromes devront avoir chacun leur clé.

Ds notre cas colonne a contient les noms (clé) et ds la colonne b les points (item) !

donc si on rencontre plusieurs fois un même nom on ajoute bien les points de ce même nom (clé) donc pour moi la ligne 29 à son utilité !

cordialement,

re
Au propre ca donne ca avec le dico

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'supprime les doublons et additionne les point pour les doublons
Sub ListeSansDoublons()
      Set mondico = CreateObject("Scripting.Dictionary")
    Dim tablo As Variant
     feuille = Array(1, 2)
     For F = 1 To UBound(feuille)
        tablo = Sheets(F).Range("a1:b" & [b65536].End(xlUp).Row)
        For i = 1 To UBound(tablo)
            If Not mondico.Exists(tablo(i, 1)) Then
                mondico.Add (tablo(i, 1)), tablo(i, 2)
            Else
                'Cas ou existe déjà Incrémente'on ajoute les points a l'item deja representant  representant (tablo(i,1)
                mondico(tablo(i, 1)) = mondico(tablo(i, 1)) + tablo(i, 2)
            End If
        Next i
    Next F
    With Sheets(3)
        .[a1].Resize(mondico.Count, 1) = Application.Transpose(mondico.Keys)
        .[b1].Resize(mondico.Count, 1) = Application.Transpose(mondico.Items)
    End With
    Set mondico = Nothing
End Sub

tu constatera que je ne boucle plus dans les cellules mais dans un tableau reprentant les cellules( gain de temps- jusqu'a 90%) c'est pas négligable surtout si on a des listes tres longues

a la fin j'utilise "application .transpose " a la place de la boucle finale sur le dico

je te fait un exemple avec rien que des tableaux et je reviens

parcontre je me suis rendu compte que ca fonctionnait que si la feuille (f) etait active je n'est aucune explications pour ca car ca ne devrait pas l'etre
au plaisir

21/05/2013, 14h22
SfJ5Rpw8

Citation:

Envoyé par patricktoulon

....
parcontre je me suis rendu compte que ca fonctionnait que si la feuille (f) etait active je n'est aucune explications pour ca car ca ne devrait pas l'etre
au plaisir

avec

Code:

[b65536].End(xlUp).Row

tu travaille sur la feuille active :aie:
21/05/2013, 15h16
patricktoulon

re

Bonjour bbil

purrée je cherche depuis tout a l'heure
correction:

Code:

tablo = Sheets(F).Range("a1:b" & Sheets(F).Range("a" & Rows.Count).End(xlUp).Row)

comme quoi plus c'est simple moins c'est evident :mouarf:
vraiment j'ai honte la :mouarf::mouarf:

merci pour le retour

Voir 40 message(s) de cette discussion en une page