Transférer données d'un onglet à l'autre avec macro

bonjour,

J'aurais besoin d'aide concernant une macro sur EXCEL.

J'ai 2 onglets : l'un tableau de bord et l'autre indicateur pour me permettre une analyse que je voudrais automatiser.

Pour le moment j'ai réussi à : (fichier joint) en indiquant l'indicatuer et le mois que je souhaite analyser, les données sont bien recopiées dans le fichier du plan d'actions.

Mon souci est que la macro que j'ai pu créer ne recopier que les données sur la 1ère ligne et ne passe pas à la suivante afin de ne pas écraser mes informations d'une analyse à l'autre.

Quelqu'un peut-il m'aider ? Merci d'avance

Bonjour,

Aucune macro sur le fichier c'est normal ?

Vous souhaitez importer les données de Indicateurs à TB, c'est bien ça ?

Car selon ce que vous souhaitez même pas besoin de VBA

Bonjour,

En fait, en fonction des résultat qui peuvent être alimenté dans le tableau de bord, je souhaiterais rapporter le nom de l'indicateur et le mois à étudier.

Pour le moment, dans le haut de mon tableau on peut donc sélectionner l'indicateur et le mois concerné. et en appuyant sur analyse, les infos sont reportées dans l'onglet indicateur. Sauf que mon code VBA n'est pas correct, car à chaque nouvelle demande d'analyse, il m'inscrit les renseignements en ligne 8, donc écrase les infos précédemment analysées.

En espérant avoir été plus claire et obtenir un peu d'aide.

Bonne journée

Merci de me communiquer le fichier "Outil de perd nouvelle version test.xlsm", c'est dans ce fichier que ce trouve votre macro.

Merci

Ci joint le fichier.

Merci

Et voila normalement ça devrais le faire

Merci, mais ca ne répond pas à mon attente.

Lorsque j'exécute la macro, j'ai juste 2 zéros qui s'affichent en ligne 55 !!

Re,

C'est normal, vu que les valeurs B4 et B5 (menu déroulant)de l'onglet TB sont vide.

J'avais sélectionné des données du menu déroulant avant.

Mais merci quand même

Bonjour,

A oui pardon,

le code simplifié est le suivant:

Sub analyse()

Dim nb_ligne As Integer
'
' analyse Macro
'
    nb_ligne = Sheets("Indicateurs").Range("A65536").End(xlUp).Row + 1

    Sheets("Indicateurs").Cells(nb_ligne, 1) = Sheets("TB").Range("B4")
    Sheets("Indicateurs").Cells(nb_ligne, 3) = Sheets("TB").Range("B5")

    Range("B4:F5").ClearContents

    Range("A9").Select

End Sub

Super !!

Merci beaucoup, c'est absolument ça que je voulais.

Bonne fin de journée