modifier code

[NACE]

Bonsoir à tous.
En récupérant des bouts de code sur le forum, j'ai crée un classeur qui est presque fini, mais je bute sur un problème.
A chaque fois que j'appelle la feuille RECAP les données que j'écris s'effacent.
Quelqu’un peut m'aider à modifier le code ?
Merci
[file name=F.zip size=28872]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/F.zip[/file]

 

[Luki]

Bonjour Nace,

Quelques explications complémentaires et un passage par la charte ( article 3) ne seraient peut-être pas superflu pour t'apporter de l'aide!

A+

 

[NACE]

Pardon.
Je vais essayer d'entre plus précis.
Mon problème est qu'a chaque fois que j'écris dans la feuille RECAP, les données que j'ai pu écrire s'effacent quant je sors de la feuille

 

[Luki]

Re, Nace,le fil,
Je n'ai pas de données dans les feuilles JOurnalières, week-end etc. normal?

qu'est-ce qui devrait apparaître sur la feuille récap ?

A+


Edition:

Je débranche pour ce soir, affaire à suivre...

Message édité par: luki, à: 22/04/2005 19:31

 

[NACE]

Le taleau des feuilles journalieres n'est pas terminé.
Je veux que sur la feuille RECAP affiche le lien vers la feuille journaliere crée ainsi que les noms qui seront dans les cellules B7:B13 et L7 de la dite feuille.

 

[ChTi160]

Salut'NACE'
bonsoir le fil
je pense que ton problème vient du fait que ta feuille recap et supprimer avant d'être recrée donc ce que tu y ajout qui ne se trouve pas dans la macro et perdu
Sub ListFeuil()

Application.ScreenUpdating = False
Set nSht = Sheets.Add(Before:=Sheets('LISTE'))
On Error GoTo GesErr
DebProc:
nSht.Name = 'Recap''tu crées une nouvelle feuille Recap ce qui te renvoi à GesErr qui supprime la feuille recap qui exite déjà là et le problème
[B1] = 'N° feuille'
With Selection.Font
.Bold = True
.Size = 10
End With
For i = 2 To Sheets.Count
nSht.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:='', SubAddress:=Sheets(i).Name & '!A1', _
TextToDisplay:=Sheets(i).Name
End With
Next i
With Rows('1:1')
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
GesErr:
Application.DisplayAlerts = False
Sheets('Recap').Delete
Application.DisplayAlerts = True
GoTo DebProc
End Sub
je pense qu'il faut que ta feuille' Recap' soit complétée et non pas recrée lors de l'ajout de feuille

Amicalement
Jean Marie

 

[NACE]

C'est exatement cela
Mais je n'y connais rien en VBA je ne fait que du copiage de code

 

[ChTi160]

re
voilà vite fait ta macro modifiée
Sub ListFeuil()
Ici on crée une feuille dernière feuille plus Un à adapter ou à supprimer
'--------------------------------------------------
Set nSht = Sheets.Add(After:=Sheets(Sheets.Count))
nSht.Name = Worksheets.Count + 1
'--------------------------------------------------
ici on reporte les données noms des feuilles et liens
With Sheets('Recap')
.[B1] = 'N° feuille'
With Selection.Font
.Bold = True
.Size = 10
End With
For i = 2 To Sheets.Count
.Cells(i, 1).Value = Sheets(i).Name

ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:='', SubAddress:=Sheets(i).Name & '!A1', _
TextToDisplay:=Sheets(i).Name

Next i
End With
With Rows('1:1')
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub

End Sub
Amicalement
Jean Marie

Message édité par: ChTi160, à: 22/04/2005 20:11

 

[NACE]

Meci pour ton aide, je vais mmettre ça en pratique et encore BRAVO au forum

 

[Luki]

Nace, Jean-Marie,


Je vois que Jean- Marie ( que salue en passant) a pris le relais.. Alors je peux aller me coucher!


Bonne soirée à vous