Macro pour copier

[SSIAP2]

Bonjour au forum

je recherche à copier des cellules via une macro sur plusieurs onglet de mon classeur.
sachant que la source de la copie est la feuille F1 je voudrais la copier sur tous les autres feuille commençant par F j'ai fais une macro assisté mais sa me limite au nombre de page que je possède mais les future risque de n'être pas prise en compte comment pourrais je faire merci d'avance de votre aide

 

[laurent999]

Re : Macro pour copier

Bonjour,

je viens d'ouvrir ton fichier.
Peux tu me dire si toutes feuilles commencerons par F ou pas?

Laurent.

 

[Pierrot93]

Re : Macro pour copier

Bonjour,

regarde le code ci-dessous si il peut t'aider :

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "F1" And ws.Name Like "F*" Then
        Sheets("F1").Range("A1").Copy Destination:=ws.Range("A1")
    End If
Next ws

bonne journée
@+

 

[SSIAP2]

Re : Macro pour copier

bonjour pierrot93 et laurent 999 merci pour votre aide pour répondre à la question de laurent999 oui tous les feuille commenceront par F

la solution de pierrot93 en revanche ne fonctionne pas du mois j'arrive pas j'ai aucune erreur ais rien ne se copie

j'ai mis le fichier avec les modif je comprend pas trop merci pour vos lumiere

 

[Pierrot93]

Re : Macro pour copier

Re,
normal l'exemple que je donnais copiais A1 vers A1, et dans ton classeur A1 est vide... toujours préférable de commencer à travailler sur la ligne 1... Quelles cellules veux tu copier ?

 

[laurent999]

Re : Macro pour copier

Re,

J'ai juste modifié le travail de Pierrot.
Comme toutes feuilles commencerons par F, il n'y a pas besoin de spécifié si commence par F.
Ci-joint le fichier modifié.
Ci la plage est plus longue vas dans le VBA feuille 1 et modifies la Plage.
Ici J'ai mis comme plage A5,D27.
c'est la taille de ton tableau

Laurent.

 

[Pierrot93]

Re : Macro pour copier

Re,

modifie ainsi pour que la copie commence à la ligne 6 jusuq'à la dernière ligne de la dernière cellule de la colonne A

Sub test()
Dim ws As Worksheet
With Sheets("F1")
    For Each ws In Worksheets
        If ws.Name <> "F1" And ws.Name Like "F*" Then
            .Range("A6:D" & .Range("A65536").End(xlUp).Row).Copy Destination:=ws.Range("A65536").End(xlUp)(2)
        End If
    Next ws
End With
End Sub

 

[SSIAP2]

Re : Macro pour copier

Re à tous les deux et merci de plancher sur mon problème

le solution de pierrot93 me conviens parfaitement merci egalement à laurent999 ta solution est super sauf si je crée une feuil et je le nome paramètre il me copie également.

donc la solution de pierrot93 fonctionne parfaitement merci à tous les deux à bientot