Rebonjour à tous !
J'ai un nouveau problème à exposer. (Vous allez finir par me virer du forum avec tout l'attention que je monopolise :unsure: )
Pour ceux qui ont lu mes autres fils, ils auront compris de quoi je parle. Pour ne pas refaire tout l'historique un peu long de mon problème, je vous invite à relire rapidement mes autres fils.
Maintenant que mon numéro de commande ne contient plus d'espace et se trouve formaté comme suit: 05U001
Je voudrais pouvoir valider la lettre utilisée dans le numéro de commande. La raison est simple. J'ai crée plusieurs modèles destinés à être utilisés pour des entités différentes (les entêtes, pieds pages sont défférents pour chacun) et les numéros de commande ne sont pas basés sur les mêmes suites. Ainsi, j'ai des entités dont les numéros de commande sont formés de la manière suivante: 05U001, 05T001, 05I001,...
Je voudrais donc être certain que les utilisateurs ne se trompent pas lorsqu'ils choisissent un modèle pour passer une commande sur l'entité U par exemple.
J'ai pensé au code suivant mais cela ne me retourne aucune valeur:
Biensur ce code n'est qu'un début. Ensuite, lorsque le principe sera établit, je pourrais rajouter les arguments qui manquent (if C = 'T', if C = 'A',...)
Merci d'avance pour vos brillantes idées.
Le concours est lancé...alors à vos claviers !
@+
Natiffar :evil:
J'ai un nouveau problème à exposer. (Vous allez finir par me virer du forum avec tout l'attention que je monopolise :unsure: )
Pour ceux qui ont lu mes autres fils, ils auront compris de quoi je parle. Pour ne pas refaire tout l'historique un peu long de mon problème, je vous invite à relire rapidement mes autres fils.
Maintenant que mon numéro de commande ne contient plus d'espace et se trouve formaté comme suit: 05U001
Je voudrais pouvoir valider la lettre utilisée dans le numéro de commande. La raison est simple. J'ai crée plusieurs modèles destinés à être utilisés pour des entités différentes (les entêtes, pieds pages sont défférents pour chacun) et les numéros de commande ne sont pas basés sur les mêmes suites. Ainsi, j'ai des entités dont les numéros de commande sont formés de la manière suivante: 05U001, 05T001, 05I001,...
Je voudrais donc être certain que les utilisateurs ne se trompent pas lorsqu'ils choisissent un modèle pour passer une commande sur l'entité U par exemple.
J'ai pensé au code suivant mais cela ne me retourne aucune valeur:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range('NumCommande').Replace What:=' ', Replacement:=''
Dim C As String
Dim NumCommande As String
Range('NumCommande') = NumCommande
Mid(NumCommande, 1, 3) = C
If C = 'U' Then
MsgBox 'Erreur de modèle', vbInformation
End If
End Sub
Biensur ce code n'est qu'un début. Ensuite, lorsque le principe sera établit, je pourrais rajouter les arguments qui manquent (if C = 'T', if C = 'A',...)
Merci d'avance pour vos brillantes idées.
Le concours est lancé...alors à vos claviers !
@+
Natiffar :evil: