Copier et coller des colonnes dans d'autres feuilles

Bonjour,

Je suis complètement débutante en VBA, mais je pense que mon problème doit pouvoir trouver une solution. J'ai un très grand nombre d'onglets (feuilles) et je dois copier deux colonnes de la première feuilles sur toutes les autres feuilles au même endroit. Je pense que cela doit être possible grâce à un "For loop". Le code de ma macro enregistrée pour copier sur une seul feuille est ainsi:

Sub copier_somme()

    Columns("C:D").Select
    Range("D1").Activate
    Selection.Copy
    Sheets("Feuille2").Select
    Columns("C:C").Select
    Range("C34").Activate
    Selection.Insert Shift:=xlToRight
End Sub

Peut-on automatiser la procédure pour qu'elle s'applique à toutes les feuilles du classeur?

Merci beaucoup de votre aide

Bonsoir et bienvenu(e)

A tester

Sub copier_somme()
Dim Ws As Worksheet

  For Each Ws In Sheets
    If Ws.Name <> ActiveSheet.Name Then
      Columns("C:D").Copy
      Ws.Columns("C").Insert
    End If
  Next Ws
  Application.CutCopyMode = False
End Sub

Merci beaucoup pour cette aide précieuse. Il me reste un problème que n'avais pas formulé correctement. Je commence à la feuille 3, car les deux premières contiennent autre chose. Comment faire pour partir de la feuille 3?

Merci

Bonjour

A tester

Macro valable dans tous les cas

Sub copier_somme()
Dim I As Integer

  Application.ScreenUpdating = False
  For I = 3 To Sheets.Count
    If Sheets(I).Name <> ActiveSheet.Name Then
      Columns("C:D").Copy
      Sheets(I).Columns("C").Insert
    End If
  Next I
  Application.CutCopyMode = False
End Sub

Macro valable si les colonnes à copier sont situées dans une page placée avant la 3ème

Sub copier_sommebis()
Dim I As Integer

  Application.ScreenUpdating = False
  For I = 3 To Sheets.Count
    Columns("C:D").Copy
    Sheets(I).Columns("C").Insert
  Next I
  Application.CutCopyMode = False
End Sub

Super, merci beaucoup,

Je suis vraiment novice, mais j'ai essayé d'utiliser ce code simplement pour copier-coller en utilisant "Paste" au lieu de "Insert" et je reçois un message d'erreur me disant que cette fonction n'est pas définie.

Pourtant lorsque j'active l'enregistrement d'une macro, le code affiche "Feuil4".Paste.

Je ne trouve pas le bug.

Il y a-t-il un bon outil de référence pour apprendre à coder? Je n'ai rien trouvé de très explicite.

Bonsoir

swertie85 a écrit :

l y a-t-il un bon outil de référence pour apprendre à coder?

Des centaines pour débuter

Regardes dans ce site tu dois trouver ton bonheur

https://www.excel-pratique.com/fr/vba.php

PS: (Entre autre) C'est en cherchant pourquoi "ça marche pas" que tu vas progresser

Merci, je vais m'y mettre. Oui c'est sur qu'on apprend de ses erreurs, mais parfois après avoir essayé en vain pendant des heures, on a juste envie de se taper la tête contre les murs .