cathodique
XLDnaute Barbatruc
Bonjour,
Je voudrais transférer un dico à un tableau en utilisant la fonction split, puis transférer ce dernier sur la feuille résultat.
Comment passer de dico= A|AB à un tableau T1=A et T2=AB. Je bloque pour le dimensionnement du tableau dans le cas où dans le dico il y avait plusieurs chaines séparées par "|".
Merci beaucoup. Bonne journée
Je voudrais transférer un dico à un tableau en utilisant la fonction split, puis transférer ce dernier sur la feuille résultat.
VB:
Option Explicit
Sub Macro1()
Dim plage As Range, dico As Object, Tb(), i As Long, Tr()
Set dico = CreateObject("Scripting.Dictionary")
Set plage = ThisWorkbook.Worksheets("bd").Range("A1").CurrentRegion
Tb = plage.Value
For i = 1 To UBound(Tb)
dico(Tb(i, 2) & "|" & Tb(i, 3)) = ""
Next i
Sheets("resultat").[A1].Resize(dico.Count) = Application.Transpose(dico.keys) '**pour tester mon code
'passer de dico à Tableau "split"
End Sub
Comment passer de dico= A|AB à un tableau T1=A et T2=AB. Je bloque pour le dimensionnement du tableau dans le cas où dans le dico il y avait plusieurs chaines séparées par "|".
Merci beaucoup. Bonne journée
Pièces jointes
Dernière édition: