une entrée créer une page

[thibaut]

bonjour a tous
je suis face a un probleme qui pour moi semble totalement epineux mais qui pour certain semblera (je l'espere plutot simple)
je vous explique mon petit pb
j'aimerais au moment ou j'entre un nom et un numero (donc deux cellule séparés) sur une page que cela me créer automatiquement une nouvelle feuille avec le nom et le numero (entrer dans les cellules)en guise de titre d'onglet de plus j'aimerais que la feuille créer soit un model et que deux case se remplisse automatiquementa la création de celle-ci

j'espere avoir été un peu précis dans ma description

si vous pensez que c'est faisable je veux bien deux ou trois pistes

merci pour votre aide passé et future

thibaut

 

[thibaut]

arggg personne ne peu donc me repondre cela me semble donc super hard a faire et je me suis donc lancer dans une aventure un peu complexe

 

[Eric_C]

Bonjour le forum
Bonjour thibaut

Un début de piste à développer avec par exemple un test pour vérifier la saisie nominale en A1 et un pour la saisie numérique en B1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
If Range("b1") <> "" Then
ThisWorkbook.Worksheets.Add
ActiveSheet.Name = Range("A1") & Range("B1")
End If
End If
End Sub

@ + Eric C

 

[thibaut]

bonjour eric
ha oui donc là on est direct dans la prog de macro c'est ça ???
donc il va me falloir un peu de temps car je ne connais pas du tout
deja si tu peu me dire comment je dois entrer les infos (houuu j'ai un peu honte kan meme)

merci

 

[thibaut]

bon alors j'ai trouver en fait
il s'uffit d'ouvrire l'editeur vba et de coller le code ??
le resultat donne que les deux infos se mettent bien sur l'onglet de la feuille active et que les infos sont reporter sur la feuille deux
donc "well done"
maintenat il faudrais que les deux infos créer un feuille avec comme nom les deux infos

merci

 

[thibaut]

bonjour a tous
j'ai mis un fichier en pj pour que mon exemple soit plus parlant
j'essaye donc que au moment ou je rentre un numero ainsi que un nom une nouvelle feuille (qui est en fait un model) se créer automatiquement et prenne comme nom de feuille les infos inscrites dans les cellule qui vienne d'etre rempli et ainsi de suite
j'ai fait une macro pour essayer de réaliser le truc mais c'est pas le top du top surtout que cela ne fonctionne que pour les A2 et B2

' AjoutFeuilleApresInsertion Macro
' Macro enregistrée le 14/01/2005 par tzimmermann
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Thibaut"
Range("C2").Select
Workbooks.Open Filename:= _
"C:\Documents and Settings\tzimmermann\Bureau\VISIO\MODEL.xls"
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = -8.75
.Left = 240.25
End With
Windows("EXEMPLE.xls").Activate
With ActiveWindow
.Top = 48.25
.Left = -20.75
End With
Windows("MODEL.xls").Activate
Windows("EXEMPLE.xls").Activate
With ActiveWindow
.Top = 328.75
.Left = -20.75
End With
With ActiveWindow
.Width = 615
.Height = 121.5
End With
With ActiveWindow
.Top = 124
.Left = 32.5
End With
Windows("MODEL.xls").Activate
Sheets("Feuil1").Select
Sheets("Feuil1").Move After:=Workbooks("EXEMPLE.xls").Sheets(1)
Sheets("Feuil1").Select
Range("A2:B2").Select
Selection.Copy
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Name = "1 Thibaut"
Sheets("Feuil1").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1 Thibaut").Select
Range("D2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1 Thibaut").Select
Range("D3").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D4").Select
Windows("MODEL.xls").Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
ActiveWorkbook.Save
End Sub

comme vous pouvez le voir c'est un peu le bordel

voilou si une bonne ame peu m'aider a me dépatouiller

merci
thibaut