Bonjour,
J'ai construis une macro lisant dans une table comportant notamment 2 colonnes qui sont renvoyées sous forme de tableau ordonnée et abscisse.
Les données sont dans un onglet dénommé [Data]
Le tableau est envoyé sur l'onglet dénommé [Balance-Géné]
Ma macro fonctionne parfaitement si je la lance depuis l'onglet [Data]
J'ai besoin d'un petit coup de main, car elle plante avec une erreur 1004
à la ligne --> For Each c In Sheets("Data").Range([B2], [B65536].End(xlUp))
Merci d'avance
J'ai construis une macro lisant dans une table comportant notamment 2 colonnes qui sont renvoyées sous forme de tableau ordonnée et abscisse.
Les données sont dans un onglet dénommé [Data]
Le tableau est envoyé sur l'onglet dénommé [Balance-Géné]
Ma macro fonctionne parfaitement si je la lance depuis l'onglet [Data]
J'ai besoin d'un petit coup de main, car elle plante avec une erreur 1004
à la ligne --> For Each c In Sheets("Data").Range([B2], [B65536].End(xlUp))
Code:
Sub toto()
Dim Tableau()
Dim Tablo()
Dim i As Long
Dim mondico As Object
Dim c As Object
Dim d As Object
'ordonnées
With Sheets("Balance_Géné")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Sheets("Data").Range([B2], [B65536].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
Sheets("Balance_Géné").Cells(2 + mondico.Count, 1) = Application.Transpose(Tableau(mondico.Count))
End If
Next c
'abscisse
Set mondico = CreateObject("Scripting.Dictionary")
For Each d In Sheets("Data").Range([A2], [A65536].End(xlUp))
'si la donnée n'existe pas encore dans le dictionnaire
If Not mondico.Exists(d.value) Then
'on l'ajoute dans le dictionnaire...
mondico.Add d.value, d.value
'...et dans le tableau VBA ;-)
ReDim Tablo(1 To mondico.Count)
Tablo(mondico.Count) = d.value
Sheets("Balance_Géné").Cells(2, 1 + mondico.Count) = Tablo(mondico.Count)
End If
Next d
End With
End Sub
Merci d'avance