XL 2013 données alphanumériques

[tmhassen]

Bonjour
Comment faire pour limiter la saisie d'une colonne UNIQUEMENT au caractères alphanumériques (abcd....0123....).
Merci

 

[job75]

Bonjour tmhassen,

Voyez le fichier joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A:A], UsedRange) 'colonne A, à adapter
If Target Is Nothing Then Exit Sub
Dim t$, i%
For Each Target In Target 'si entrées multiples (copier-coller)
    t = UCase(CStr(Target))
    For i = 1 To Len(t)
        If Not Mid(t, i, 1) Like "[A-Z,0-9]" Then
            Application.EnableEvents = False 'désactive les évènements
            Application.Undo 'annule l'entrée
            Application.EnableEvents = True 'réactive les évènements
            Exit Sub
        End If
Next i, Target
End Sub

Elle s'exécute automatiquement quand on entre des données en colonne A.

A+

 

[tmhassen]

Bonjour Job75
Est ce possible de faire la même chose avec VALIDATION DES DONNÉES ?
merci

 

[job75]

Vous voulez dire que la liste de validation doit comporter uniquement des lettres et des chiffres ?

Si la liste est en A1:A20 remplacez la 2ème ligne par Set Target = Intersect(Target, [A1:A20])

La macro empêchera qu'on insère des caractères indésirables.

 

[tmhassen]

je veux dire sans macro, mais avec la fonction validation des données.

 

[job75]

Voyez le fichier .xlsx joint et la formule de validation des données en A1 :

=SOMMEPROD(N(ESTNUM(TROUVE(MAJUSCULE(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1));E$1))))=NBCAR(A1)

 

[tmhassen]

Bonjour job75
C'est parfait,
Merci