Exécution d'un IF qu'une seule fois
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:
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 |
