Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum bonjour

Avec le code ci-dessous le premier de chaque mois, je déplace d'une colonne vers la droite.

Le code fonctionne bien, seulement un petit soucis m'ennuie un peu.

Le code est placer en début de "Userform initialize"

Une première mise a jour s'est bien effectuer a la première ouverture de mon fichier ce matin.

Mais maintenant le code s'effectue a chaque initialisation de USF

Bon c'est normal puisque nous sommes le 01 février.

Mais comment faire pour que ce code ne s'effectue qu'une seule et unique fois

Merci a vous et de votre temps

Bonne fin d'après midi et merci

Cdlt Ray

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
'*** RECOPIER LES COLONNES ET LIGNES LE PREMIER JOUR DE CHAQUE MOIS AUTOMATIQUEMENT ***
 
With Sheets("Compte")
       With Cells(18, Month(Date) + 3).Resize(9, 1)     
 
If Month(Date) > 1 Then         'Date changement de colonne mensuel               
     .Copy .Offset(0, 1)                   
     .SpecialCells(xlCellTypeConstants, 23).ClearContents               
End If            
       End With    
End With

[Marc-L]

Bonjour,

pas très clair mais il devrait suffire de réserver une cellule pour la date de dernière exécution de la procédure
et de la comparer à l'ouverture de l'UserForm au "critère d'exécution" …

[eliot.raymond]

Salut Marc

Merci pour ta réponse,

Par contre je n'ai pas compris, et je ne vois pas comment faire.

Excuse moi si je n'ai pas été assez clair

je comprends bien que ce n'ai pas toujours facile ni pour l'un et ni pour l'autre

Merci tout de même LOL

Cdlt Ray