Bouton nouveau mois

Bonsoir

Des modifications

C'est le programme qui vérifie si le mois de Décembre est présent

Rajout nettoyage ListBox après sauvegarde

A vérifier la gestion des employeurs

Superrrrrrrrrrrr,

Exactement dans mon esprit ce que je souhaiter

Je voudrais vous donnez une grosse bise à tous les deux vous faites du super boulot bravo

Bonsoir grosdunord et Banzai64,

Juste un dernier fichier et grand merci à Banzai64 pour ses connaissances en excel. Avec ce post, j'ai appris beaucoup de choses qui vont me servir dans d'autres programmes.

Ci-joint la version3 en espérant qu'il n'y ait pas de bug!

Bonne semaine

Henri

Merci aussi à toi AFEH grâce à vous deux j'en ai aussi appris beaucoup en regardant tous vos code est essayer de comprendre leurs fonctionnement.

J'ai aussi grâce beaucoup de tutoriel sur le net pour m’améliorai sur excel car cela ne fait que 3 semaine que je m'y suis intéresser.

Enfin bravo à vous deux et encore merci pour le temps que vous avez consacrés pour ce projet.

Bien sur cette version et je pense pas être une final car ma femme vas le proposé à ces collègues de travaille et je pense que j'aurai quelque retour pour de future amélioration.

Si cela est le cas je répondrai à la suite de ce sujet

Bonsoir

Dans ton fichier tu as modifié la page "Employeurs" sans modifier le code

La liste des noms des employeurs commence à la ligne 3

Il faut que tu modifies le code dans les macros suivantes

InitListBox

  
    For J = 3 To .Range("A" & Rows.Count).End(xlUp).Row

ListBox1_Click

  Ligne = Me.ListBox1.ListIndex + 3

CommandButton3_Click

Ws.Rows(Me.ListBox1.ListIndex + 3).Delete

Je n'ai pas tout vérifié

Fichier corrigé

Merci encore Banzai64 pour ta réactivité. Il est vrai qu'une petite modification peut entraîner des perturbations qu'on ne voit pas forcément tout de suite. Il y avait une autre modif à apporter à la feuille Janvier (les formules B4 à B7 n'avaient pas été modifiées). Mais de toute façon on démarre avec la feuille Base, donc j'ai supprimé cette feuille.

Ce fut un plaisir

A un de ces jours sur un autre post.

Amicalement

Henri

Tous compte fait je revient vers vous car je vient de trouver un beug

Quand je créer tous les mois jusque décembre et que je veut créer un nouveau fichier pour une nouvelle année il y a une erreur.

J'ai essayer sur toutes les autres versions que vous avez proposé c'est la même sauf la premier version de cette fonction de AFEH

si vous voulais bien reprendre ce fichier car j'ai refait de la mise en forme et ajouter le bouton aide pour une feuilles d'aide sur l'utilisation de ce petit programme

Bonjour

Modifies dans la macro "Changer_A"

Supprimes les lignes barrées

Rajoutes la ligne surlignée

  Application.EnableEvents = False
[barrer]'  Sheets("Base").Select[/barrer]
[barrer]'  Range("E8") = Range("E8") + 1[/barrer]
  'supprimer tous les feuilles mensuelles
  Application.DisplayAlerts = False
  For Each sh In Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", _
                                    "août", "septembre", "octobre", "novembre", "décembre")
    Sheets(sh).Delete
  Next sh

  With Sheets("base")
   .Range("E8") = .Range("E8") + 1
    .Range("A12") = DateSerial(Year(Date) + 1, 1, 1)
    With .Range("A13:A42")
      .Formula = "=IF(A12="""","""",IF(MONTH(A12+1)=MONTH($A$12),A12+1,""""))"
      .Value = .Value
    End With
  End With
  Application.DisplayAlerts = True

Un petit plus

Ligne à rajouter dans la macro du module de l'userform2

Private Sub CommandButton6_Click()
Call Changer_A
InitListBox
End Sub

Qu'elle rapidité Merci Banzai tous fonctionne à nouveau