Copier une plage de cellules vers autre feuille sous condition

[chindou]

Bonjour,

*Je veux reporter dans la feuille Recap, toutes les feuilles qui ont la cellule S5 = 4
*faire copier de ces feuilles seulement les plages suivantes : C201: d238 et la faire coller dans Recap à partir de C15 et la plage F201 :M238 et la faire coller dans Recap à partir de E15 et ainsi de suite

J’ai utilisé une macro mais je n’ai pas réussi à le faire bien adapter

Voilà mon fichier un peu modifié (j'ai traduit les mots clés dans la page 4 de la feuille 1)

Ce lien n'existe plus

Merci d'avance à ceux qui prendront le temps de me répondre !
Cordialement

 

[Yaloo]

Re : Copier une plage de cellules vers autre feuille sous condition

Bonjour chindou,

Peut-être avec cette macro, mais difficile de tester à cause du mot de passe sur ta page Récap :

Option Explicit

Sub Récap()
Dim s As Worksheet, l&
l = 15
For Each s In Worksheets
  If s.[S5] = 4 And IsNumeric(s.Name) Then
    s.[C201:D238].Copy Sheets("Récap").Cells(l, 3)
    s.[F201:M238].Copy Sheets("Récap").Cells(l, 5)
    l = l + 38
  End If
Next
End Sub

A te relire

Martial

 

[chindou]

Re : Copier une plage de cellules vers autre feuille sous condition

Bonsoir,
Impeccable, Merci bien Yaloo et bon soirée

 

[chindou]

Re : Copier une plage de cellules vers autre feuille sous condition

Bonjour chindou,

Peut-être avec cette macro, mais difficile de tester à cause du mot de passe sur ta page Récap :

Option Explicit

Sub Récap()
Dim s As Worksheet, l&
l = 15
For Each s In Worksheets
  If s.[S5] = 4 And IsNumeric(s.Name) Then
    s.[C201:D238].Copy Sheets("Récap").Cells(l, 3)
    s.[F201:M238].Copy Sheets("Récap").Cells(l, 5)
    l = l + 38
  End If
Next
End Sub

A te relire

Martial

Bonsoir,
Impeccable, Merci bien Yaloo et bon soirée