Copier feuille si cellule = "janvier"
Résolu
cannellebe
-
cannellebe -
cannellebe -
Bonjour,
Je demande votre aide, car je dois réaliser un projet pour mes études. Il s'agit d'une application Excel, ou le collaborateur rentre ses heures sur une feuille Excel. La feuille se met à jour automatiquement après la sélection du mois.
J'aimerais ajouter un bouton "valider la saisie" en bas de la feuille. Seulement il faudrait que quand la personne clique dessus, le code VBA prenne en compte que si dans la cellule "mois" il est indiqué "janvier", alors cela copie la feuille et la renomme janvier, si c'était écrit février dans cette cellule, alors le code copie la feuille et la renomme cette fois février, etc...
J'ai renommé une cellule (choix_mois), qui contient le nom du mois qui s'actualise automatiquement.
Mon code est le suivant (qui ne fonctionne pas) :
Merci pour votre aide. =)
Je demande votre aide, car je dois réaliser un projet pour mes études. Il s'agit d'une application Excel, ou le collaborateur rentre ses heures sur une feuille Excel. La feuille se met à jour automatiquement après la sélection du mois.
J'aimerais ajouter un bouton "valider la saisie" en bas de la feuille. Seulement il faudrait que quand la personne clique dessus, le code VBA prenne en compte que si dans la cellule "mois" il est indiqué "janvier", alors cela copie la feuille et la renomme janvier, si c'était écrit février dans cette cellule, alors le code copie la feuille et la renomme cette fois février, etc...
J'ai renommé une cellule (choix_mois), qui contient le nom du mois qui s'actualise automatiquement.
Mon code est le suivant (qui ne fonctionne pas) :
Sub Bouton10_Cliquer()
Dim choix_mois As Worksheet
Set choix_mois = Worksheets("Activite")
Select Case ("choix_mois")
Case Is = "janvier": ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Janvier"
End Select
End Sub
Merci pour votre aide. =)
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
A voir également:
- Copier feuille si cellule = "janvier"
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Bruler feuille de laurier - Guide
2 réponses
Bonjour,
Tu t'es un peu compliqué et tu as mélangé la feuille et la cellule. Comme ceci cela fonctionne pour tous les mois sans test :
Tu t'es un peu compliqué et tu as mélangé la feuille et la cellule. Comme ceci cela fonctionne pour tous les mois sans test :
Sub Bouton10_Cliquer()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("choix_mois").Value
End Sub
Bonjour
peuit être simplement ceci si le nom du mois est en A1
(la feuille se nommera après modification du nom en A1 et touche enter
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Range("A1") Then
ActiveSheet.Name = Range("A1").Value
End If
End Sub
ou alors encore plus simple si vous voulez, un bouton, à coller dans un module:
sub RENAME()
ActiveSheet.Name = Range("A1").Value
End Sub
crdlmnt
peuit être simplement ceci si le nom du mois est en A1
(la feuille se nommera après modification du nom en A1 et touche enter
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Range("A1") Then
ActiveSheet.Name = Range("A1").Value
End If
End Sub
ou alors encore plus simple si vous voulez, un bouton, à coller dans un module:
sub RENAME()
ActiveSheet.Name = Range("A1").Value
End Sub
crdlmnt
