Bonjour au forum,
J'ai besoin d'aide pour finaliser une macro de copier coller
Je copie colle 3 plages de données sur une seule feuille
Je n'arrive pas à interdire à Excel de prendre des données sur des onglets qui commecent par la lettre O
Dans un 2 ieme temps je souhaiterais rajouter une donnée dans chaque tableau copié au bout à partir de la cellule D25de chaque feuille
Voici le code :
Sub FamilleF()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name <> "RAF" And WS.Name <> "RAS" And WS.Name <> "Babou" Then
'If Left(WS.Name, 1) = 'O';
'Comment faire pour intégrer une autre condition afin que toutes les feuilles
'qui commencent par O ne soient pas pris en compte dans le copier coller ???
With WS
.Range("B31:M38").Copy Sheets("Recap").Cells(Rows.Count, 2).End(3)(2)
End With
End If
Next WS
End Sub
J'ai mis un fichier un PJ
Merci de votre aide
BlouBlou
J'ai besoin d'aide pour finaliser une macro de copier coller
Je copie colle 3 plages de données sur une seule feuille
Je n'arrive pas à interdire à Excel de prendre des données sur des onglets qui commecent par la lettre O
Dans un 2 ieme temps je souhaiterais rajouter une donnée dans chaque tableau copié au bout à partir de la cellule D25de chaque feuille
Voici le code :
Sub FamilleF()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name <> "RAF" And WS.Name <> "RAS" And WS.Name <> "Babou" Then
'If Left(WS.Name, 1) = 'O';
'Comment faire pour intégrer une autre condition afin que toutes les feuilles
'qui commencent par O ne soient pas pris en compte dans le copier coller ???
With WS
.Range("B31:M38").Copy Sheets("Recap").Cells(Rows.Count, 2).End(3)(2)
End With
End If
Next WS
End Sub
J'ai mis un fichier un PJ
Merci de votre aide
BlouBlou