Microsoft 365 Configurer la Validation de Donnée Excel

[Dofing]

Bonjour à toutes et à tous,

J'espère que vous allez bien.

Nous avons un gros souci dans le maj de colonne N° conteneur dans notre tableau de suivi.

En fait pour renseigner un numero conteneur, par exemple: APZU 480 180/7

Il y a certain qui ecrive: APZU4801807, certain APZU480180.7; certain APZU 480180/7; certain APZU480180/7.

En fait ce que nous cherchons à faire, c'est que la condition d'ecriture puisse respecter la condition suivant

- commencé par quatre lettre majuscule; un espace; trois chiffre; un autre espace; trois chiffre; un slash "/",un chiffre

Exemple:
- CMAU 561 728/4

- SEKU 593 997/3

- HPCU 437 003/5

Cordialement

 

[xUpsilon]

Bonjour,

Via VBA, dans l'évènement Worksheet_Change() et en supposant qu'on observe la cellule A1 de la feuille Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("Feuil1").Range("A1")) Is Nothing Then
    If Not (Left(Target, 4) = UCase(Left(Target, 4)) And Mid(Target, 5, 1) = " " And IsNumeric(Mid(Target, 6, 3)) And Mid(Target, 9, 1) = " " And IsNumeric(Mid(Target, 10, 3)) And Mid(Target, 13, 1) = "/" And IsNumeric(Right(Target, 1))) Then
        MsgBox "Mauvais format"
    End If
End If
End Sub

Bonne journée,

 

[Dofing]

Bonjour,

Via VBA, dans l'évènement Worksheet_Change() et en supposant qu'on observe la cellule A1 de la feuille Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Worksheets("Feuil1").Range("A1")) Is Nothing Then
    If Not (Left(Target, 4) = UCase(Left(Target, 4)) And Mid(Target, 5, 1) = " " And IsNumeric(Mid(Target, 6, 3)) And Mid(Target, 9, 1) = " " And IsNumeric(Mid(Target, 10, 3)) And Mid(Target, 13, 1) = "/" And IsNumeric(Right(Target, 1))) Then
        MsgBox "Mauvais format"
    End If
End If
End Sub

Bonne journée,

Bonjour,

Merci beaucoup pour votre support.
je cherche plûtot à faire la configuration dans la "validation de donnée", onglet "Données" sans utilisé le VBA.

 

[xUpsilon]

Re,

En formule :

=ET(ESTTEXTE(GAUCHE(A1;4));STXT(A1;5;1)=" ";ESTNUM(CNUM(STXT(A1;6;3)));STXT(A1;9;1)=" ";ESTNUM(CNUM(STXT(A1;10;3)));STXT(A1;13;1)="/";ESTNUM(CNUM(DROITE(A1;1))))

Bonne journée,

 

[Dofing]

Formidable.
Code fonctionne à merveille
Merci

 

[Dofing]

Re,

En formule :

=ET(ESTTEXTE(GAUCHE(A1;4));STXT(A1;5;1)=" ";ESTNUM(CNUM(STXT(A1;6;3)));STXT(A1;9;1)=" ";ESTNUM(CNUM(STXT(A1;10;3)));STXT(A1;13;1)="/";ESTNUM(CNUM(DROITE(A1;1))))

Bonne journée,

Bonjour,

J'espère que vous allez bien !
Est ce possible de combiné votre code de validation de donnée ci-dessus "=ET(ESTTEXTE(GAUCHE(A1;4));STXT(A1;5;1)=" ";ESTNUM(CNUM(STXT(A1;6;3)));STXT(A1;9;1)=" ";ESTNUM(CNUM(STXT(A1;10;3)));STXT(A1;13;1)="/";ESTNUM(CNUM(DROITE(A1;1))))" avec une 2ème condition pour ecrire quatre chiffre sans espace

 

[xUpsilon]

Bonjour,

Bien merci, content de voir que la formule est utilisée
Serait-il possible d'expliciter concrètement ce à quoi doit ressembler le texte, un peu comme ce qui avait été fait plus haut

commencé par quatre lettre majuscule; un espace; trois chiffre; un autre espace; trois chiffre; un slash "/",un chiffre

Bonne journée,