4019 résultats trouvés

par Theze
11 novembre 2019, 15:04
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 143

Re: Module pour calculer montant TTC

Voici : Sub Test() Dim PrixUnit As Double Dim Quantite As Double Dim Remise As Single Dim TVA As Single On Error Resume Next PrixUnit = CDbl(InputBox("Indiquez le prix unitaire !", "Prix unitaire.")) If Err.Number <> 0 Then MsgBox "Entrez un prix valide !": Exit Sub Quantite = CDbl(InputBox("Indique...
par Theze
11 novembre 2019, 12:17
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 143

Re: Module pour calculer montant TTC

Dans le VBE, tu cliques droit sur l'UserForm et tu choisis "Code" pour arriver dans son module
par Theze
11 novembre 2019, 12:15
Forum : Excel - VBA
Sujet : Menu lanceur de macro
Réponses : 4
Vues : 64

Re: Menu lanceur de macro

Bonjour,

Une autre piste, pour l'exemple, en C5 une liste de validation avec les noms de tes macros et dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address(0, 0) <> "C5" Then Exit Sub
    
    Application.Run Target.Value
    
End Sub
par Theze
11 novembre 2019, 12:01
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 143

Re: Module pour calculer montant TTC

Voici un exemple :
Test formulaire.xlsm
(23.33 Kio) Téléchargé 9 fois
par Theze
11 novembre 2019, 11:43
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 143

Re: Module pour calculer montant TTC

Là, je pense que tu veux parler d'un UserForm avec des champs de saisie ?
par Theze
11 novembre 2019, 11:39
Forum : Excel - VBA
Sujet : Calcul du montant de l'escompte
Réponses : 12
Vues : 74

Re: Calcul du montant de l'escompte

Il est où le problème ?
En A1 la somme (1500)
en A2 le taux (0,1)
en A3 la date de début (12/09/2019)
et en A4 la date de fin (30/10/2019)
la fonction retourne 19,726027691201
ou alors, il y a quelque chose qui m'échappe dans ta demande !
par Theze
11 novembre 2019, 11:32
Forum : Excel - VBA
Sujet : Calcul du montant de l'escompte
Réponses : 12
Vues : 74

Re: Calcul du montant de l'escompte

Tu peux en faire une fonction pour l'utiliser dans Excel :
Function Escompte(Somme As Double, Taux As Single, DateDebut As Date, DateFin As Date) As Double
    
    Escompte = (Somme * Taux * DateDiff("d", DateDebut, DateFin)) / 365
    
End Function
=Escompte(A1;A2;A3;A4)
par Theze
11 novembre 2019, 11:26
Forum : Excel - VBA
Sujet : Calcul du montant de l'escompte
Réponses : 12
Vues : 74

Re: Calcul du montant de l'escompte

Bonjour, Un truc dans le genre ? Sub Test() Dim Somme As Double Dim T As Single Dim DateDebut As Date Dim DateFin As Date Somme = 1500 T = 0.1 DateDebut = CDate("12/09/2019") DateFin = CDate("30/10/2019") MsgBox (Somme * T * DateDiff("d", DateDebut, DateFin)) / 365 End Sub
par Theze
11 novembre 2019, 07:58
Forum : Excel - VBA
Sujet : Creer une fonction sommeprod en vba
Réponses : 3
Vues : 103

Re: Creer une fonction sommeprod en vba

Bonjour, Essais avec ceci, je suis parti du principe que la plage commence en ligne 1 : Function Result(NomFeuille As String, ColonneCode As Integer, ColonneValeur As Integer, Critere As String) As Double Dim Fe As Worksheet Dim PlgCode As Range Dim PlgValeur As Range Dim I As Long Dim Fin As Long D...
par Theze
10 novembre 2019, 11:15
Forum : Excel - VBA
Sujet : [VBA] - Arrêter une recherche lorsque le dernier élément est trouvé
Réponses : 3
Vues : 51

Re: [VBA] - Arrêter une recherche lorsque le dernier élément est trouvé

Bonjour, Testes ceci : Sub Savedatabase() Dim Plage As Range Dim PlgCode As Range Dim Cel As Range Dim Trouve As Range With Worksheets("Saisie"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With With Worksheets("Correspondances"): Set PlgCode = .Range(.Cells(2, 5), .Cells...