Appel à un dictionnaire - erreur
Mille mercis ! C'est super intelligent votre astuce avec p = mois +1, je n'y avais pas pensé ... Merci également pour votre document, que j'ai commencé, qui a l'air très intéressant, et complet.
J'essaye de débuguer juste la dernière ligne (c'est trop bête de s'arrêter là!) où j'ai tenté mille solutions, en vain ...Je tombe sur l'erreur "Sub ou fonction non définie" dans cette ligne :
TRed1(n, Mois + 1)Intégrée dans cette boucle (qui est devenue vachement plus petite qu'avant!)
For n = 1 To UBound(ArrR1, 1)
If ArrR1(n, 1) = Année Then
TRed1(n, Mois + 1) = ArrR1(n, Mois + 1) + Char 'On cumule la ArrC à la précédente
End If
Next nJ'ai tout tenté : TRed1.Range(n, Mois+1), Cells(n, Mois+1)... J'ai pourtant regardé sur internet ; lorsque l'on déclare un tableau comme vous l'avez fait jusqu'à présent (Ubound), on désigne une cellule du tableau avec : NomTableau(lig,col) = (x,y). Même lorsque je déclare TRed1 comme un ListObject, l'ordinateur ne comprend pas ... J'avoue que je ne maîtrise pas du tout l'écriture avec Ubound ...Auriez-vous une (dernière) idée s'il vous plaît ?
Encore merci
Il va encore falloir que je te donne une page de lecture sur les Tableaux structurés !
Tu n'as pas besoin de dimensionner TRed1 :
TRed1 est un Range défini dans le Gestionnaire de Noms !
Dans la macro que je t'ai donné précédemment je n'ai pas eu besoin de le Dim n'est-ce pas ?
Donc tu ne le Dim pas et :
Sub placerInfo(RefR As Integer, Année As Integer, Mois As Long, Char As Long)
Dim ArrR1
Dim n As Long
ArrR1 = [TRed1].Value
For n = 1 To UBound(ArrR1, 1)
If ArrR1(n, 1) = Année Then
[TRed1].Cells(n, Mois + 1) = ArrR1(n, Mois + 1) + Char 'On cumule la ArrC à la précédente
End If
Next n
End SubA+
Merci, merci beaucoup, vous êtes génial.
En tout cas,merci beaucoup , vous êtes trop fort