XL 2016 Adaptation d'un code qui fonctionne sur chng val manuel à chng val automatique.

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #2

Bonjour Sb_OS

Code:

.....
  Val = Target.Value 'Valeur de la cellule changé
.......

 

Pièces jointes

• new.xlsm

  25.2 KB · Affichages: 26

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #3

Bonjour pierrejean ,

merci pour la proposition, mais y a toujours l'erreur sur Val = ...
je croix qu'il faut décomposer le traitement sur chaque cellule en remplaçant target par Rng !!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #4

Re

Effectivement
A un moment target ne représente plus une cellule mais plusieurs d'ou erreur sur Target.value
Peux-tu me préciser le rôle de la macro Change sur Feuil2 ???

 

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #5

en effet, j'ai quelques produits qui doivent avoir le meme numéro (dans mon vrai cas se sont des pieces) donc une fois une modification du numéro d'un produit elle est faite le numéro de l'autre produit associé (que je défini par dans le code) ce met à jour meme si il est pas validé dans la feuil 1.
j'ai des moules et des contres moules qui ont logiquement le meme numéro tout le temps mais il y arrive des fois que dans la feuil 1 (de calcule) j'ai soit le moule ou le contre moule donc une fois je valide un des deux l'autre ce valide également et je saute sur le numéro suivant dans ma BDD dans la feuil 2 ( je ne peux pas faire une boucle car des fois j'ai 2 pièces moule c moule des fois j'ai plus).

 

Dernière édition: 22 Juin 2018

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #6

Re
A tester

 

Pièces jointes

• new.xlsm

  25.8 KB · Affichages: 22

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #7

Emm toujours pas. à mon avis on laisse le module tel qu'il est et on modifier sur le private sub de la manière suivante :

For each rng in target

Lig = rng.Row 'N° ligne de chgt de valeur
' val = rng.offset(0, -2) 'Valeur de la cellule changé
ça peut etre quelque chose comme ça

NB : dans ce cas j'ai défini une égalité entre A1 A2 , B1 et B2 , C1 ET C2 donc si valide C1 par exemple le N de C1 sera N C1 + 1 et N C 2 fait pareil car je les ai associer dans le private Sub dans la suite 2

 

Dernière édition: 22 Juin 2018

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #8

Re

Dans quel cas cela ne marche pas ?????

 

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #9

si je valide par exemple B1 par fait le N B1 change mais le n B2 ne le suit pas malgré que dans le private sub ils sont associé dans la suite 1

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #10

Re

Il m'a paru plus simple de tout mettre dans la macro Validation

 

Pièces jointes

• new.xlsm

  25.7 KB · Affichages: 25

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #11

Merci pierrejean pour ton accompagnement c'est très gentil de ta part.
Très bien et c est encore mieux de les mettre dans le meme code car avec la première méthode l'exécution est très lourde.
j'ai juste pas compris comment je puisse définir les numéros qui doivent etre égaux si par exemple je souhaite faire A1 =A2 =B1 et C1=C2.
je vois pas trop ou est ce qu'elle est la partie que je dois modifier.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juin 2018

• #12

Re

il suffit que la première lettre soit identique (A 1 avec A 2) (et même éventuellement avec A 3) B1 avec B2 etc
on pourrait avoir par exemple
A1
A2
B1
C1
C2
C3
D
E
F
......

 

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 22 Juin 2018

• #13

d'accord dans la 3eme colonne du tableau je vois maintenant et c'est un bon astuce dans le cas ou en rajoute des nouvelles pièce à la BDD donc on adapte pas le code c'est juste rajouter un symbole.
Tu m'as beaucoup aidé pierrejean merci bcp

 

Vote positif 0 Vote négatif