Renommer onglet

[MASSJIPE]

Bonjour
Je cherche à nommer un onglet à partir de la cellule B2
à chaque fois que je crée une nouvelle feuille
J'ai bien trouver ça
ActiveSheet.Name = Range("B2").Value
comment l'intégrer
Merci
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[gilbert_RGI]

Re : Renommer onglet

bonjour

comme ceci peut-être

 

[Robert]

Re : Renommer onglet

Bonjour Massjipe, Gilbert, bonjour le forum,

essaie comme ça :

Private Sub CommandButton1_Click()
With Sheets("vierge")
If Not IsDate(TextBox1) Then
Exit Sub
End If
  .Range("b2") = CDate(TextBox1)
  .Range("I2") = CDate(TextBox1)
   Sheets("vierge").Range("E2").Value = Me.ComboBox1.Text
   Sheets("vierge").Range("G2").Value = Me.ComboBox2.Text
   Sheets("vierge").Range("L2").Value = Me.ComboBox3.Text
   Sheets("vierge").Range("N2").Value = Me.ComboBox4.Text
   Sheets("vierge").Range("C1").Value = Me.ComboBox5.Text
   Sheets("vierge").Range("J1").Value = Me.ComboBox6.Text
 
    Unload Me
End With
    Sheets("Vierge").Select
    Sheets("Vierge").Copy Before:=Sheets(2)
  [COLOR=red]  ActiveSheet.Name = ActiveSheet.Range("B2").Text[/COLOR]
    Sheets("Vierge").Select
    Range("B2").Select
    Selection.ClearContents
    Range("C1:G1").Select
    Selection.ClearContents
    Range("E2").Select
    Selection.ClearContents
    Range("G2").Select
    Selection.ClearContents
    Range("I2").Select
    Selection.ClearContents
    Range("J1:N1").Select
    Selection.ClearContents
    Range("L2").Select
    Selection.ClearContents
    Range("N2").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

 

[JNP]

Re : Renommer onglet

Bonjour le fil 🙂,
Attention, B2 contient une date... Je propposerais ceci

For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name = Format(Sheets("Vierge").Range("B2"), "dd-mm-yyyy") Then
MsgBox "Feuille existante !"
Exit Sub
End If
Next
Sheets("Vierge").Copy Before:=Sheets(2)
ActiveSheet.Name = Format(Range("B2"), "dd-mm-yyyy")
Range("B2").ClearContents
Range("C1:G1").ClearContents
Range("E2").ClearContents
Range("G2").ClearContents
Range("I2").ClearContents
Range("J1:N1").ClearContents
Range("L2").ClearContents
Range("N2").ClearContents
Range("A1").Select

Bonne journée 😎

 

[MASSJIPE]

Re : Renommer onglet

Bonjour
Merci à vous trois
Bonne journée

 

[MASSJIPE]

Re : Renommer onglet

Bonjour
Une petite question, comment faire pour rester sur le dernier onglet crée
merci bonne matinée

 

[gilbert_RGI]

Re : Renommer onglet

Bonjour

si le dernier onglet se trouve à la dernière position

Sheets(sheets.count).Select

devrait le faire 😱

sinon dans le cas de ton exemple

la feuille créée sur touve en position 2 donc

Sheets(2).Select doit être la solution

 

[MASSJIPE]

Re : Renommer onglet

Bonjour Gilbert,
Sheets(2).Select c'est ok
Par contre je voudrais rajouter dans mon userform un bouton pour modifer une feuille à partir des dates d'onglets.
C'est à dire je recherche la date d'aujourd'hui les combobox dans mon userform me donne les données que je peux modifier
merci

 

[gilbert_RGI]

Re : Renommer onglet

Bonjour Gilbert,
Sheets(2).Select c'est ok
Par contre je voudrais rajouter dans mon userform un bouton pour modifer une feuille à partir des dates d'onglets.
C'est à dire je recherche la date d'aujourd'hui les combobox dans mon userform me donne les données que je peux modifier
merci

je suppose que le nom des feuilles créées sont comme le proposait JNP des dates

 

[MASSJIPE]

Re : Renommer onglet

Oui des dates

 

[gilbert_RGI]

Re : Renommer onglet

je pense qu'il faut faire un récapitulatif des feuilles créées afin de pouvoir choisir la feuille à modifier
ensuite cette selection faite il faut que le code rapatrie les données dans l'user
peut-être deleter la feuille et la recréer une fois les modifications faites ou modifier directement ????

bon courage