Copier des valeurs d'une feuille à une feuille

Question

Bonsoir à l'équipe,

J'espère que vous vous portez bien, je reviens vers vous pour m'apporter une solution concernant mon fichier ci-joint. Déroulement de mes enregistrements, je commence par enregistrer des données dans l'onglet BAE soit, date dans cellule rouge qui est renvoyé en cellule C12 (ainsi que les valeurs suivantes, cellule couleur verte) , rien de bien compliqué jusqu'ici. Le bouton Copy BAE me permet de créer une nouvelle feuille soit BAE (2), le bouton Copy relevé me permet de copier coller les valeurs des cellules couleur verte vers cellules couleur jaune. Là où ça se corse et quand j'ai fini d'enregistrer mes valeurs, étant sur la feuille BAE (2) et que clic sur mon bouton Copy BAE les valeurs dans la feuille BAE (3) dans les cellules verte et jaune correspondent à celles du BAE. Résultat les enregistrements de feuille en feuille corresponde toujours à la feuille de départ BAE.

De plus j'aimerais partir d'une feuille avec l'onglet renommer BAE 1, BAE 2, BAE 3.... et ainsi de suite.

Dans l’attente, merci de toute l’aide que vous pourrez m’apporter.

Bonne soirée à l'équipe, et prenez soin de vous.

Riko

14bae-test-web.xlsm (50.56 Ko)

Xmenpl · Accepted Answer

Bonjour, c'est normal si vous écrivez en dur le nom de la feuille. "BAE" vous devez utilisez le nom de la feuille active

comme variable avant que la macro ne commence sinon excel ne retrouve plus la feuille.

Sub CopyBordereauAnalyseDesEaux()
'
' CopyBaeMacro
'
Dim nomfeuille As String
nomfeuille = ActiveSheet.Name

    If Range("J1") = "" Then Range("J1") = Range("N1")
    Sheets(nomfeuille).Copy After:=Sheets(1)
    ActiveSheet.Range("J1") = Sheets(nomfeuille).Range("J1") + 1
    Sheets(nomfeuille).Range("J1") = Sheets(nomfeuille).Range("J1") + 1

End Sub