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

isa44

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Classeur1.xls
    63 KB · Affichages: 59
  • Classeur1.xls
    63 KB · Affichages: 63
  • Classeur1.xls
    63 KB · Affichages: 57

pierrejean

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

Bonjour isa

Vois si cela te convient
 

Pièces jointes

  • isa44_Classeur11.xls
    61 KB · Affichages: 57
  • isa44_Classeur11.xls
    61 KB · Affichages: 54
  • isa44_Classeur11.xls
    61 KB · Affichages: 55

isa44

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

Je l'ai modifié comme cela:

Code:
  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
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
421

Statistiques des forums

Discussions
312 884
Messages
2 093 245
Membres
105 658
dernier inscrit
Mario Richard