controle de saisie

[coogar]

Bonjour
est il possible de controler la saisie d une cellule
pour que celle ci commence obligatoirement
par : .SER

les caracteres suivants n ont pas d'importance -
seuls ces 4 premiers

merci

 

[omicron]

Bonsoir Coogar,

En réponse à ton problème voici une façon de faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Left(Target.Value & "....", 4) <> ".SER" Then _
MsgBox "Erreur de saisie" & Chr(10) & "Le contenu de la cellule $A$1 ne commence pas par .SER"
End Sub

Il suffit donc de programmer l'évènement "change" dans la feuille "worksheet" contenant la cellule à tester dans l'exemple il s'agit de la cellule A1. De cette façon, chaque fois que la valeur de A1 est modifiée, le contrôle est fait

Si tu as besoin d'explications complémentaires n'hésite pas à "Rappeler".

Bon courage pour la suite ....

 

[Gérard DEZAMIS]

Bonsoir Coogar & Omicron

en copiant, plagiant ,l'idée de Omicron il est aussi possible d'affecter aux cellules de saisie un format conditionnel

avec : "la formule est" ----=GAUCHE(A1;4)<>".SER"
et en indiquant par exemple un format de motif rouge.
La saisie d'autre chose que .SER en début de cellule fera rougir la cellule.
Honte à elle !
Il n'y aura pas d'indication en texte.
Je vais voir si c'est possible en Validation de données ...
Peut-être une autre piste... pour demain

 

[Myta]

Salut a tous

Pourquoi pas avec liste de validation

Format personnalisé

la formule est =GAUCHE(A1;4)=".SER"

Mytå

 

[Myta]

Re le forum

la meme idée on dirait Gérard DEZAMIS

et sa marche aussi sur une plage étendu

Mytå