majuscule

[jacky45]

Bonjour à tout le monde et bonne année

Je n'arrive pas à incorporé ma ligne de code ,
voir pièce jointe.
Merçi beaucoup

 

[CB60]

Re : majuscule

Bonjour de cette façon cela fonctionne

Option Compare Text
Private Sub Worksheet_Change(ByVal target As Range)
target = UCase(target.Value)
If Not Intersect(target, Range("a1:b60")) Is Nothing Then
If target.Value Like "[a-z][a-z]######" Then Exit Sub

On Error GoTo Fin
Application.EnableEvents = False
MsgBox "Le TEI comporte 2 lettres et 5 chiffres."
Application.Undo
End If
Fin:
Application.EnableEvents = True

End Sub


PS mais tu a un autre probléme pour sortir de ta boite de dialogue lorsque tu ne saisi pas 2 lettres et 6 chiffres

 

[abc]

Re : majuscule

Bonjour,
j'ai essayer le code mais il me bloque le pc.
Il doit y avoir une erreur avez la même erreur.
J'ai essayé de corriger mais je suis un peu juste en VBA
A +

 

[bqtr]

Re : majuscule

Bonjour jacky45, CB60, abc

abc, j'ai la même erreur que toi. J'ai fait ca et ca à l'air de fonctionner.

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1:b60")) Is Nothing Then

If Target.Value = "" Then Exit Sub

If Target.Value Like "[a-z][a-z]######" Then
Target = UCase(Target.Value)
Exit Sub
Else
On Error GoTo Fin
Application.EnableEvents = False
MsgBox "Le TEI comporte 2 lettres et 5 chiffres."
Application.Undo
End If
End If
Fin:
Application.EnableEvents = True
End Sub

Edit : Cette ligne If Target.Value = "" Then Exit Sub, permet de supprimer une valeur dans la colonne sans avoir de message d'erreur.

Bonne journée

P.O

 

[CB60]

Re : majuscule

re
Merci bqtr cela faisait bientot une heure que je cherchais à enlever l'anomalie.
Bruno

 

[abc]

Re : majuscule

Bonjour,
extra, mais ne pourrait-on pas en cas d'erreur avoir un MSGBOX qui nous dirait
"Erreur ,veuillez corriger",plutot que d'effacer tout.
SUGGESTION
A +

 

[bqtr]

Re : majuscule

Re,

Eventuellement, tu peux faire comme ca :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:B60")) Is Nothing Then

If Target.Value = "" Then Exit Sub

If Target.Value Like "[a-z][a-z]######" Then
Target = UCase(Target.Value)
Exit Sub
Else
MsgBox "Erreur ,veuillez corriger", , "Erreur :"
Target.Activate
End If
End If
End Sub

En cas d'erreur, aprés la validation de la MsgBox, la cellule fautive est de nouveau sélectionnée sans en effacer son contenu.

P.O

 

[jacky45]

Re : majuscule

bqtr,cb60,abc

Je vous remercie très sincèrement d'avoir passer du temps
sur mon code.
Cela fonctionne très bien maintenant
Merçi encore et bonne année à tous

Jacky