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