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

S

san san

XLDnaute Nouveau

• 3 Janvier 2020

• #2

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.

VB:

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

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 3 Janvier 2020

• #3

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

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #4

donc, ma proposition te convient du coup?

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 4 Janvier 2020

• #5

Bonjour San San..

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

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 4 Janvier 2020

• #6

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....:-(

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #7

hello,

je viens de retester et ca fonctionne pourtant

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #8

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

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #9

thespeedy20 à dit:

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....:-(

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 4 Janvier 2020

• #10

re,

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

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #11

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à

 

Pièces jointes

• Carte.xlsm

  84.7 KB · Affichages: 8

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 4 Janvier 2020

• #12

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é...

 

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #13

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

VB:

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

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2020

• #14

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 ...

 

Pièces jointes

• Test Carte.xlsm

  82.5 KB · Affichages: 3

Vote positif 0 Vote négatif

S

san san

XLDnaute Nouveau

• 4 Janvier 2020

• #15

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

 

Dernière édition: 4 Janvier 2020

Vote positif 0 Vote négatif