XL 2016 Code copie coller valeur variable

Seddiki_adz

XLDnaute Impliqué
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
 
Solution
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Seddiki_adz.xlsm
    14.3 KB · Affichages: 9

Discussions similaires

Réponses
3
Affichages
248
Réponses
4
Affichages
166

Statistiques des forums

Discussions
312 248
Messages
2 086 594
Membres
103 250
dernier inscrit
keks974