Insérer on glet par macro

[CLAUDEF]

Bonjour le forum,

J'aimerais dans le fichier joint, créer un nouvel onglet du formulaire "AUTORISATION" aprés l'avoir renseigné et que ce nouvel onglet porte le nom inscrit dans la cellule grisée "NOM & PRENOM" et répeter cette macro à chaque changement de nom.
Je ne sais si c'est possible
D'avance je vous remercie pour votre aide

 

[CLAUDEF]

Re : Insérer on glet par macro

Excuse moi erreur de ma part, je pense que ça fonctionne, problème d'écriture dans un des codes

 

[CLAUDEF]

Re : Insérer on glet par macro

Je pense que tu es doté d'une patience exceptionnelle, je regarde de plus pret mais je pense que ce coup ci c'est bon, je te confirme sans tarder

 

[CLAUDEF]

Re : Insérer on glet par macro

Même zippé le fichier fait 104ko je ne peux donc le joindre.
Ca fonctionne, mais j'ai un problème de stabilité, au bout d'un certain nombre de création d'onglet il bug sur les lignes "Sheets("AUTORISATION").Copy After:=Sheets(Sheets.Count)" ou "Sheets("HABILITATION").Copy After:=Sheets(Sheets.Count)" entre 40 et 50 saisies, je sais que ça serait plus facile avec le fichier, mais je ne sais comment faire

 

[bqtr]

Re : Insérer on glet par macro

Envoi le moi par Mail, je le posterai après sur le forum si je m'en sort

bqtr@orange.fr

Je doit m'absenter un petit moment, je regarderai à mon retour.

 

[CLAUDEF]

Re : Insérer on glet par macro

Merci, voila qui est fait

 

[pierrejean]

Re : Insérer on glet par macro

bonjour CLAUDEF

Salut fanfan
Salut Pierre Olivier 🙂

je crois que le probleme est du au fait que l'on copie en même temps que la feuille AUTORISATION la macro Worksheet_change, laquelle réagit ensuite sur les feuilles créees

@ CLAUDEF

vois si ceci te convient

 

[CLAUDEF]

Re : Insérer on glet par macro

Bonjour,
En fait mon fichier a évolué, il s'agit de deux onglets "HABILITATION" ET "AUTORISATION" qui doivent à chaque changement de nom générer un onglet "XXX" pour les habilitations et "XXX aut" pour les autorisations.
Peut être pas facile de comprendre, j'ai transmis mon fichier à pierre Olivier, je pense que c'est plus explicite.
Merci quand même

 

[bqtr]

Re : Insérer on glet par macro

Re, bonjour pierrejean,

Malheureusement il n'y a pas de solution, c'est un bug d'excel.
Regarde cette discussion:
https://www.excel-downloads.com/threads/creer-un-planning-a-la-semaine.61297/

Pour t'en sortir, il faut ajouter une nouvelle feuille vierge, puis copier la plage de la feuille AUTORISATION (ou HABILITATION) sur cette dernière.
Mais le problème c'est que tu dois ensuite reprendre la largeur des colonnes et des lignes.

pierrejean, le code Worksheet_change de la nouvelle feuille créée est supprimé par ces lignes de code:

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
     .DeleteLines 1, .CountOfLines
End With

A+

 

[bqtr]

Re : Insérer on glet par macro

Re,

Essaye comme ca:

Pour la feuille AUTORISATION

 If FeuilExist(Range("D10").Value & " aut") = False Then
          Sheets.Add after:=Sheets(Sheets.Count)
          With ActiveSheet
             Sheets("AUTORISATION").Range("A1:S42").Copy .Range("A1")
             .Name = Range("D10").Value & " aut"
             Mise_En_Page
          End With
           Sheets("AUTORISATION").Activate
           Exit Sub
        Else
           MsgBox "la Feuille """ & Range("D10").Value & " aut" & """ existe déjà" & vbCrLf & "choisie un autre nom SVP", , "Attention:"
        End If
    End If

Rajoute cette procédure dans un module de code standard :

Sub Mise_En_Page()

Dim k As Integer
Application.ScreenUpdating = False
With ActiveSheet
  ActiveWindow.Zoom = 75
    Columns(2).ColumnWidth = 3.14
    Columns(3).ColumnWidth = 20#
    Columns(10).ColumnWidth = 20#
    Columns(11).ColumnWidth = 2.71
        For k = 3 To 7
          Rows(k).RowHeight = 19.5
        Next
         Rows(15).RowHeight = 33
          For k = 16 To 28
           Rows(k).RowHeight = 45
          Next
           Rows(29).RowHeight = 34.5
           Rows(30).RowHeight = 34.5
           Rows(34).RowHeight = 15
             For k = 35 To 38
               Rows(k).RowHeight = 19.5
             Next
               Rows(39).RowHeight = 14.25
               Rows(40).RowHeight = 19.5
End With
Application.ScreenUpdating = True
End Sub

Teste et dit moi si cela te convient

A+

 

[CLAUDEF]

Re : Insérer on glet par macro

Tout à fait et en rajoutant le code: "ActiveWindow.DisplayGridlines = False" J'esfface mon quadrillage, ça marche.

 

[CLAUDEF]

Re : Insérer on glet par macro

Par contre problème avec l'onglet habilitation, j'ai rajouté le code, mais cela bug. Dois je créer un 2ième module?

 

[CLAUDEF]

Re : Insérer on glet par macro

Non j'ai trouvé, il manquait un espace avant .range...
Je vérifie sur l'ensemble

 

[CLAUDEF]

Re : Insérer on glet par macro

Ca marche impec, avec ce système
Je te remercie encore une fois pour ta patience et ton efficacité
Cordialement

 

[CLAUDEF]

Re : Insérer on glet par macro

Bonjour,

Je ne sais si PierreOlivier est connecté mais j'ai encore un bug avec ce programme. En fait quand je valide mes feuilles et qu'elles se copient la derniére copie est bonne mais elle éfface en partie des données des copies de feuilles précédentes et ainsi de suite, y a t il un probléme ou quelque chose à rajouter dans le code de la mise en page avant la copie?

D'avance merci
s

 

[CLAUDEF]

Re : Insérer on glet par macro

Problème résolu à l'instant, il y avait un bug dans une de mes formules
Cordialement