[AC-2003] insertion automatique valeur [Résolu]

[Leehan]

bonjour,

j'ai un formulaire avec 3 champs.
Les 2 premiers contiennent des valeurs ex :ABC pour la 1, XYZ pour la 2
La troisième est remplie manuellement par un code issu des différentes combinaisons des 2 colonnes précédentes. ex : A ! X ! E2 !
Je voudrais automatiser la saisie du code c a d à la suite de la saisie des deux premières colonnes, la troisième se remplit automatiquement.

Je pensais utiliser If...then. ( dans le style if champ1=A and champ2=X then champ3.value=E2) et ecrire tous les combinaisons et codes possibles.
Qu'en pensez-vous ?
Est-ce le plus simple ?
merci

[argyronet]

Bonjour,

Tout est possible à condition que tu établisses des règles ?
D'où vient le "E2" ; il faut définir cela dans une table de référence après quoi la combinaison sera possible.

Obtenir toutes les combinaisons possibles de ABC et XYZ se fait facilement dans 2 boucles For imbriquées mais le E2, je ne sais pas d'où il vient dans ce cas.

Argy

[Leehan]

merci de la réponse

l'utilisateur choisit la valeur du champ 1 (A) puis celle du champ 2 (X) et automatiquement j aimerais que le code attribué a cette combinaison s'inscrive dans le 3eme champ (E2).
je pensais alors ecrire dans le VBA les combinaisons correspondant à un code (les codes correspondant à une combinaison sont actuellement sur un fichier word qui doit etre consulté à chaque fois... )

donc a priori pas besoin de for en boucle (?) si on créée les différents cas dans le VBA.

Après le then de if...then..., on ne peut pas créer une instruction qui colle une valeur dans un champ ? auquel cas on se passe de table de reference ?

merci

[Leehan]

resolu

sans table de reference et avec autant de if...then que de code existant, cela fonctionne.
Merci

[argyronet]

Oui, effectivement, la forêt d'ifs est une souche de solutions.

Les avantages sont non négligeables :

• Intervention dans le code en cas d'évolution des combinaisons ;
• Souplesse de la lisibilité et simplicité de l'algorithme ;
• Maintenance aisée ;
• Etc...

Argy