XL 2016 Copier valeur cellules à chaque changement de valeurs d'un bloc de cellules

K

KIM

XLDnaute Accro

• 13 Mars 2021

• #2

Bonsoir le Forum et les ami(e)s,
3 lignes correspondent à 3 articles.
Pour chaque article, ci-dessous un bloc de lignes de simulation de coût.
Pour chaque article comment récupérer le meilleur coût correspondant au rang =1 et son fournisseur?
Merci d'avance de votre aide
KIM

 

Pièces jointes

• CopyCelConditions1.xlsm

  19.8 KB · Affichages: 3

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 14 Mars 2021

• #3

Bonsoir le Forum et les ami(e)s,
J'ai essayé de remplir la cellule L5 et M5 par la valeur de [H15:H17] dont le rang [I15:I17] =1
Ce code ci-dessous ne me donne aucun résultat. Y-a-t-il une erreur dans la syntaxe?

VB:

If Not Intersect(Target, Range("H15:H17")) Is Nothing Then
    For Each c In [I15:I17].SpecialCells(xlCellTypeVisible)
        If c.Value = "1" Then
            Range("L5").Value = c.Offset(0, 8)
            Range("M5").Value = c.Offset(0, 2)
        End If
Next c
End If

Merci de votre aide
KIM

 

Pièces jointes

• CopyCelConditions1.xlsm

  21.7 KB · Affichages: 1

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mars 2021

• #4

Bonjour le forum et les ami(e)s,
Je reviens vers vous car je n'arrive pas à faire fonctionner depuis quelques jours ma macro car la ligne :

VB:

If Not Intersect(Target, Range("H15:H17")) Is Nothing Then

ne réagit pas à cause des cellules H15:H17 qui contiennent des formules.
Comment modifier cette ligne pour réagir car les résultats des formules sont modifiés?
voir fichier ci-joint

Code:

If Not Intersect(Target, Range("H15:H17")) Is Nothing Then  'ce que nous observons
  i = Target.Row
Stop
    For Each c In [I15:I17].SpecialCells(xlCellTypeVisible)
        If c.Value = 1 Then
            Range("L5").Value = Target.Value
            Range("M5").Value = c.Offset(0, -6)
            Target.Offset(0, 4) = Target.Value
            Range("M" & i).Value = Target.Value
            
        End If
    Next c
End If

Merci de votre aide et de votre retour
KIM

 

Pièces jointes

• CopyCelConditions1.xlsm

  22.8 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2021

• #5

Bonjour Kim,
N'ayant pas compris la logique de votre macro, je l'ai inhibé.
Et dans Cotation et Fournisseur, j'ai mis :

VB:

Cotation :    =MIN(INDIRECT("H"&EQUIV(E5;A:A;0)+1&":"&"H"&EQUIV(E5;A:A;0)+3))
Fournisseur : =INDEX(INDIRECT("B"&EQUIV(E5;A:A;0)+1&":"&"B"&EQUIV(E5;A:A;0)+3);EQUIV(L5;(INDIRECT("H"&EQUIV(E5;A:A;0)+1&":"&"H"&EQUIV(E5;A:A;0)+3));0))

Voir en PJ.

 

Pièces jointes

• CopyCelConditions1.xlsm

  19.5 KB · Affichages: 5

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mars 2021

• #6

Bonjour Sylvanu,
Merci beaucoup pour votre retour,
Mon problème c'est que je souhaite récupérer Cotation et fournisseur via du vba dans Worksheet_Change,
car il y a possibilité de négocier le coût et de saisir le coût négocié dans les cellules du 1er cadre.
Est-ce possible?
Merci encore
KIM

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2021

• #7

Re,
Si le coût négocié est le mieux disant, alors saisissez le dans la matrice cotation, il pourra servir pour plus tard.

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mars 2021

• #8

Re Bonjour Sylvanu et le forum,
Je vais suivre votre conseil et adopter vos formules.
Pour mes lanternes, pour surveiller les modifications des valeurs des cellules H15:H17, avez-vous une idée pourquoi cette ligne de code ne fonctionne pas quand il y a des formules dans les cellules H15:H17? et comment y remedier pour surveiller des cellules qui contiennent des formules ?

VB:

If Not Intersect(Target, Range("H15:H17")) Is Nothing Then

Merci encore
KIM

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2021

• #9

Re,
Vous devriez supprimer le Stop. Il stoppe la macro en cours.
De plus la macro change ne se déclenche que sur un clic dans la cellule, pas sur un changement de valeur.
Vous devriez déclencher sur les cellules que vous modifiez : [B15:G17]
Testez en l'état en cliquant sur H15:H17 après modification d'une valeur ça marche.

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mars 2021

• #10

Re,
Merci Sylvanu et le forum,
Je vais appliquer vos formules car le tableau de simulation contient des formules et le suivi concerne bien les cellules H15:H17.
Vos formules fonctionnent bien. Pour les adapter à d'autres contextes, pouvez-vous m'explique le +1 et +3 dans tes 2 formules Citation et fournisseur?

Merci encore
KIM

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Mars 2021

• #11

Equiv cherche la ligne où se trouve le code article.
Puis va construire la plage de données pour trouver le min.
Cette plage est en H de la ligne N+1 à N+3.
( par ex 124510 est en ligne 14 donc la plage est en H15:H17. )

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 15 Mars 2021

• #12

Merci beaucoup, c'est très clair.
Bonne fin de journée
KIM

 

Vote positif 0 Vote négatif