Macro de copie de cellule automatique

[ghorghorbey1er]

Bonjour,
Voici ma question.
Dans mon fichier excel j'importe automatiques des données dans mes colonnes 1 et 2 provenant d'un autre fichier et à chaque fois que j'effectue la mise à jour de nouvelles lignes se rajoutent dans mes colonnes 1 et 2.
J'aimerai que les formules se trouvant dans les cellules A3, A4, A5 etc. via une macro se copie automatiquement sur les nouvelles lignes créées.
Je joins un petit fichier pour éclairer ma demande si ça peut aider lol.

 

[tototiti2008]

Re : Macro de copie de cellule automatique

Bonjour,

un essai (s'applique sur chaque feuille)

Sub RecopieFormules()
    Dim Ligne As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ligne = Ws.Range("A1").CurrentRegion.Rows.Count
        Ws.Range("C1:H1").AutoFill Destination:=Ws.Range("C1:H" & Ligne), Type:=xlFillDefault
    Next Ws
End Sub

 

[ghorghorbey1er]

Re : Macro de copie de cellule automatique

Bonjour,
En fait il ne faut pas tenir compte du fichier attaché il peut prêter à confusion sur ce que je souhaite réellement mettre en place.
Je vais essayer d'être plus claire dans mes explications.
Voilà, les données présentent dans les colonnes 1 et 2 se mettent à jours via une importation d'un autre fichier.
Le jour J par exemple il peut y avoir 200 lignes et après mise à jour le jour J+1, il peut y avoir 240 lignes ou même ne rester que 180 lignes. Et j'aimerai que les formules présentes dans les colonnes 3, 4 et 5 sur la ligne 1 se répercutent ou copient auto matiquement sur les lignes suivantes jusqu'à la fin des données présentent dans les colonnes 1 et 2 sans jamais dépasser le nombre de lignes consernées.
Merci d'avance pour tout ceux qui pourront m'aider dans cette démarche de recherche de macro.

 

[tototiti2008]

Re : Macro de copie de cellule automatique

Bonjour,

A tester

Sub RecopieFormules()
    Dim Ligne As Long, Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ligne = Ws.Range("A1").CurrentRegion.Rows.Count
        Ws.range("C2:H" & Ligne).clearcontents
        Ligne = Ws.Range("A1").CurrentRegion.Rows.Count
        Ws.Range("C1:H1").AutoFill Destination:=Ws.Range("C1:H" & Ligne), Type:=xlFillDefault
    Next Ws
End Sub

 

[ghorghorbey1er]

Re : Macro de copie de cellule automatique

ça fonctionne, mais il se produit une erreur :
'1004' La méthode Autofill de la Classe Range a échoué.
Que ce passe-t-il?
Bon et je voudrais que cette sympathique macro ne s'applique qu'à une feuille en locurance la 'feuil2'.
Merci d'avance

 

[ghorghorbey1er]

Re : Macro de copie de cellule automatique

Personne ne veut me répondre snif🙁

 

[ghorghorbey1er]

Re : Macro de copie de cellule automatique

Bon en fait après un peu de réflexion et d'adaptation de ma part, ta macro fonctionne super bien.
Donc mille et un merci encore pour ta collaboration tototiti2008.

 

[tototiti2008]

Re : Macro de copie de cellule automatique

Bonjour,

De rien, mais si tu n'as pas de réponse, c'est sans doute que ta question n'est pas assez précise
Tu fournis un fichier, puis tu explique qu'il ne faut pas se baser dessus pour ta vraie problématique, puis tu dis qu'il renvoie un message d'erreur
Sans le vrai fichier, difficile de répondre
Tu as réussi à limiter à la feuille que tu veux ?

 

[ghorghorbey1er]

Re : Macro de copie de cellule automatique

Merci tout marche bien, j'ai simplement réfléchi et adapté.
Merci encore pour ton aide