Copier une feuille donnée d'une même personne dans son onglet

[thespeedy20]

Bonjour le forum,

J'ai une carte de vacance, elle nominative, je parviens à la copier dans un onglet....et j'aimerais pouvoir y mettre toutes les feuilles de congés du même individu à suite une de l'autre

Une petite aide ...merci

OLi

 

[san san]

hello,


je ne suis pas une pro, mais j'ai essayé de transcrire ce que tu voulais (ca m'entraine en meme temps 😛)

c'est surement perfectible mais ca a l'air de fonctionner parcontre quand tu dis vouloir tes fiches à la suite , c'est bien dans le meme onglet?? car moi je l'ai compris ainsi.

Sub Copyrenameworksheet()

    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
      
      nom = Sheets("CARTE VIERGE").Range("C2").Value
      Sheets("CARTE VIERGE").Range("A1:M30").SpecialCells(xlVisible).Copy
      
For i = 2 To Worksheets.Count
      
    Worksheets(i).Activate
    
    If ActiveSheet.Name = nom Then
    
    Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
    Exit Sub
    
 
    End If
          
Next
    
    Sheets("CARTE VIERGE").Copy After:=Worksheets(Sheets.Count)
    
    If wh.Range("C2").Value <> "" Then
    ActiveSheet.Name = wh.Range("C2").Value
    End If
    
    wh.Activate
    
End Sub

 

[thespeedy20]

re,

Bonsoir

Merci pour ta proposition....

pour répondre à ta question, c'est à la suite dans l'onglet portant le nom de la personne qui se trouve en cellule C2

 

[san san]

donc, ma proposition te convient du coup?

 

[thespeedy20]

Bonjour San San..

En fait j ai une erreur comme quoi le répertoire existe et duplique la feuille source avec son propre nom....

 

[thespeedy20]

re,

quand je je refais une feuille et je veux l'insérer , elle ne se met pas à la suite mais se superpose avec l'autre....:-(

 

[san san]

hello,

je viens de retester et ca fonctionne pourtant 😕

 

[san san]

re,

je viens de trouver une piste pour le message d'erreur, en faite c'est un problème de CASSE sur le prénom, entre Olivier et olivier, pour la rechercher c'est différent, parcontre lors de la création de l'onglet, excel considère que c'est le meme nom

 

[san san]

re,

quand je je refais une feuille et je veux l'insérer , elle ne se met pas à la suite mais se superpose avec l'autre....:-(

donc tu ne veux pas que toute tes cartes pour la meme personne soit dans le meme onglet?

 

[thespeedy20]

re,

si si, chaque personne doit avoir son propre onglet, avec ses feuilles personnelles....

 

[san san]

je te joins ton fichier : pour éviter des erreurs de saisie avec les majuscules des prénoms, je t'ai mis un onglet où tu peux mettre les prénoms des employés et ainsi en C2 tu as une liste déroulante pour choisir.

Normalement, l'ajout d'une nouvelle fiche se fait bien en dessous de la précédente.

voilà 🙂

 

[thespeedy20]

re,

c'est que je désirais....mais un petit soucis, la première feuille à bien la mise en page, par contre la suivante pour le même nom ,elle ne respecte pas la mise en page, hauteur des cellules ?

Encore merci pour ton travail et disponibilité...

 

[san san]

re,

bon je sèche un peu là, un expert peut il passer par là ?? siouplé

tu peux ajouter une ligne pour le format mais ca ne reprend pas la hauteur des lignes

For i = 2 To Worksheets.Count
     
    Worksheets(i).Activate
   
    If ActiveSheet.Name = nom Then

    Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial Paste:=xlPasteFormats
    Worksheets(nom).Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial
    Exit Sub
   

    End If
         
Next

 

[James007]

Salut Sandrine,

Pas sûr de comprendre la requête ...

Est-ce-que le fichier joint avec ta macro ... se comporte comme tu le voulais au départ ... ou pas ...

 

[san san]

hello James,

c'est pas pour moi mais pour Speedy 😉

la macro que j'ai faite copie bien mais en fait il voudrait que le "collé" de sa carte vierge soit identique aussi au niveau de la mise en forme + hauteur de lignes.

hesite pas a corriger le code car j'imagine que ca ne doit pas être hyper "propre" comme je débute 😛