Créer un nouvel onglet en le renommant avec le N° de recherche

[isa44]

Bonjour ,

J'ai un classeur contenant une multitude de fiches.

J'ai un Userform pour pouvoir les retrouver facilement , mais si la fiche n'existe pas je voudrais pouvoir la créer en copiant la feuille " originale " et en la renommant avec le N° recherché précédemment.

Ci joint un extrait de fichier.

Merci pour votre aide et bon weekend.

 

[pierrejean]

Re : Créer un nouvel onglet en le renommant avec le N° de recherche

Bonjour isa

Vois si cela te convient

 

[isa44]

Re : Créer un nouvel onglet en le renommant avec le N° de recherche

Bonsoir , super.

Pourrait on aussi copier le nom de l'onglet en cellule A16 de la nouvelle feuille créer ?

 

[pierrejean]

Re : Créer un nouvel onglet en le renommant avec le N° de recherche

Re

vois si cela te convient

 

[isa44]

Re : Créer un nouvel onglet en le renommant avec le N° de recherche

Je l'ai modifié comme cela:

  If Est = False Then
    reponse = MsgBox("Pas de trace ! " & "  Voulez vous créer une fiche pour ce N° ?", vbYesNo)
   If reponse = 6 Then
     Sheets.Add.Name = TextBox1.Value
     
     Sheets("Originale").Cells.Copy Destination:=ActiveSheet.Range("A1")
     ActiveSheet.Range("A16") = TextBox1.Value
     ActiveSheet.Visible = False
     ActiveSheet.Move after:=Sheets(Sheets.Count)
    Sheets("Sommaire").Select
   End If

Merci pour votre aide précieuse

 

[pierrejean]

Re : Créer un nouvel onglet en le renommant avec le N° de recherche

Re

Tout à fait exact !!
La copie des cellules de la feuille Originale effacait le nom en A16
Bravo (et ça m'apprendra à tout tester même ce qui parait evident)