Discussion :

[craac]

Bonjour,

Je n'ai jamais programmé en VBA, mes seules connaissances en programmation sont en PHP.

Or je voudrai créer une macro (declenchée par un bouton) qui :

1/ copie la derniere page (nom de la page sous la forme : Sx)
2/ change le nom de la page en Sx+1
3/ modifie une formule pour aller chercher les valeurs sur la page precedente (Sx-1)

Est ce possible ?
Si oui, comment dois je my prendre ?

En vous remerciant , craac.
(si besoin le fichier est la)

[dkmix]

bonjour

je suis pas trop caler mais avec l enregistreur de macro ( outils/macro/nouvelle macro) tu devrais deja pouvoir avancer un peu

+

[craac]

j'ai bien essayé par ce biais, mais je ne sais pas du tout quelle syntaxe utiliser pour modifier le nom ou la formule à partir d'une variable:/

[fred65200]

bonsoir,

pour les deux premiers points

Code :

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

1
2
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "S" & Sheets.Count - 1

reprend le même principe de sheets(sheets.count-1)

@+

[le petit nicolas]

pour la deuxième question, l'enregistreur aussi peut servir. Quand je selectionne ta plage de codes Personnel et que je fais remplacer ca donne :

Code :

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

1
2
    Selection.Replace What:="'S3'", Replacement:="'S4'", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

tu peux donc faire :

Code :

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

1
2
3
AncienNum = "'S" & Sheets.Count - 3 & "'"
NouveauNum = "'S" & Sheets.Count - 2 & "'"
sheets(Sheets.Count).Range("K11:K18").Replace What:=AncienNum, Replacement:=NouveauNum, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

essaye d'adapter un peu si tu as besoin (je suis parti du principe que tes codes étaient toujours dans la plage K11:K18)

a plus

[craac]

Ok , merci beaucoup pour votre aide !