Copier une feuille en dernier changer le nom, vider et copie

Bonjour,

Lorsque l'on a pas les compétences dans un domaine, le mieux est de toujours se tourner vers ceux dont c'est la passion.

Comme vous l'aurez compris j'aurais besoin de votre aide pour solutionner un dossier que je n'arrive pas à finaliser.

1) J'ai une feuille "données" dont je souhaite garder le nom, actuellement ce nom se modifie lorsque je clique sur "Copier la feuille"

2) Lorsque je clique sur "Copier la feuille" je souhaite copier la dernière feuille à droite et la coller à la suite, et ainsi de suite.

3) La nouvelle feuille doit garder le nom "Page" et ajouter 1 au numéro de la page précédente (Page 001, Page 002, Page 003 etc.

4) Dans la nouvelle feuille il faut vider les cellules "A4:AG19"

5) Puis il faut copier les valeurs des cellules "J21:AF21" de la feuille précédente, en "J22:AF22" dans la nouvelle feuille.

6) Il y a des listes déroulantes en colonne B, C , D et F, est-il possible que lorsque l'on clic sur la flèche le curseur se positionne sur le premier choix de la liste.

Mes termes utilisés ne doivent pas du tout correspondre à ceux que vous utilisez et si mes demandes méritent des éclaircissements je suis à votre dispositions.

Merci par avance pour votre aire

Amicalement

Bruno

Bonsoir

Pour le point 6 je ne sais pas

Pour le reste à tester

Bonjour Banzai64,

Merci de ta réponse

Concernant le copier/coller, il faudrait que "J22:AF22" de la page 001 soit collé en "J21" de la page 002 etc.

J'ai un message qui s'affiche lorsque j'ouvre le document, voir pièce jointe

Merci de ton aide

Bruno

Re Bonjour Banzai64,

J'ai oublié de préciser que c'est la valeur qui doit être copiée et non pas la formule ni le format des bordures etc.

Merci

Bonne journée

Bruno

Bonjour

Désolé pour le message je ne sais pas comment le faire disparaitre (cela m'intéresserait aussi - Si quelqu'un connait la solution)

Sinon tu prends ton fichier original (une copie qui ne présente pas le message)

Tu supprimes les boutons ActiveX des pages

Tu copies la macro suivante dans un module de ton fichier réel

Tu changes dans une feuille existante le bouton, en prenant un bouton formulaire

Tu affectes le bouton à la macro

Et tu copies ce bouton partout où il était prévu

Voici le code de la macro corrigée (enfin j'espère)

Sub CreationFeuille()
Dim Num As Integer

  Application.ScreenUpdating = False
  Num = Val(Mid(Sheets(Sheets.Count).Name, 5))
  ActiveSheet.Copy After:=Sheets(Sheets.Count)
  With ActiveSheet
    .Name = "Page " & Format(Num + 1, "000")
    .Range("A4:AG19").ClearContents
    Sheets(.Index - 1).Range("J21:AF21").Copy
    .Range("J22").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    .Range("A1").Select
  End With
End Sub

Merci Banzai64

Ça fonctionne comme je le souhaitais

Excellente Soirée

Au plaisir

bruno

Bonsoir Banzai64

Encore une dernière question

Mon programme ne fonctionne pas sur mon ordi pro qui est en .xlsx

Est-ce qu'il y a une solution ou c'est perdu d'avance

Merci à toi

Bruno

Bonjour

Je viens de tester la version que j'ai chez moi avec XL 2010 et pas de souci, la création des pages se fait sans heurt

Et de même avec le fichier que tu as posté

Désolé je n'en sais pas plus

Merci d'avoir regardé

bonne soirée

Bruno