Autres (RESOLU)saisie restrinte dans des cellules

[chaelie2015]

Bonsoir FORUM
Je souhaite avoir dans une cellule format "Nombre"&"T"&"espace "&"ANNÉE" afin de limiter la saisie dans la cellule.
NB: "Nombre" est limité entre 1 et 4
"ANNEE"(AAAA) : 2020
Exemple : dans une cellule fusionnée (quelconque) "B77" je dois saisir par exemple 2T 2020
si je saisis 4T2020 format non valable parce que il y a pas d'espace entre "T" et "ANNÉE"
Merci par avance

 

[eriiic]

Bonjour,

à tester :

=ET(GAUCHE(A2;1)>="1";GAUCHE(A2;1)<="4";STXT(A2;2;4)="T 20";DROITE(A2;2)+0>=20;NBCAR(A2)=7))

eric

 

[chaelie2015]

Bonsoir eric
A quel niveau j'introduis cette formule?
MERCI

 

[job75]

Bonsoir chaelie2015, eriiiic,

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B2:D10000], UsedRange) 'plage à adapter
If Target Is Nothing Then Exit Sub
Dim tablo, i&, x$, n As Byte
For Each Target In Target.Areas 'si entrées ou effacements multiples
    tablo = Target.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        x = CStr(tablo(i, 1))
        If x <> "" Then
            n = Val(Left(x, 1))
            If Not x Like "#T ####" Or n = 0 Or n > 4 Then
                Application.EnableEvents = False
                Application.Undo 'annule les entrées
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
Next i, Target
End Sub

A+

 

[chaelie2015]

Bonsoir chaelie2015, eriiiic,

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [B2:D10000], UsedRange) 'plage à adapter
If Target Is Nothing Then Exit Sub
Dim tablo, i&, x$, n As Byte
For Each Target In Target.Areas 'si entrées ou effacements multiples
    tablo = Target.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        x = CStr(tablo(i, 1))
        If x <> "" Then
            n = Val(Left(x, 1))
            If Not x Like "#T ####" Or n = 0 Or n > 4 Then
                Application.EnableEvents = False
                Application.Undo 'annule les entrées
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
Next i, Target
End Sub

A+

Bonsoir JOB
Merci pour le code; si je saisi 5T 2020 il l'accepte ?
mème 4T2020 ( sans espace entre T et l'année) il l'accepte ??
merc

 

[eriiic]

Re,

Il s'agit bien d'une saisie ?
Si oui, dans une validation par formule.
eric

 

[job75]

Si oui, dans une validation par formule.

L'ennui des validations des données c'est qu'elles disparaissent facilement (copier-coller par exemple).

 

[job75]

Merci pour le code; si je saisi 5T 2020 il l'accepte ?
mème 4T2020 ( sans espace entre T et l'année) il l'accepte ??

Faites-vous épiler la main.

 

[eriiic]

Oui, bien sûr. Il est toujours possible de la restaurer.
Je pars quand même du principe que les gens travaillent correctement.
Sinon tout est imaginable, y compris la suppression d'un nombre important d'une cellule et là rien ne peut y faire...
eric

 

[chaelie2015]

Bonsoir ERIC, JOB
je corrige, j'avais un pblm au niveau de mon Laptop.
souci résolu
merci pour la réponse
Bon début de semaine