Discussion :

[chantaltreize]

Bonjour
je suis à la recherche d'une macro qui me copie une cellule pour renommer la même page
J'ai fait ceci mais ça plante

Code :

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

1
2
3
4
5
ActiveCell.Offset(0, 1).Range("A1:E1").Select
    Selection.Copy
    Sheets("15-02-17    ").Select
    Sheets("15-02-17    ").Name = "20-02-15    "
    ActiveCell.Offset(-1, 6).Range("A1").Select

Merci d'avance
Chantal

[Philippe Tulliez]

Bonjour,

J'ai fait ceci mais ça plante

Cela ne veut rien "ça plante"
A quelle ligne et quel message reçois-tu ?
Si tu lis bien ce message tu auras déjà 80% de ta réponse

[chantaltreize]

Code :

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

1
2
3
4
5
ActiveCell.Offset(0, 1).Range("A1:E1").Select
    Selection.Copy
    Sheets("15-02-17    ").Select 
    Sheets("15-02-17    ").Name = "20-02-15    "
    ActiveCell.Offset(-1, 6).Range("A1").Select

C'est la troisième ligne
ils me disent erreur d'execution '9'
l'indice n'appartient pas à la selection

[jerome.vaussenat]

Salut,

Comme Philippe ...

Quand tu as le massage, tu cliques sur débbeugage. Cela te met en jaune la ligne qui pose problème. Pour pouvoir par la suite re faire des essais, il faut "Réinitialiser" avec un bouton de l'editeur VBA qui est un carré bleu dans la barre d'outils.

Une ou deux pistes.
Il y a des espaces à la fin des " ". Les noms sont ils correctement orthographiés.

Tu renommes une feuille. Sauf que si une feuille portant ce nom existe déjà, bin Excel il ne va pas aimer ...

[Philippe Tulliez]

Bonjour,
Et bien cela signifie que tu n'as pas de feuille nommée "15-02-17 " peut-être le caractère espacé qui est de trop ?

[jerome.vaussenat]

Re,

Donc essaie

Code :

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

Sheets("15-02-17").Select

Pour être sûre, tu peux faire un copier coller du nom de la feuille ...

[Philippe Tulliez]

Bonjour,
Il ne sert à rien de sélectionner la feuille pour la renommer

[Menhir]

Code :

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

1
2
3
4
5
ActiveCell.Offset(0, 1).Range("A1:E1").Select
    Selection.Copy
    Sheets("15-02-17    ").Select 
    Sheets("15-02-17    ").Name = "20-02-15    "
    ActiveCell.Offset(-1, 6).Range("A1").Select

Peux-tu expliquer ce que tu essayes de faire dans ta première et dernière lignes de ce code ?

Une fois que ta demande sera claire et précise, je pense qu'il sera possible de faire tout ça en une seule ligne.

[chantaltreize]

Bonjour
Je désire mette la date du jour dans une cellule et que cette date vienne se copier coller sur l'onglet de la feuille pour la renommer puisque au départ elle se nomme Feuil1
Par avance merci
Chantal

[Menhir]

En supposant que tu souhaites mettre la date du jour en A1 et que tu ne veuilles pas que cette date change chaque jour.

Code :

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

1
2
3
Range("A1").Value = Now()
Range("A1").NumberFormat = "dd/mm/yy"
ActiveSheet.Name = Format(Now(), "dd-mm-yy")

https://msdn.microsoft.com/fr-fr/lib.../gg251755.aspx

La seconde ligne est uniquement pour passer la date au bon format (à l'affichage) mais n'est pas indispensable.

[chantaltreize]

Ça fonctionne très bien mais c'est dans l'autre sens qu'il faut que ça fonctionne
De la cellule vers l'onglet de bas de page car les personnes qui vont se servir du dossier ne connaissent pas excel ils ne font que de la saisie
Merci quand même
Chantal

[Philippe Tulliez]

Bonjour,
Peu importe le sens, la syntaxe est ObjetFeuille.Name = "Le nom"
Un objet a un toujours un objet parent.
Pour la feuille, c'est le classeur donc Classeur.Feuille.Name = "Le nouveau Nom"

[Menhir]

Ça fonctionne très bien mais c'est dans l'autre sens qu'il faut que ça fonctionne

Comme dit la formule : Garbage In, Garbage Out.
Si tu ne poses pas la bonne question, tu ne peux pas avoir la bonne réponse.

Tu as dis que tu voulais mettre la date du jour dans une cellule puis utiliser cette valeur pour renommer la feuille et c'est exactement ce que fait ce code.

Si tu ne dis pas où se trouve l'information voulue ni sous quelle forme elle se trouve, il est impossible de te répondre.

Donc, commence par poser clairement et en détail ta question, ça représentera 90% de la réponse.

[Philippe Tulliez]

Bonjour Menhir,

Donc, commence par poser clairement et en détail ta question, ça représentera 90% de la réponse.

[chantaltreize]

On doit saisir un date dans une cellule (AM2)
Puis la date doit se recopier pour nommer l'onglet de cette même feuille
Merci d'avance

[Philippe Tulliez]

Bonjour,
Procédure à copier dans le module de la feuille de la cellule AM2

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$AM$2" Then
  On Error Resume Next
  Me.Name = Format(Target.Value, "dd-mm-yy")
  On Error GoTo 0
 End If
End Sub

L'interception d'erreur est placée pour éviter de donner le même nom à la feuille.

[Menhir]

Je suis d'accord avec Philippe ( ) à un détail près.
Le problème en utilisant Worksheet_Change, c'est que ça ne marchera que si la macro est déjà dans la feuille, donc que cette feuille est la copie d'une autre feuille contenant la macro.

Si la feuille est crée par le simple ajout d'un onglet vierge, il vaudrait mieux passer par un évènement de Workbook.

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Worksheet, ByVal Target As Range) 
   If Left(Sh.Name, 5) <> "Feuil" Then Exit Sub
   If Target.Address <> "$AM$2" Then Exit Sub
   On Error Resume Next
   Sh.Name = Format(Target.Value, "dd-mm-yy")
   On Error GoTo 0
End Sub