Microsoft 365 MFC

[Claudy]

Bonjour à tous,
Je n'arrive pas à trouver la bonne MFC:
si le contenu de la cellule commence par un "4", alors format personnalisé "Blablaa"Standart"YYYY"(année en cours aujourd'hui)
sinon format standart.

Il reste au format standart!
Merci d'avance,
Claudy

 

[job75]

N'essayez pas de modifier ma macro, Worksheet_Calculate n'a pas d'argument Target !

avec votre solution et celle de nos collègues du fil, claudy n'a plus que l'embarras du choix. A elle d'apprécier la solution qui convient le mieux à sa problématique.

Je pensais que Claudy était un homme car en général les femmes n'indiquent pas leur âge.

 

[GALOUGALOU]

re j'ai une collègue qui se prénomme claudy, mais je suis resté focalisé sur la problématique informatique et rien d'autre, donc si je me suis trompé, Claudy veuillez accepter mes excuses
cordialement
galougalou

 

[Claudy]

Hihihihihi
Je laisse deviner
Et les hommes préfèrent répondre aux femmes...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then
'If Target.Count > 1 Then Exit Sub

With Target 'cellule à adapter
    .NumberFormat = "General"
    If Left(.Value, 1) = "4" Then .NumberFormat = """Blablabla ""General""\" & Year(Date) & """"
End With

End If
End Sub

ça marche...
Merci à tous pour l'aide,

Claudy

 

[job75]

Avec une Worksheet_Change il n'y a pas mise à jour automatique de l'année le 1er janvier...

Maintenant si l'on veut que toutes les cellules de la colonne D soient traitées utiliser :

Private Sub Worksheet_Calculate()
Dim c As Range
Application.ScreenUpdating = False
With [D:D] 'colonne à adapter
    .NumberFormat = "General"
    For Each c In Intersect(.Cells, UsedRange)
        If Left(c, 1) = "4" Then c.NumberFormat = """Blablabla ""General""\" & Year(Date) & """"
    Next
End With
End Sub

Fichier (2).

J'ai testé la macro avec un tableau de 20 000 lignes, elle s'exécute chez moi en [Edit] 1,4 seconde.

 

[job75]

Bonjour Claudy, le forum,

Les [Edit] 1,4 seconde sur 20 000 lignes ne me plaisent pas, pour allez vite il faut créer une MFC.

Voyez le fichier joint et cette macro dont l'exécution est immédiate même sur 100 000 lignes :

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
With [D:D] 'colonne à adapter
    .NumberFormat = "General" 'format Standard
    .FormatConditions.Delete 'RAZ
    '---version française---
    .FormatConditions.Add xlExpression, Formula1:="=--GAUCHE(D1)=4"
    .FormatConditions(1).NumberFormat = """Blablabla ""Standard""/" & Year(Date) & """"
    '---version anglaise---
    '.FormatConditions.Add xlExpression, Formula1:="=--LEFT(D1)=4"
    '.FormatConditions(1).NumberFormat = """Blablabla ""General""/" & Year(Date) & """"
End With
End Sub

Bonne journée.

 

[Claudy]

Bonjour à tous,
j'ai revu ma copie:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then

    If Left(Target.Value, 1) = "4" Then Target = Range("D1").Text & Target.Value & "/" & Year(Date)

End If

Mais je garde en mémoire vos Trop bonnes idées, merciiiii
A+
Claudy

 

[GALOUGALOU]

re job
une interrogation.
avec cette solution, en 2021 ne risque t-il pas lors du calcul de la feuille , de basculer toutes les lignes en 2021 ?
cordialement
galougalou

 

[Claudy]

Bonjour Galougalou,
le changement se fait sur le target, donc pas sur les lignes précédentes, non?
A+
Claudy

 

[job75]

re job
une interrogation.
avec cette solution, en 2021 ne risque t-il pas lors du calcul de la feuille , de basculer toutes les lignes en 2021 ?
cordialement
galougalou

Mais oui, et si ce n'est pas ce qui est demandé il fallait le dire dès le début 🙄

 

[Claudy]

Mais oui, et si ce n'est pas ce qui est demandé il fallait le dire dès le début 🙄

Re bonjour vous deux...
J'ai fait un test et au lieu de Year(Date), j'ai placé Now()...et ça ne modifie pas les lignes précédentes encodées avec Year(Date)
A+

Claudy

 

[job75]

Pas compris ce que vous faites mais ça me paraît n'importe quoi.

 

[Claudy]

Non pas n'importe quoi!
D'accord plus rien à voir avec la MFC, mais le résutat est là: pas de blabla, numérotation cohérente.
L'avantage aussi, c'est que je pourrais également y mettre un select case, au cas où ma numérotation commencerait par un autre chiffre.
Bonne journée,
Claudy

 

[job75]

Je vous conseille en 2021 de tester en revalidant les cellules renseignées en 2020.

Il y a de fortes chances que l'année qu'elles affichent passe de 2020 à 2021 🙄

 

[Claudy]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3", "D" & Range("D65536").End(xlUp).Row)) Is Nothing Then
    Select Case Left(Target.Value, 1)
    Case Is = "4"
    Target = Range("D1").Text & Target.Value & "/" & Year(Date)
    Case Is = "2"
    Target = "blablabla" & Target.Value & "/" & Now() '& Year(Date)
    End Select

End If

Et ça ne modifie pas les lignes précédentes puisque ce n'est plus une MFC, mais un texte brut.
Merci quand même,
Claudy
PS:, en Belgique Claudy est un prénom Masculin.

 

[job75]

D'après ce que j'ai compris il faut toujours pouvoir modifier l'année de la facture si nécessaire.

Donc utilisez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D" & Rows.Count)) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim texte$, t$, an$
Target.Select
texte = "Blablabla " 'à adapter
t = Replace(Target, texte, "")
If InStr(t, "/") Then t = Left(t, InStr(t, "/") - 1)
If Left(t, 1) <> "4" Then Exit Sub
an = Application.InputBox("Entrez l'année :", "Facture", Year(Date))
If Not an Like "####" Then Exit Sub
Application.EnableEvents = False
Target = texte & t & "/" & an
Application.EnableEvents = True
End Sub