Copie d'une feuille en fonction d'un bouton

Bonjour A tous et a toutes

Nouveaux sur le forum et plus que novice sur VBA, je vient chercher de l'aide après plusieurs jours de recherche

J'ai 4 feuille , Langue , Francais , Deutsch et English

La première ( Langue ) envoi sur la langue choisi après sélection sur le bouton Activ X

Ce que j'aimerais c'est que lors que l'on a fini de remplir la feuille français on clique sur un bouton et ça copie pour continuer a remplir ci besoin

Actuellement j'ai ce code mais ca me crée un copie de toute les langue

j’espère avoir été le plus clair possible et merci de votre aide

Private Sub CommandButton3_Click()

With ActiveWorkbook.Sheets

.Copy After:=Worksheets(Worksheets.Count)

End With

ActiveSheet,Name = "Vanne" & Worksheet,.Count

End Sub

Bonjour Adrien, le forum,

Un fichier exemple svp

Bien cordialement,

Bonsoir

Avec ceci :

Private Sub CommandButton3_Click()

 With ActiveWorkbook.Sheets
 .Copy After:=Worksheets(Worksheets.Count)
 End With
 ActiveSheet,Name = "Vanne" & Worksheet,.Count

 End Sub

Il est normal que toutes les feuilles soient copiées !

En effet With ActiveWorkbook.Sheets va prendre la collection des feuilles du classeur actif

Pourquoi collection des feuilles ? car il y a un "s" à la fin de Sheet "S" donc toutes les feuille.

Si le bouton de copie est sur la feuille de langue "actuellement utilisée" il suffit de modifier comme ceci :

Private Sub CommandButton3_Click()
 With ActiveSheet
 .Copy After:=Worksheets(Worksheets.Count)
 End With
 ActiveSheet,Name = "Vanne" & Worksheet,.Count
 End Sub

Enfin si j'ai bien compris.

@ bientôt

LouReeD

Bonjour

Merci a vous , et LouReeD j'ai utilisé la quasi totalité de ton code parfait tout fonctionne !!!

les début sur VBA sont compliqué

merci encore pour vos réponses

Bonjour,

Pour la suite du VBA vous savez déjà où venir et c'est une bonne chose.

@ bientôt

LouReeD