Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel division.

division.

6 réponses
Avatar
Claude
Y à t'il une fonction dans exel pour faire une division.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jojolapin
"Claude" a écrit dans le message de news:

Y à t'il une fonction dans exel pour faire une division.


que veux tu?
division classique avec le symbole / Ó/C3
division entière avec la fonction ENT =ENT(D3/C3)

Avatar
claude
Merci j'ai eu ma réponse, ce que je voulais faire ex: (E96/4)

Merci

De Claude



"jojolapin" a écrit dans le message de
news:

"Claude" a écrit dans le message de
news:
Y à t'il une fonction dans exel pour faire une division.


que veux tu?
division classique avec le symbole / Ó/C3
division entière avec la fonction ENT =ENT(D3/C3)




Avatar
GD
;o)))
jojolapin wrote:
division classique avec le symbole / Ó/C3
division entière avec la fonction ENT
=ENT(D3/C3)
;o)))

et si on a perdu le "/" ......
on aurait pu rajouter :
=EXP(LN(D3)-LN(C3))
@+

Avatar
Clément Marcotte
Bonjour,

et si on a perdu le "/" ......
on aurait pu rajouter :
=EXP(LN(D3)-LN(C3))
@+


J'y pensais pas à celle-là. En passant, savais-tu que l'on pouvait,
du moins selon quelqu'un, mettre une barre de progression dans un
MsgBox ?
--
On apprend pas à un vieux singe à faire des grimaces

Avatar
Michel NOLF
Bien vu Clement!
Amicalement Michel

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

et si on a perdu le "/" ......
on aurait pu rajouter :
=EXP(LN(D3)-LN(C3))
@+


J'y pensais pas à celle-là. En passant, savais-tu que l'on pouvait,
du moins selon quelqu'un, mettre une barre de progression dans un
MsgBox ?
--
On apprend pas à un vieux singe à faire des grimaces




Avatar
Alain CROS
Bonjour.

J'y pensais pas à celle-là. En passant, savais-tu que l'on pouvait,
du moins selon quelqu'un, mettre une barre de progression dans un
MsgBox ?


Il semblerai que ce soit un spécialiste des API ... alors peut être comme ça.

Alain CROS

Cet exemple affiche une boite de message contenant une barre de progression qui, lorsqu'elle est terminée, ferme la boite de
message.
Le code suivant devra être placé dans un module à cause de l'opérateur AddressOf.

Private Declare Function SetTimer& _
Lib "user32" _
(ByVal Hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&)

Private Declare Function ShowWindow& _
Lib "user32" _
(ByVal Hwnd&, ByVal nCmdShow&)

Private Declare Function EnableWindow& _
Lib "user32" _
(ByVal Hwnd&, ByVal fEnable&)

Private Declare Function KillTimer& _
Lib "user32" _
(ByVal Hwnd&, ByVal nIDEvent&)

Private Declare Function SendMessage& _
Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd&, ByVal wMsg&, ByVal wParam&, lParam As Any)

Private Declare Function GetCurrentThreadId& _
Lib "kernel32" _
()

Private Declare Function SetWindowsHookEx& _
Lib "user32" Alias "SetWindowsHookExA" _
(ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)

Private Declare Function UnhookWindowsHookEx& _
Lib "user32" _
(ByVal hHook&)

Private Declare Function GetDlgItem& _
Lib "user32" _
(ByVal hDlg&, ByVal nIDDlgItem&)

Private Declare Function GetClientRect& _
Lib "user32" _
(ByVal Hwnd&, lpRect As RECT)

Private Declare Function CreateWindowEx& _
Lib "user32" Alias "CreateWindowExA" _
(ByVal dwExStyle&, ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, _
ByVal x&, ByVal y&, ByVal nWidth&, ByVal nHeight&, ByVal hWndParent&, _
ByVal hMenu&, ByVal hInstance&, lpParam As Any)

Private Declare Function GetParent& _
Lib "user32" _
(ByVal Hwnd&)

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private lgHook&, PbHwnd&

Sub ProgressMsgBox()
Const WH_CBT& = &H5
lgHook = SetWindowsHookEx(WH_CBT, AddressOf LeHook, 0&, GetCurrentThreadId)
MsgBox "Boite de message avec ProgressBar", , "Utilisation de SetTimer"
End Sub

Private Function LeHook&(ByVal lMsg&, ByVal wParam&, ByRef lParam&)
Const PBM_SETBARCOLOR& = &H409, PBM_SETBKCOLOR& = &H2001, _
HCBT_ACTIVATE& = &H5, WS_CHILD& = &H40000000, _
WS_VISIBLE& = &H10000000, SW_HIDE& = 0&
Dim Rtc As RECT
If lMsg = HCBT_ACTIVATE Then
ShowWindow GetDlgItem(wParam, 1&), SW_HIDE
GetClientRect wParam, Rtc
With Rtc
PbHwnd = CreateWindowEx(0&, "msctls_progress32", "", WS_CHILD Or WS_VISIBLE, _
.Right * 1& / 10&, .Bottom * 7& / 10&, .Right * 8& / 10&, _
.Bottom * 2& / 10&, wParam, 0&, 0&, 0&)
End With
SendMessage PbHwnd, PBM_SETBARCOLOR, 0&, ByVal &HFF
SendMessage PbHwnd, PBM_SETBKCOLOR, 0&, ByVal &HFFFF&
SetTimer wParam, 1&, 300&, AddressOf StopMsgBox
UnhookWindowsHookEx lgHook
End If
LeHook = False
End Function

Private Sub StopMsgBox()
Const WM_SYSCOMMAND& = &H112, SC_CLOSE& = &HF060, _
PBM_GETPOS& = &H408, PBM_STEPIT& = &H405
Dim AppHwnd&, BdHwnd&
If SendMessage(PbHwnd, PBM_GETPOS, 0&, 0&) < 100& Then
SendMessage PbHwnd, PBM_STEPIT, 0&, 0&
Else
BdHwnd = GetParent(PbHwnd)
AppHwnd = GetParent(BdHwnd)
KillTimer BdHwnd, 1&
EnableWindow AppHwnd, True
SendMessage BdHwnd, WM_SYSCOMMAND, SC_CLOSE, 0&
End If
End Sub