Microsoft 365 Calcule bouton macro

R@chid

XLDnaute Barbatruc

• 11 Décembre 2020

• #2

Bonsoir,
une solution par formule et MFC si cela te convient
Voir PJ


Cordialement

 

Pièces jointes

• DJARNAUD_V1.xlsx

  12.3 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Décembre 2020

• #3

Bonsoir Djarnaud, R@chid,
Un essai en PJ avec un seul bouton et :

VB:

Sub Calcule()
If [B3] = "" Then
    [B3] = [B1] / [B2]
    Exit Sub
ElseIf [B2] = "" Then
    [B2] = [B1] / [B3]
    Exit Sub
ElseIf [B1] = "" Then
    [B1] = [B2] * [B3]
    Exit Sub
End If
End Sub

Il suffit qu'une valeur soit absente pour être reconstituée par appui sur le bouton.

 

Pièces jointes

• Classeur2 (3).xlsm

  15.1 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

D

DJARNAUD

XLDnaute Occasionnel

• 12 Décembre 2020

• #4

Merci R@chid et Sylvanu pour vos réponses! les deux répondent à ma demande, mais j'ai retenu celle de sylvanu et l'ai modifié quelque peu, ce qui donne le fichier ci-joint

merci

bon week end

 

Pièces jointes

• Calculette.xlsm

  17.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Décembre 2020

• #5

Moi qui ai voulu optimiser !

 

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 17 Décembre 2020

• #6

C'est gentil, mais ce mode de fonctionnement correspond à un autre logiciel chez nous. J'ai donc conservé pour que les utilisateurs se l'approprient rapidement

 

Vote positif 0 Vote négatif