Erreur dans mon code

  • Initiateur de la discussion Initiateur de la discussion Gucciz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gucciz

XLDnaute Nouveau
hello à tous,
je sollicite la communauté excel-download pour m'aider à comprendre pourquoi mon code ne fonctionne pas.
Le code est divisé en deux fonction et une macro.
La fonction Searchname renvoie le numéro de la ligne d'un tableau de données.
La fonction DataSector permet d'enregistrer les données lié au nom recherché dans un tableau.

Les fonctions fonctionnent, là ou j'ai un souci c'est dans le sub. Il m'affiche une erreur à la premiere ligne contenue dans le for. Je souhaite réaliser des opérations sur le tableau DataSector, et tout sauver dans un tableau de taille (8,4). Après cette étape je souhaite coller ce tableau dans une feuille Excel.
Mais apparement ça ne fonctionne pas🙁

J'espère que vous pouvez m'aider.
Merci,

Function DataSector(SearchFund As String)
Dim Fundline As Integer
Fundline = SearchName(SearchFund)
Dim DataSec(1, 64)


For i = 1 To 64 Step 1
DataSec(1, i) = Cells(Fundline, 162 + i).Value
Next i
DataSector = DataSec

End Function

Sub DataSector2()
Range(Cells(127, 1), Cells(127, 64)) = DataSector("Marshall")
Dim DataF(8, 4) As Double
i = 1
j = 1
For l = 1 To 32 Step 4

DataF(j, l) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 4).Value) DataF(j, l + 1) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 1).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 5).Value)
DataF(j, l + 2) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 2).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 6).Value)
DataF(j, l + 3) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 3).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 7).Value)
i = i + 8
j = j + 1
Next l

Selection = DataF(8, 4)

End Sub

En gros, je n'arrive pas à stocker la valeur de deux cellules additionnées dans le tableau DataF, j'ai l'impression...
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
569
Réponses
2
Affichages
371
Réponses
2
Affichages
285
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
Réponses
10
Affichages
714
Retour