Fonctionnement macro

Voila ma macro

Sub calcul()

Select Case Range("D21")

Case Is = "Sous total REG Prp Age"

With ActiveSheet

Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"

Else

Select Case Range("D21")

Case Is = "Sous total REG Prp Permis"

With ActiveSheet

Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"

End If

End Sub

elle ne marche pas ?????

Bonsoir

Heu... Cela fonctionnement comment ?

Ou plutot expliquez ce que vous voulez faire

Crdlt

je veux si je choisi en D21 appliqué la formule suivante "(F19 * E21) + F19" en F20 Sous total REG Prp Age et la meme chose Sous total REG Prp Permis en vb

Re

Votre fichier en retour sur base de ce que j'ai compris

Crdlt

Parfait parfait merci a toi

Rechercher des sujets similaires à "fonctionnement macro"