Microsoft 365 Mettre une condition selon le fomat de la cellule

J

JHA

XLDnaute Barbatruc

• 30 Octobre 2024

• #2

Bonjour à tous

A essayer

VB:

=SI(HEURE(A2)+MINUTE(A2)=0;A2*B2;(A2*24)*B2)

JHA

 

Pièces jointes

• Classeur1 (51).xlsx

  12.4 KB · Affichages: 2

Vote positif 0 Vote négatif

Solution

V

ValerieH34

XLDnaute Nouveau

• 30 Octobre 2024

• #3

Merci beaucoup JHA
C'est parfait.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 30 Octobre 2024

• #4

JHA à dit:

Bonjour à tous

A essayer

VB:

=SI(HEURE(A2)+MINUTE(A2)=0;A2*B2;(A2*24)*B2)

JHA

Cliquez pour agrandir...

Bonjour à tous.

A condition que la quantité soit toujours inférieure à 24.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 30 Octobre 2024

• #5

Bonjour à tous

Victor a raison, cette formule n'est pas correcte.
Second essai

VB:

=SI(CELLULE("format";$A2)="H4";(A2*24)*B2;A2*B2)

JHA

 

Pièces jointes

• Classeur ValerieH34 (bis).xlsx

  12.5 KB · Affichages: 2

Vote positif 0 Vote négatif

V

ValerieH34

XLDnaute Nouveau

• 31 Octobre 2024

• #6

Bonjour,
La seconde formule ne fonctionne pas si je personnalise le format de la cellule en [h]:mm
La première me convient très bien car je ne fais pas des journées de plus de 24h ;-)
En tout cas un grand merci à tous les 2 Victor21 et JHA.
Bolle journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #7

Bonjour le forum,

Une formule un peu plus légère :

Code:

=A2*B2*SI(MOD(A2;1);24;1)

MOD(A2;1) renvoie la partie décimale.

A+

 

Pièces jointes

• Classeur1.xlsx

  12.2 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #8

Maintenant comme il est dit :

je ne fais pas des journées de plus de 24h

Cliquez pour agrandir...

on peur écrire plus simplement :

Code:

=A2*B2*24^(A2<1)

 

Pièces jointes

• Classeur1.xlsx

  12.2 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2024

• #9

Pour terminer et répondre strictement à la question du post #1 on utilisera cette fonction VBA :

VB:

Function Calcul(Qte As Range, Prix)
On Error Resume Next
Calcul = Qte * Prix * IIf(Qte.Text Like "*:*", 24, 1)
If Err Then Calcul = ""
End Function

Le code doit être placé impérativement dans un module standard.

Formule en C2 =Calcul(A2;B2)

A+

 

Pièces jointes

• Classeur1 VBA.xlsm

  17.9 KB · Affichages: 1

Vote positif 0 Vote négatif

V

ValerieH34

XLDnaute Nouveau

• 1 Novembre 2024

• #10

Bonjour tout le monde,
Merci JOB75.
En effet, cette formule est plus légère et fonctionne parfaitement.
Bolle journée

 

Vote positif 0 Vote négatif