bonjour,
j'ai parcouru diverses sources sur le net sur la suppression des doublons dans un tableau (array 1D).
La plus part, s'appuie sur un Range de la feuille pour enfin enregistrer le résultat dans un tableau.
De plus, il faut que la feuille cible soit active.
ce qui me dérange c'est cette écriture
comment fait t-on pour passer de variables à la place de [E6], [E65536]
si on utilise pour un Tableau Structuré
exemple ([E2], ["E" & Last_Ligne_Tab_BNIC].End(xlUp)) ce qui ne fonctionne pas.
-----------------------------------
Ce que je cherche, c'est de passer la moulinette directement sur le tableau 1D.
je ne suis pas claire avec ceci URL
j'ai besoin d'aide ne français, svp
merci
j'ai parcouru diverses sources sur le net sur la suppression des doublons dans un tableau (array 1D).
La plus part, s'appuie sur un Range de la feuille pour enfin enregistrer le résultat dans un tableau.
De plus, il faut que la feuille cible soit active.
VB:
sub coincoin()
...
Dim Tableau() As Variant
Dim c As Variant
Set MonDico = CreateObject("Scripting.Dictionary")
Dim Feuille As Worksheet
Set Feuille = Sheets("DIY_BNIC")
Feuille.Activate
For Each c In Range([E6], [E65536].End(xlUp))
'si la donnée n'existe pas encore dans le dictionnaire
If Not MonDico.Exists(c.Value) Then
'on l'ajoute dans le dictionnaire...
MonDico.Add c.Value, c.Value
'...et dans le tableau VBA ;-)
ReDim Tableau(1 To MonDico.Count)
Tableau(MonDico.Count) = c.Value
Debug.Print MonDico.Count, Tableau(MonDico.Count)
End If
Next c
...
end sub
ce qui me dérange c'est cette écriture
Code:
For Each c In Range([E6], [E65536].End(xlUp))
si on utilise pour un Tableau Structuré
Code:
Last_Ligne_Tab_BNIC = (List_obj_DIY_BNIC.Range.Rows.Count)
-----------------------------------
Ce que je cherche, c'est de passer la moulinette directement sur le tableau 1D.
je ne suis pas claire avec ceci URL
j'ai besoin d'aide ne français, svp
merci