verification du bon nombre de caracatére dans cellule

[@lex]

Bonjour,

J'utilise un pistolet pour code a barre
Comment dois je m'y prendre pour verifier que dans la colonne A a chaque fois que je flashe sur la ligne 1, 6, 11,... j'ai bien 28 caractéres.
y a t'il un masque de saisie a mettre en place?..

Merci d'avance

@lex

 

[pierrejean]

Re : verification du bon nombre de caracatére dans cellule

bonjour @lex

on essaiera de t'aider ,mais avant cela

peux-tu nous dire ce qu'il en est de ce post ?

https://www.excel-downloads.com/threads/excecuter-une-macro-si-une-cellule-est-active.81492/

 

[criscris11]

Re : verification du bon nombre de caracatére dans cellule

Bonjour @lex, Pierrejean,
Il y a peut-être un moyen avec le menu Validation mais il faudrait que tu précises un peu comment fonctionne ton fichier.
Une piste peut-être, en attendant le VBA de Pierrejean 😉 :
sélectionnes ta cellule cible, Données, Validation, choisir l'option "Longueur de texte", est égal à 28.
Bon après-midi.

 

[@lex]

Re : verification du bon nombre de caracatére dans cellule

Bonjour pierrejean, criscris

Concernant mon dernier post, je suis encore entrain de travailler dessus car des paramétres a prendre en compte sont encore apparu. Merci encore car je suis plutot confiant

Concernant cette verification du nombre de caractére oui je pense que la validation me semble une bonne piste. Merci, il faut que je trouve le moyen de pré formaté le fichier c a dire faire cette validation pour toutes les cellules.

@lex

 

[criscris11]

Re : verification du bon nombre de caracatére dans cellule

Re,
Tu formates une cellule et ensuite tu fais un copier-collage spécial, Validation des autres cellules.
Bon courage.

 

[Staple1600]

Re : verification du bon nombre de caracatére dans cellule

Bonjour

En s'inpirant de l'idée de criscris11, et si j'ai bien lu
(ligne 1,6,11)

Dans un module Standard

Sub test()
Application.ScreenUpdating = False
With Range(Cells(1, 1), Cells(16, 1))
'si c'est toute la colonne A mettre cette ligne ci dessous
'With Range(Cells(1, 1), Cells(65536, 1).End(xlUp))
'et supprimer le If
If ActiveCell.Row = 1 Or ActiveCell.Row = 6 Or ActiveCell.Row = 11 Then
With Selection.Validation
        .Delete
        .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:="28"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
End With
End If
End With

Et dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call test
End Sub

A+


Staple

 

[pierrejean]

Re : verification du bon nombre de caracatére dans cellule

bonjour a tous

en supposant les entrées dans la colonne A

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.row=1 and len(Target.value)<>28 then
   msgbox("Attention il n'y a pas 28 caracteres")
end if
End Sub

 

[@lex]

Re : verification du bon nombre de caracatére dans cellule

Bonjour,

Merci pierre jean, cela marche trés bien!!!