Bonjour,
Excel 2000
Je voudrais ajouter des contraintes additionnelles à la procédure qui suit.
Le format des cellules de la colonne "F" (la colonne cible) est "Texte".
Je voudrais donc qu'après avoir vérifié que les 16 caractères numériques
inscrits dans la cellule de la colonne "F"
soient valides, la macro vérifie aussi 3 contraintes supplémentaires, soit:
if "le premier caractère de la cellule cible est égal à 4" then
target.offset(0,-2) = "b"
elseif "le premier caractère de la cellule cible est égal à 5" then
target.offset(0,-1) = "b"
elseif "le premier caractère de la cellule est différent de 4 ou 5" then
goto erreur
end if
Espérant que ma requête est bien comprise, je vous remercie d'avance
Flac
Private Sub Worksheet_Change(ByVal Target As Range)
If
Target.Column = 10 Then
ActiveSheet.Unprotect
Application.EnableEvents = False
On Error GoTo erreur
x = Application...