Macro créer nouvelle onglet

Re : Macro créer nouvelle onglet

Bonjour Bloomby,

Faut réfléchir un petit peu :


et ne pas oublier qu'en VBA il est préférable de ne pas utiliser Select...

A+

Re : Macro créer nouvelle onglet

Bonjour Job75,

.Count très logique merci,
j'en prend note et et je l'écrit dans mon calpain

merci Bloomby

Re : Macro créer nouvelle onglet

Bonjour forum, Job75,
Advenant que la feuille existe deja est-ce possible que la macro ne créer pas la feuille en question.

merci

Re : Macro créer nouvelle onglet

Bonjour,
Un fil existe sur le sujet;mais voici un code qui crée, un onglet par rapport à un modéle et copie certaine cellules.

Option Explicit

Sub creation()
Dim Sh As Worksheet
Dim i As Integer
Dim j As Integer
Dim nu() As String
For Each Sh In Worksheets
If Sh.Name <> "modéle" Then
If InStr(Sh.Name, "SUIVI ACCU") > 0 Then
j = CInt(Replace(Sh.Name, "modéle", ""))
If j > i Then i = j
End If
End If
Next Sh
With Sheets("modéle")
.Copy after:=Sheets(Sheets.Count)
' On Error GoTo PbNomFeuille
ActiveSheet.Name = "modéle" & i + 1 '' référence"
End With
'
' on met les noms dans un tableau
ReDim nu(Sheets.Count)
For Each Sh In Worksheets
If Sh.Name <> "modéle" Then
If InStr(Sh.Name, "modéle") > 0 Then
j = CInt(Replace(Sh.Name, "modéle", ""))
nu(j) = Sh.Name
End If
End If
Next Sh
' on recopie les données de l'avant dernier dans le dernier
For j = UBound(nu) To LBound(nu) Step -1
If nu(j) <> "" Then
i = 1
If j > 1 Then
Do
If nu(j - i) <> "" Then Exit Do
i = i + 1
If i > Sheets.Count Then Exit Do ' sortie si problème
Loop

i = j - i
Call recopie(nu(i), nu(j))
Else
Call recopie("modéle", nu(j))
End If
End If
Next j
End Sub

@+

Re : Macro créer nouvelle onglet

Bonjour Laplayast,
Merci de ton aide, par contre je ne crois pas que j'ai besoin d'un tel code
j'ai lue plusieurs fil j'ai fais certains tests et je crois que je vais opter pour la solution qui ressemble plus à cela.

Sname = "P1"

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "P1"
Range("A1").Select

If Sheets(i).Name = Sname Then
Exit Sub
End If

Cliquez pour agrandir...

Re : Macro créer nouvelle onglet

Re bloomby, salut laplayast,

Cela devient plus sérieux en effet, mais on peut faire simple :


A+

Re : Macro créer nouvelle onglet

Bonjour Job75,
Excellent c'est ce que je cherchais
merci

Re : Macro créer nouvelle onglet

Re,

Oui, mais une solution plus élégante je pense :

Re : Macro créer nouvelle onglet

Bonjour Job75,
Je ne peu que m'incliner face à cette élégance 🙂

merci