Microsoft 365 VBA : Transfert des données vers une autre feuille avec condition

Ikito

XLDnaute Occasionnel

• 13 Février 2020

• #2

Bonjour RAPH,

Quel est le critère pour estimer qu'une ligne est identique à une autre depuis la feuille ACTIONS CORRECTIVES vers SAISIE DES DONNEES ?

Tu trouveras en PJ, la première macro demandée déjà.

 

Pièces jointes

• AMDEC_FABRICATION - Copie.xlsm

  286.8 KB · Affichages: 6

Vote positif 0 Vote négatif

R

RAPHXL

XLDnaute Nouveau

• 13 Février 2020

• #3

Bonjour lkito,

J'aimerais que le critère soit la première colonne "#" de la feuille "SAISIE DES DONNEES", cela est-il possible ?

En tout déjà un grand merci à toi !

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Février 2020

• #4

Bonjour
Effectivement, j'en suis au même point qu'Ikito,
un peu de précision sur les critères d'équivalence, et en particulier sur
Effet Potentiel de la Défaillance qui apparait dans ipr et saisie de données et pas dans actions..

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Février 2020

• #5

Je résume si # = # dans saisie de données, et ipr=4 dans actions..... alors copie avec effacement?
quid de Effet Potentiel de la Défaillance qui n'est pas dans actions...

 

Vote positif 0 Vote négatif

R

RAPHXL

XLDnaute Nouveau

• 13 Février 2020

• #6

Bonjour Sousou,

Je vous joint le fichier avec la nouvelle colonne "Effet Potentiel de la Défaillance" dans la feuille "ACTIONS CORRECTIVES".

Si par exemple plusieurs lignes de la feuille "ANALYSE IPR" affiche "OUI" alors transférer les lignes avec leur contenu dans la feuille "ACTIONS CORRECTIVES" l'une à la suite des autres.

Ensuite, (nous sommes dans la feuille d'après "ACTIONS CORRECTIVES") si des lignes affichent 4 alors appuyer sur le bouton macro qui transfert toutes les lignes avec le chiffre 4 de la dernière colonne vers la page "SAISIE DES DONNEES" en écrasant (par le biais du critère la colonne #) la ligne correspondante dans la feuille "SAISIE DES DONNEES".

 

Vote positif 0 Vote négatif

R

RAPHXL

XLDnaute Nouveau

• 13 Février 2020

• #7

fichier

 

Pièces jointes

• AMDEC_FABRICATION - Copie.xlsm

  284.6 KB · Affichages: 6

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Février 2020

• #8

RE
Deux macro transfert1 et transfert2 (pas mis de bouton)
La première va transférer les lignes dans actions.... après la dernière ligne utililisée (voir si la feuille doit être vidé ou pas)
La seconde va transférer les lignes dont l'ipr est 4 à la fin de la feuille saisie.... à moins que # existe déjà et va alors remplacer les données.
Vue que les champs peuvent exister ou pas dans les différentes feuilles j'ai opter pour l'utilisation de tableau (array) qui permettent d'effectuer la correspondance d'une feuille à l'autre,
Cette solution à le mérite d'être facilement modifiable.
(regarde la feuille que j'ai ajouté en fin de classeur afin de composer ces tables)
Dans la feuille saisie... les lignes modifiées sont grisées.

 

Pièces jointes

• AMDEC_FABRICATION .xlsm

  303 KB · Affichages: 11

Vote positif 0 Vote négatif