Problème dans le format

Bonjour a tous et toutes, bonjour forum,

Dans mon programme j'ai 2 feuilles baptiser (1) Compte et (2) Carte bleue

Tout s'affiche bien dans la feuille (1) Compte MAIS le problème ca s'affiche aussi dans la feuille (2) et c'est pas cool. Juste affichage dans la feuille (1) Compte serai bien.

je crois que l'utilisation du code .ClearFormats : .NumberFormat ="@" voir ci-dessous

me fout le bazar dans mes colonnes et lignes formatées.

S.V.P si une idée a ce sujet, je suis preneur.

Merci beaucoup de votre temps et super bon Dimanche a vous.

Raymond

Dans ThisWorkbook

'*** Pour afficher le dernier accès au fichier
With Worksheets("Compte").[A3]
.ClearFormats
.NumberFormat = "@"
.Value = "Dernier accès le " & Format(Date, "dd mm yyyy") & " à " & Format(Time, "H:MM")

               ' --------- Bout de code pour explication NON complet ------------------------------

'*** Pour afficher les 12 mois dans la feuille (2) Compte
For Dmois = 1 To 12
Cells(2, 3 + Dmois) = Dmois
With Worksheets("Compte").Cells(3, 3 + Dmois)
.ClearFormats
.NumberFormat = "@"
.Value = Application.Proper(Format("01/" & Dmois, "mmm ")) & Right(CStr(Year(Now)), 2)
End With

Merci d'avance

Bonjour,

Je ne vois pas la relation entre ton code et ta feuille 2. Ton code fai appel à la feuille Compte (feuille 1) et pas à la feuille 2.

Merci de mettre ton fichier pour comprendre ou de donner plus d'explications notamment sur le lien qui existe entre la feuille 1 et 2

A te relire

Dan

Bonjour a toutes et tous, bonjour forum

Salut Nad-Dan

Merci pour ta réponse qui m'a aiguiller et du coup j'ai revu et modifier mon code. Je n'ai plus de soucis, ne me demande pas pourquoi, je ne saurai te répondre toujours est'il que ca marche.

Je retourne sur mon programme, encore merci

Passe une excellente journée et bonne semaine

Raymond