Discussion :

[pierrot21]

Bonjour,

Voici le context :

J'ai trois worksheets : data to include, details et result.

1/ En worksheet.data_to_include, j'insère mes donnèes. En B5,C5, E5 et F5 j'ai les intitulés de mes colonnes et j'insère mes données à partir des lignes 6.

2/ En worsheet.details, je calcule des fonctions. Ainsi, en B5, C5, E5, F5, G5, H5 et I5 j'ai les intitulés de mes colonnes et à partir de la ligne 6, des fonctions se calculent dépendamment des données insérées en En worksheet.data_to_include.

3/ En Worksheet.result, j'ai les résultats qui importent. Ainsi, en I5, J5 et K5, j'ai les intitulés de mes colonnes et à partir de la ligne 6, des fonctions se calculent dépendamment des données insérées en En worksheet.data_to_include.

Ce que je voudrais : une macro permettant d'une part que les 'arrays' des fonctions inscrites en worsheet.details et worksheet.result, se modifient automatiquement en fonction du nombre de ligne de données que j'ai insérées en worksheet.data_to_include. D'autre part qui permettrait que la fonction s'étendent également en fonction du nombre de lignes des données que j'ai insérées en worksheet.data_to_include.

Suis-je compéhensible?

Merci pour votre aide

[riaolle]

Bonjour et bienvenue au forum

Pourrais-tu nous donner un exemple de stes tabelaux? Des captures d'écrans.
Ne pourrais-tu pas utiliser un tableau croisé dynamique créé à partir d'un tableau plutôt qu'une macro? Mais vue que tu as mis "macro" en gras et souligné, peut-être est-ce obligatoire
Est-ce que ton problème se résume à savoir combien de lignes il y a dans worksheet.data_to_include? Voici une idée : tu peux déclarer une variable globale row_n


Ensuite tu peux utiliser une macro évènementielle sur la feuille worksheet.data_to_include

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Worksheet_change(ByVal Target As Range)
    row_n = Sheets("worsheet.data_to_include").Range("A6").End(xlDown).Row '***cf.commentaire en dessous
    'puis changer les formules --> utilise l'enregistreur de macro, mais ça ressemblera à qqc comme:
    Sheets("worsheet.details").Range("A6").FormulaR1C1 = "=SUM('worksheet.data_to_include'!RC:R[" & row_n - 6 & "]C"
End Sub

*** Si toutes les cellules en A sont remplies, cela donne la dernière ligne de ton tableau. (si les cellules en A ne sont pas toutes remplies, commence par le bas et utilise End(xlUp) ).