XL 2010 Transfert d'une plage de données sur une autre feuille avec conditions

[Louiseleclerc]

Allo,

Je voudrais vérifier quelle est le mois de la cellule (A1) de la feuille "synthèse"
et allez choisir la colonne de la feuille "2018-2019" qui correspond à ce mois
et la recopier dans la feuille "synthèse$ dans la cellule (E11) sous l'année 2018-2019 mais seulement les valeurs.

Pour couronner le tout, j'aimerais le faire à l'aide d'un bouton
Importer ou exporter les données

GRRR je ne trouve pas aidez-moi SVP

MERCI et bon week end

 

[sylvanu]

Bonjour Louise,
Avec une petite macro :

Sub Complete()
IndexM = Application.Match([A1], Sheets("2018-2019").Range("2:2"), 0)
Cells(10, 5) = Round(Sheets("2018-2019").Cells(3, IndexM), 0) & " $"
End Sub

A mon humble avis, une petite fonction perso faisait le même travail et évitait un bouton.

 

[Louiseleclerc]

Wow, merci je suis vraiment débutante. Comme je veux que ce soit la colonne au complet qui se copie sans effacer celle qui ont des valeurs (formules) dans le tableau synthèse. J'essaie mais je tourne en rond comment identifier de copier la ligne de 3 à 27 et indexm. Je copote. merci de ton aide

 

[sylvanu]

Bonsoir,
Là je copie toutes les cellules et les reddistribue;
par contre il faut mettre des formules là où il y a des %.

Sub Complete()
IndexM = Application.Match([A1], Sheets("2018-2019").Range("2:2"), 0)
' Dest est la liste des cellules où il faut copier
Dest = Array(10, 12, 14, 16, 21, 24, 26, 27, 29, 32, 34, 36)
' Sourec est la liste des cellules qu'il faut copier
Source = Array(3, 4, 6, 8, 13, 16, 18, 19, 21, 23, 25, 27)
For i = 0 To UBound(Dest)
    Cells(Dest(i), 5) = Sheets("2018-2019").Cells(Source(i), IndexM)
Next i
End Sub

 

[Louiseleclerc]

Un gros merci ! Comme ça l'air facile