Copier automatiquement des cellules

Bonjour,

Je suis débutant sur excel

je veut copier automatiquement les cellules de la plage A8:C20

sur tous les autres feuilles sur la meme plage

Je souhaite aussi une possibilité avec un macro intégrer sur boutan

Merci

Salut dreamsodfa ,

voici une macro qui copie juste les valeurs de la plage A8:C20 de la feuille data dans toutes les autres feuilles.

Sub CopierPlage()
Dim i as Integer
For i = 2 to ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Range("A8:C20").Value = ThisWorkbook.Worksheets("data").Range("A8:C20").Value
Next i
End Sub

Sinon voir fichier

Bonne nuit

Re bonjour

J'ai envoyé le mauvais fichier

merci

Bonjour toutes et tous

merci à M3ellem1 qui a effectué ce code

• code dans le le Module1 du classeur
• rectification de la plage suite au changement de classeur

crdlt,

André

Bonjour toutes et tous

Merci à M3ellem1 & a Andre13

Je demande une rectification sur le macro

• Copier avec la mise en forme.
• Spécifier les pages sur les quelle je v'ai copier.

UN +

*** Possible TRANSFÉRER automatiquement les cellules de la plage ???

MERCI INFINIMENT

Bonjour toutes et tous

Merci à M3ellem1 & a Andre13

Je demande une rectification sur le macro

• Copier avec la mise en forme.
• Spécifier les pages sur les quelle je v'ai copier.

UN +

*** Possible TRANSFÉRER automatiquement les cellules de la plage ???

MERCI INFINIMENT

Re,

pour copier avec la mise en forme

Option Explicit
'---- par m3ellem1
'--------- https://forum.excel-pratique.com/viewtopic.php?f=2&t=131706
Sub CopierPlage()

''' declaration de la variable
Dim i As Integer

On Error Resume Next
For i = 2 To ThisWorkbook.Worksheets.Count

ThisWorkbook.Worksheets("data").Range("A7:C20").Copy
ThisWorkbook.Worksheets(i).Range("A7:C20").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
      , SkipBlanks:=False, Transpose:=False

Next i
End Sub

Note: pour le choix des onglets je l'ai vu sur ce forum mais je n'arrive pas à mettre la main dessus

un aperçu avec un userform 1, une listbox1 multi-choix

après me rappelle plus

crdlt,

André

Rebonjour

Merci Andre13

Je veut Spécifier les feuilles sur les quelle je v'ai copier directement sur le macro sur le bouton transfert .

Merci

re,

j'ai essayé un petit bug au choix sélectionné ci-joint v.6

Note: code à revoir

Fonctionnement: on clic sur le bouton USF de l'onglet data

crdlt,

André

re,

Sub CopierPlage()
Dim i As Integer

' Possible de Spécifier ici les feuilles sur les quelle je v'ai copier.

For i = 2 To ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Range("A7:C20").Value = ThisWorkbook.Worksheets("data").Range("A7:C20").Value
Next i
End Sub

merci

Re,

c'est par le choix de la listbox1 case à cocher une fois le(s) sélection(s) effectuée(s), la/les copie(s) s'effectue(nt) sur le(s) onglet(s)

==>le bug actuel et que, je ne trouve pas la sélection correcte de la listbox1 sur le code et qu'elle puisse bien se répercuter sur les bonnes feuilles du classeur

crdlt,

André