VBA : copier les valeur à partir d'un critère vers une autre feuille

[kem08]

Bonjour, je sollicite l'aide de la communauté.
Mon problème est simple mais nécessite un peu de VBA que je ne maîtrise pas assez.
Sur la feuille 1 j'ai une colonne de données en B représentant l'évolution d'un phénomène physique au cours du temps, je souhaite repérer le max et copier les datas à partir de ce max (ce qui se passe avant le max ne m'intéresse pas) vers la feuille 2, en C2 par exemple.
J'ai 150 fichiers de ce type et c'est très fastidieux à faire à la main.
Le max d'un fichier à l'autre ne se situe pas au même endroit dans la colonne B
Merci par avance.

 

[job75]

Re : VBA : copier les valeur à partir d'un critère vers une autre feuille

Bonjour kem08, bienvenue sur XLD,

Allez dans VBA et placez cette macro dans un module quelconque :

Sub CopierApresMax()
Dim i&
With Sheets("Feuil1") 'nom à adapter
  i = Application.Match(Application.Max(.[B:B]), .[B:B], 0)
  .Cells(i, 2).Resize(.Rows.Count - i + 1).Copy Sheets("Feuil2").[C2]
End With
End Sub

Puis exécutez-la comme vous voulez (par Alt+F8 par exemple).

A+

 

[kem08]

Re : VBA : copier les valeur à partir d'un critère vers une autre feuille

Merci beaucoup, ça m'a beaucoup dépanné.