Microsoft 365 Configurer la Validation de Donnée Excel

Dofing · 2 Novembre 2022

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 · 2 Novembre 2022

Re,

En formule :

VB:

=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,

xUpsilon · 2 Novembre 2022

Bonjour,

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

VB:

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 · 2 Novembre 2022

xUpsilon à dit:

Bonjour,

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

VB:

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 · 2 Novembre 2022

Re,

En formule :

VB:

=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 · 2 Novembre 2022

Formidable.
Code fonctionne à merveille
Merci

Dofing · 17 Janvier 2023

xUpsilon à dit:
Re,

En formule :

VB:

=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 · 18 Janvier 2023

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,

Microsoft 365 Configurer la Validation de Donnée Excel

Dofing

XLDnaute Junior

xUpsilon

xUpsilon

XLDnaute Accro

Dofing

XLDnaute Junior

xUpsilon

XLDnaute Accro

Dofing

XLDnaute Junior

Dofing

XLDnaute Junior

xUpsilon

XLDnaute Accro

Discussions similaires