XL 2016 copy sur plusieurs feuille

litchoutsou

XLDnaute Junior
Supporter XLD
bonjour a tous aurez vous une solution J'ai dans un tableau sur deux colonnes une liste de données (Noms) en feuille 1 exemple de m6: n65
je dois les recopier sur 70 feuilles, souci si je doit modifier certains noms en feuille 1 il faut que je fasse un copier coller sur les 70 feuilles
Y aurait-il un moyen de rectifier la liste en feuille 1, et que la correction ce fasse automatiquement sur les 70 ou 80 autres feuilles;
je ne sais pas si je me suis bien exprimé
Merci à tous de votre aide, je ne sais pas si je me suis bien exprimé
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Litchoutsou, Fanfan,
En Pj un essai avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
' Mettre à jour les feuilles à exclure du genre :
' If f.Name <> "Référence" or f.Name <> "Feuill2" or f.Name <> "Feuil3" Then
    On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("M6:N65")) Is Nothing Then
        tablo = Range("M6:N65")
        For Each f In Worksheets
            If f.Name <> "Référence" Then   ' exclusion de la feuille référence
                Sheets(f.Name).Range("$M$6").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
            End If
        Next f
    End If
Fin:
End Sub
Le tableau est collé sur toutes les feuilles exceptées celles étant dans la liste d'exclusion.
 

Pièces jointes

  • CopiesMultiples.xlsm
    27.5 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
J'ai viré le module Worksheet_Change et mis le mien.
J'ai supposé que la liste n'avait pas à être copiée dans la feuille Orde de sortie, sinon modifiez la macro.
Dans Worksheet_Change il y a une macro Workbook_SheetBeforeDoubleClick avec Sheets("CAMPAGNE").Select, cette sheet n'existe pas.
J'ai invalidé cette macro en la renommant Workbook_SheetBeforeDoubleClickOLD.
 

Pièces jointes

  • Gestion des objets 2.xlsm
    231.5 KB · Affichages: 5

Discussions similaires

Réponses
5
Affichages
144

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 361
Messages
2 087 626
Membres
103 611
dernier inscrit
sebboes