Discussion :

[kev59600]

Bonjour à tous !

Je vous expose mon problème, sur lequel je suis depuis plusieurs jours au boulot, et qui me rend dingue !

La situation :
Je souhaite sauvegarder le contenu de 2 colonnes dans un array de 5 colonnes
Vous comprendrez bien mieux en voyant l'exemple ci-après.

J'ai deux méthodes :
- StockerInfos (qui stocke les 2 colonnes dans mon array, donc il y a des doublons)
- SupprimerDoublons (qui supprime les lignes dont la 1ère colonne de l'array possède des doublons)

Mon souhait :
Je souhaite supprimer les lignes dont la 1ère colonne de l'array possède des doublons, tout en conservant la valeur de la 2ème colonne de cette ligne. (cf. exemple)

Exemple :
TABLEAU EXCEL
Je n'arrive pas à ajouter le AC-051 dans mon array comme je le voudrais sur l'exemple

1000003	AC-026
1000003	AC-051

ARRAY :

1000003

AC-026

AC-051

Alors qu'actuellement je n'ai que ça :
TABLEAU EXCEL

1000003	AC-026
1000003	AC-051

ARRAY :

1000003

AC-026

S'il vous plait

[Marc-L]

Bonjour, bonjour !

Gros problème de logique !

Je souhaite sauvegarder le contenu de 2 colonnes (A et B) dans un array (de 2 colonnes aussi : a et b).

ARRAY :

1000003

AC-026

AC-051

L'array résultat a plus de 2 colonnes ‼ Donc en clair, de quoi s'agit-il donc ?
Car personne n'arrivera à faire tenir 3 colonnes dans 2 !

______________________________________________________________________________________________________
Je suis Paris, …

[bpascal123]

Peut-être ce sont les indices de ton array qu'on peut appeler tableau... et aussi de l'option base 0 ou option base 1
Avec 0, le tableau de 2 dimensions se déclare avec T(1,1) soit 2 lignes et 2 colonnes en comptant à partir de 0 et en base 1 T(2,2) en comptant à partir de 1.

Je serais étonné que ça soit la cause de l'erreur sinon il y aura overflow ou outbound error je ne sais plus quelle est le type de l'erreur correspondante

[patricktoulon]

Bonjour

bon tout d'abords je te suggere de te renseigner sur ce que qu'est un array ou un tableau car c'est important dans ton cas

qui en fait est tres simple

tu a une colonne a et une colonne b sur X ligne
et tu veux que les données de la colonne b correspondant au toutes les donnée identiques de la colonne A sur la meme lignes

on est donc la en face d'un soucis qui n'en ai pas un en fait

donc ppour faire court

il te faut
un tableau(de base) variable)
un tableau de sortie
un dictionaire

deja cela devrait te metre la puce a l'oreille

je te laisse faire tes recherches et reviendrais le cas echeant

[boisgontierjacques]

Bonsoir,


Exemple avec dictionnaire au lieu de Array

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub essai()
   Set Rng = Range("A2:A" & [A65000].End(xlUp).Row)
   Set d = CreateObject("Scripting.Dictionary")
   For Each c In Rng
      If d.exists(c.Value) Then d(c.Value) = d(c.Value) & "," & c.Offset(, 1).Value Else d(c.Value) = c.Offset(, 1).Value
   Next
   [E2].Resize(d.Count) = Application.Transpose(d.keys)
   [f2].Resize(d.Count) = Application.Transpose(d.items)
 End Sub

Boisgontier

[kev59600]

Bonjour, bonjour !

Gros problème de logique !

L'array résultat a plus de 2 colonnes ‼ Donc en clair, de quoi s'agit-il donc ?
Car personne n'arrivera à faire tenir 3 colonnes dans 2 !

______________________________________________________________________________________________________
Je suis Paris, …

Au temps pour moi, grosse coquille dans mon explication !
J'ai prévu large avec 5 colonnes dans mon array.

Merci à tous pour vos réponses, pour faciliter mes manips j'ai mis l'OPTION BASE à 1 (je ne l'avais pas dit sur mon premier post).

Merci à toi Boisgontier, ta méthode fonctionne parfaitement, mais je n'ai pas compris le fonctionnement. LOL
Je désire stocker les valeurs dans un array car je vais devoir effectuer une comparaison avec d'autres valeurs ensuite, or ce n'est pas possible dans ton exemple ?

[boisgontierjacques]

Bonjour,

Cf PJ

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
 
Sub essai3()
  Set d1 = CreateObject("Scripting.Dictionary")
  a = Range("A2:B" & [a65000].End(xlUp).Row)
  j = 0
  For i = LBound(a) To UBound(a)
    If Not d1.exists(a(i, 1)) Then j = j + 1: d1(a(i, 1)) = j
  Next i
  Dim Tbl(): ReDim Tbl(1 To d1.Count, 1 To 5)
  Set d2 = CreateObject("Scripting.Dictionary")
  For i = LBound(a) To UBound(a)
      d2(a(i, 1)) = d2(a(i, 1)) + 1
      Tbl(d1(a(i, 1)), 1) = a(i, 1)
      Tbl(d1(a(i, 1)), d2(a(i, 1)) + 1) = a(i, 2)
   Next
   [E2].Resize(d1.Count, 5) = Tbl
 End Sub

Boisgontier

[kev59600]

Ouah, je n'en demandais pas tant. Merci beaucoup Boisgontier !
J'ai honte d'être aussi mauvais en algo ... je n'ai pas quitté le domaine informatique pour rien