Discussion :

[fred bx]

Bonsoir,

J'ai deux feuilles excel :
- "balance"
- "full cost" celle-ci contient des formules dont les données sont liées à "balance"

Je souhaite copier ces deux feuilles pour entrer une nouvelle saisie (mois suivant).
Dans une première étape, je copie la feuille "balance" pour créer la feuille "balance(nouveau mois)" et effacer les données dans la copie pour permettre une nouvelle saisie.
Dans une seconde étape je copie la feuille "full cost" pour créer la feuille "full cost(nouveau mois)". Le problème est que cette feuille garde la liaison avec la feuille initiale "balance".

Je souhaiterai modifier cette liaison. C.a.d que la feuille "full cost (nouveau mois)" récupère les données de la nouvelle feuille "balance (nouveau mois)" et non pas "balance"

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
 
mois = ComboBox1.Value
 
'copie de la feuille balance
Sheets("balance").Copy after:=Sheets(Sheets.Count)
Sheets("balance (2)").Name = "bal" & " " & mois
Sheets("bal" & " " & mois).Select
Sheets("bal" & " " & mois).TextBox1.Value = mois
 
'copie de la feuille full cost
Sheets("full cost").Copy after:=Sheets(Sheets.Count)
Sheets("full cost (2)").Name = "fc" & " " & mois
Sheets("fc" & " " & mois).Select
Sheets("fc" & " " & mois).TextBox1.Value = mois
 
UserForm1.Hide
 
MsgBox ("Vous pouvez saisir les données de la balance du mois de" & " " & mois), vbInformation, "Tronçais SA"
 
Sheets("bal" & " " & mois).Select
 
End Sub

En espérant être clair dans mon explication.
Merci d'avance de votre aide.

[Pierre Fauconnier]

Bonjour

Je te propose de copier les deux feuilles simultanément, en groupe de travail. Ainsi, Excel adapte automatiquement les formules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Worksheets(Array("balance", "full cost")).Copy after:=Sheets(Sheets.Count)
    With Worksheets("balance (2)")
        .Name = "Bal " & mois
        .TextBox1.Value = mois
    End With
    With Worksheets("full cost (2)")
        .Name = "fc " & mois
        .TextBox1.Value = mois
    End With

Ok?

[fred bx]

Bonjour,

Merci de votre réponse

Votre code fonctionne parfaitement.
Une boite de dialogue me demande si je souhaite changer les noms* que j'ai défini sur certaines plages de cellules de la feuille "balance". Je rentre donc manuellement le nouveau nom. Par exemple, une plage de données se nomme "SD" sur la feuille "balance" que je modifie en "SDfevrier" pour la feuille "balance février". Ainsi, la liaison avec la nouvelle feuille "full cost fevrier" s'effectue correctement.

Cependant est-il possible de modifier directement ces noms de plages de cellule à partir de code ?

*dans excel insertion/nom/définir

Merci

J'ai trouver le code suivant grâce à l'enregistreur de macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Names.Add Name:="balance" & mois, RefersToR1C1:="='balance (2)'!R11C2:R54C9"

Cela me permet seulement de modifier le nom des plages pour la nouvelle copie, mais la liaison avec la feuille "full cost(nouveau mois)" ne se fait pas. C.a.d que la formule contient toujours le nom "balance" et non pas "balance(nouveau mois)".


Pour simplifier je ne fais plus appel au nom des cellules mais aux cellules dans mes formules.