Macro, créer une nouvelle feuille a partir d'une liste

[renobaz]

Bonjour et bonne année.

Ca fait pas mal de temps que je galère, j'avance petit à petit mais là je bloque... voici mon problème:

A partir d'une liste de base, j'ai créer une macro pour créer une nouvelle feuille seulement, je voudrais que ma macro créer une feuille au fur et à mesure de ma liste c'est à dire:

Ma liste de base est dans la feuille "liste élève"
Une fiche de base est dans la feuille "fiche élève".

Je voudrais que ma macro reproduise la "fiche élève" et qu'elle mette à jour le numéro et le nom de l'élève soit A1=2 et B1=Arthur, puis quand je récreer une fiche, A1=3 et B1= robert (sur la nouvelle fiche), puis créer une nouvelle fiche avec A1=4 et B1=Pascal (sur la nouvelle fiche) et ainsi de suite.
L'idéal étant que l'onglet de la nouvelle fiche porte le nom de l'élève... mais bon...

Ma macro marche avec le second de la liste mais pour le troisième ça bug (cà refait toujours arthur et j'ai pas de solution...).

J'espère avoir été suffisamment clair, merci de votre aide.

Renaud

 

[CBernardT]

Re : Macro, créer une nouvelle feuille a partir d'une liste

Bonjour renobaz,


Une création des feuilles d'élèves avec les renseignements.

 

[pierrejean]

Re : Macro, créer une nouvelle feuille a partir d'une liste

bonsoir renobaz

Vois si cela te convient
Le bouton creera dans tous les cas les fiches manqantes

Edit:Salut Bernard 🙂 🙂 (avais pas rafraichi !!)
Re Edit: Sophistiquée ta solution !!

 

[Papou-net]

Re : Macro, créer une nouvelle feuille a partir d'une liste

Bonsoir renobaz, CBernardT,

Bernard et pierrejean m'ont grillé, mais comme je ne veux pas avoir travaillé pour des prunes, je t'envoie ton code corrigé :

Sub crerunefiche()
'
' crerunefiche Macro
'

'
    Sheets("Fiche élève").Select
    Sheets(Worksheets.Count).Copy After:=Sheets(Worksheets.Count)
        Range("A1").Select
    Selection.ClearContents
    Range("C24:C159").Select
    Selection.ClearContents
    With ActiveSheet
         Range("A1").Select
        ActiveCell = ActiveWorkbook.Sheets.Count - 1
        Range("A1").Select
    End With
    
    ActiveWindow.ScrollRow = 22
End Sub

Espérant avoir aidé.

Cordialement, et bonne année.

 

[renobaz]

Re : Macro, créer une nouvelle feuille a partir d'une liste

Bonjour et merci à tous,
toutes les solutions sont impeccables,
j'ai pu essayé de décripter les corrections des macros que vous avez fait.
Celle de Bernard sont super élaborées....J'en suis pas encore la avec Excel...
En tout cas Merci à tous, ça me permet de bien avancer.

Renaud🙂