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

pierrejean

XLDnaute Barbatruc

• 3 Février 2013

• #2

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

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 3 Février 2013

• #3

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 ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Février 2013

• #4

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

Re

vois si cela te convient

 

Pièces jointes

• isa44_Classeur11.xls

  61.5 KB · Affichages: 46
• isa44_Classeur11.xls

  61.5 KB · Affichages: 49
• isa44_Classeur11.xls

  61.5 KB · Affichages: 52

Vote positif 0 Vote négatif

I

isa44

XLDnaute Occasionnel

• 3 Février 2013

• #5

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: 3 Février 2013

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2013

• #6

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)

 

Vote positif 0 Vote négatif