XL 2016 Code copie coller valeur variable

Seddiki_adz · 26 Juillet 2021

Bonjour
Je cherche un code pour copie coller une variable dans une cellule M3 calculer par formule =MAX(A8:A1000) , corresondons a une valeur X dans une autre cellule
Merci d'avance

sylvanu · 26 Juillet 2021

Bonjour Seddiki_adz,
En PJ un essai avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I12")) Is Nothing Then  ' I2 cellule à valider pour faire le calcul (à modifier)
        If Target = 1 Then      ' 1 : valeur qui déclenche le calcul ( à modifier )
            [M3] = Application.Sum([A8:A1000])
        End If
    End If
End Sub

Avec ce que j'ai compris, vous êtes toujours aussi avare d'explications.
Donc ici la somme se fait lorsqu'on met 1 dans la cellule I12.

sylvanu · 26 Juillet 2021

Bonjour Seddiki_adz,
En PJ un essai avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I12")) Is Nothing Then  ' I2 cellule à valider pour faire le calcul (à modifier)
        If Target = 1 Then      ' 1 : valeur qui déclenche le calcul ( à modifier )
            [M3] = Application.Sum([A8:A1000])
        End If
    End If
End Sub

Avec ce que j'ai compris, vous êtes toujours aussi avare d'explications.
Donc ici la somme se fait lorsqu'on met 1 dans la cellule I12.

XL 2016 Code copie coller valeur variable

Seddiki_adz

XLDnaute Impliqué

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires