Cellule => alpha & numérique

Efgé

XLDnaute Barbatruc

• 30 Mai 2011

• #2

Re : Cellule => alpha & numérique

Bonjour Sylzer,
Une proposition patr VBA, le code est dans le code de la feuille:

VB:

Option Compare Text
Private X As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Txt As String
If X = True Or Target.Address <> "$A$1" Then Exit Sub
Txt = Target.Value
X = True
If Not Left(Txt, 5) Like "[A-Z]####" Or Len(Txt) > 7 And Txt <> "" Then
    MsgBox " Le format de saisie doit être respecté"
    Target.ClearContents
End If
X = False
End Sub

Cordialement

 

Pièces jointes

• Sylzer(1).xls

  17.5 KB · Affichages: 64

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 30 Mai 2011

• #3

Re : Cellule => alpha & numérique

Bonjour,

Faire donnée validation personnalise formule =ET(CODE(A1)>64;CODE(A1)<91;ESTNUM(STXT(A1;2;4)*1))

 

Vote positif 0 Vote négatif

S

Sylzer

Guest

• 31 Mai 2011

• #4

Re : Cellule => alpha & numérique

Merci Efgé,
C’est exactement ce que je recherchais.

Toutefois, je pensé être capable d’adapter ton code si besoin est, à plusieurs cellule devant répondre aux critères.
Mais je n’y arrive pas :s

Je te prit donc de bien vouloir pardonner ma double demande, mais imaginons que le code doive agir sur 2 cellules (A1 et B2), qu’est ce qui serais modifié ?

Encore désolé de ma double demande.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 31 Mai 2011

• #5

Re : Cellule => alpha & numérique

Bonjour Sylzer, tdenfert

[😡]Ce qui est "génant" n'est pas que tu modifie ta demande, mais que l'on ai l'impression que sans ce nouveau problème tu n'aurais plus donné signe de vie [/😡]

Pour modifier le code:
Si il s'agit de cellules séparées:

VB:

If X = True Or Intersect(Target, Range("A1,B2")) Is Nothing Then Exit Sub

Si il s'agit d'une plage de cellule:

VB:

If X = True Or Intersect(Target, Range("A1:B2")) Is Nothing Then Exit Sub

Cordialement

 

Vote positif 0 Vote négatif

S

Sylzer

Guest

• 6 Juin 2011

• #6

Re : Cellule => alpha & numérique

Merci pour la solution au problème 😉

Bonne journée

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2011

• #7

Re : Cellule => alpha & numérique

tdenfert à dit:

Bonjour,

Faire donnée validation personnalise formule =ET(CODE(A1)>64;CODE(A1)<91;ESTNUM(STXT(A1;2;4)*1))

Cliquez pour agrandir...

bonsoir a tous.
belle formule et jolie sans VBA

 

Vote positif 0 Vote négatif