Tableau avec le 3 1ere colonne qui se copie sur plusieurs feuilles

Bonjour a tous,

Je suis novice quand il s'agit de développer sur excel et c'est pour cela que je serais ravis de voir votre aide arriver ...

Je voudrais créer un tableau excel sur lequel les 5 premières colonnes de ma feuille 1 seront recopier automatiquement copiées sur les 4 ou 5 feuilles suivantes.

Je voudrais aussi renseigner ma feuille 1 a l'aide d'un Userform.

Je pense que ce n'est pas la mer a boire mais je flanche sur le sujet.

Merci d'avance

Bonjour et bienvenue sur le forum

Tu devrais joindre un fichier et expliquer avec un exemple de ce que tu as et ce que tu veux obtenir.

Bye !

Sub Macro4()

'

' Macro4 Macro

'

'

Columns("A:E").Select

Selection.Copy

Sheets(Array("Feuil2", "Feuil3")).Select

Sheets("Feuil2").Activate

ActiveSheet.Paste

Sheets("Feuil1").Select

End Sub

Bonjour,

Pour la copie, je propose le code :

Sub CopieSurNfeuilles()

Dim N As Byte, i As Byte

Sheets(1).Columns("A:E").Copy
N = Application.InputBox("Nombre de feuilles où coller", Type:=1)
For i = 2 To N +1
        Sheets(i).Cells(1,1).Select
        ActiveSheet.Paste
Next i

End Sub

Bonjour,

Merci pour vos réponses, mais j'ai essayer je n'y arrive pas je doit être trop nul .

Je vous joint mon tableau, le but étant de remplir les premières colonnes avec un userform et que ces colonnes se recopie dans les autres feuilles.

Bien sure s'il arrive que je modifie certaines info, celle-ci se modifie aussi sur les colonnes copiées.

Dernière chose, les colonnes copiées dans les autres feuilles seront protégé a l’écriture (pour que personne ne les modifient.

Merci d'avance pour vos soutient...

Bonjour,

A coller dans un module :

Sub CopieSurNfeuilles()

Dim N As Byte, i As Byte, Plage As Range, Max As Long

Max = Sheets("Vente").UsedRange.Rows.Count
Set Plage = Sheets("Vente").Range("A1:E" & Max)
N = Application.InputBox("Nombre de feuilles où coller", Type:=1)
For i = 2 To N + 1
        Sheets(i).Range("A1:E" & Max).Value = Plage.Value
Next i

End Sub

Merci beaucoup Pedro22,

Mais est-ce qu'il est possible de coller automatiquement sans que la boite de dialogue me demande le nombre de feuille a coller?

Quand je parlais d'un userforme c’était pour remplie mon tableau dans la feuille "Vente".

Merci d'avance.

Retire les instructions avec "N" et dans la boucle "For i = 2 To N +1" remplace "N" directement par ton nombre de feuilles où coller.

Merci pedro22 mais je n'y arrive pas

Aidez moi SVP c'est important pour moi ...

Merci d'avance.

Je ne vois pas vraiment où est le piège ? Tu pourrais au moins coller ce que tu as écris, que je puisse te montrer où se situe le problème...

Sub CopieSurNfeuilles()

Dim i As Byte, Plage As Range, Max As Long

Max = Sheets("Vente").UsedRange.Rows.Count
Set Plage = Sheets("Vente").Range("A1:E" & Max)
For i = 2 To 6 'Duplique sur la feuille 2 à 6
        Sheets(i).Range("A1:E" & Max).Value = Plage.Value
Next i

End Sub

J'ai recopier les code, mais cela ne se fait pas automatiquement.

Je suis obligé d'aller dans visual basic et faire RUN autrement ça ne marche pas.

Merci encore pour ton soutien.

Je te joint le fichier

...Sauf erreur de ma part, il a jamais été question que ce soit automatique ! Et perso je ne suis pas féru des macros qui tournent toutes seules.

Sans toucher au code actuel, tu peux déjà ajouter un bouton pour la lancer depuis la feuille 1.

Ah OK merci quand même Pedro22, peut-être que quel'un d'autre pourra m'aider?

SVP, merci d'avance.