Nouvelle feuille

Pilou58

XLDnaute Nouveau
Bonjour à tous,

J'ai créé un fichier en Excel qui permet à mes collègues de suivre l'encodage des facturiers d'entrées et de sorties des sociétés qu'ils ont en charge.

Le nombre de collègues est de 10 et le nombre de société qu'ils ont en charge est de 3.

Mon problème est que lorsque je veux créer une nouvelle année (VBA), je dois absolument changer manuellement l'année de la nouvelle feuille et seulement ensuite changer l'année de l'onglet (VBA).

N'y a-t-il pas une petite formule magique qui me permettrait de tout modifier automatiquement ?

Merci d'avance à tous ceux qui désirent m'aider.

Pilou58
 

Pièces jointes

  • EncFact.xlsm
    35 KB · Affichages: 6

job75

XLDnaute Barbatruc
Bonjour Pilou58, bienvenue sur XLD,

Le nom de l'agent doit se trouver avec l'année dans le nom de l'onglet créé :
VB:
Sub NouvelleAnnee()
If Not [A1] Like "####" Or [I1] = "" Then Exit Sub
Dim nf$
nf = [I1] & " " & [A1] + 1
On Error Resume Next 'si la feuille à créer n'existe pas
If IsError(Sheets(nf)) Then
    ActiveSheet.Copy After:=ActiveSheet
    With ActiveSheet
        .Name = nf
        .[A1] = Right(nf, 4)
        .[B4:D21,G4:I21] = ""
    End With
End If
End Sub
A+
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Je dirais :
VB:
Sub NouvelleFeuille()
   Dim Année As Long
   Année = ActiveSheet.Name + 1
   ActiveSheet.Copy Before:=ActiveSheet
   ActiveSheet.[A1].Value = Année
   ActiveSheet.Name = CStr(Année)
   ActiveSheet.[B4:B9].ClearContents
   ActiveSheet.[C4:D9].Value = "A traiter"
   ActiveSheet.[G4:I9].Value = ActiveSheet.[B4:D9].Value
   End Sub
 
Dernière édition:

Pilou58

XLDnaute Nouveau
Merci à vous deux. Je trouve génial votre façon de réduire au dixième mon travail.

J'ai fait un test... J'ai lancé une nouvelle année (2020), aucun problème.

Par contre, lors de la création de la deuxième année (2021), le message suivant apparaît :

1026985


J'ai du mal de comprendre pourquoi il précise que le nom "Agents" existe déjà dès lors qu'on n'en parle nulle part de cet "Agents" !!!

Toutefois, si j'accepte à deux reprises (car le message apparaît une seconde fois, l'année 2021 se crée.

Si vous savez de quoi il ressort, votre idée sera la bienvenue....

Encore merci à vous deux.

Ptilou58
 

Pièces jointes

  • EncFact.xlsm
    34.1 KB · Affichages: 3

Discussions similaires