Detecter un changement de format de cellule sur une feuille

vgendron

XLDnaute Barbatruc
Bonjour à toutes et tous !

Je travaille actuellement à améliorer une usine à gaz VBA pour mon taf..
cette usine est constituée d'une bonne trentaine de formulaires, de codes redondants et mal foutus (du moins.. codés à l'ancienne)
il doit y avoir au bas mot 50 000 lignes de codes qui ne cessent de s'appeler les uns les autres etc etc etc..bref.. impossible de faire un pas à pas du code pour suivre son déroulement....
pendant le déroulement.. quelque part.. une ligne doit s'amuser à passer TOUTES mes feuilles au format date... plutot que Général
j'aimerais trouver cette fameuse ligne

y a t il un moyen de détecter "Pendant le déroulement de la macro" le changement de format de la feuille?
je pensais à un truc du genre
private sub workseet_change
with activesheet.cells
if .numberformat="dd/mm/yyyy" then msgbox "Attention changment de format" !
end with
end sub
le msgbox serait donc le point d'arret de ma macro...
mais visiblement. ca ne passe pas...

une idée?
 

job75

XLDnaute Barbatruc
Bonjour vgendron,

Si la macro passe les cellules au format Date elle utilise forcément une instruction du type aaa.NumberFormat = "bbbyy" (ou "bbbyyyy")

Donc dans VBA touches Ctrl+F => Rechercher : NumberFormat ou yy

A+
 

eriiiic

XLDnaute Barbatruc
Bonjour à tous,

ou un collage de format :
VB:
.PasteSpecial Paste:=xlPasteFormats
ou....
eric
 

vgendron

XLDnaute Barbatruc
Trouvé !! merci @job75
UNE ligne de m... qui semble etre la source du pb...
bon. je ne comprend pas tout parce que la fameuse ligne ne met pas de format date
numberformat="@"

et ca va quand meme jusqu'à modifier le style "normal" en mettant un format date aux cellules.....

vais aller voir du coté des plugins utilisés pour les flex... on sait jamais...
 

vgendron

XLDnaute Barbatruc
Salut @job75
je viens tout juste de me reconnecter et n'avais pas vu ton dernier message

je viens de faire la recherche sur yy, les seules fois ou ca apparait, c'est lorsque le code récupère des dates avec l'instruction
format(date,"yyyy-mm-dd")

mais visiblement, depuis la recherche du 'numberformat', j'ai plus de problème... à voir dans les jours à venir...
 

Discussions similaires


Haut Bas