IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Formule de 2 cellules ARRONDI.INF en VBA [XL-2019]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Février 2022
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : Février 2022
    Messages : 24
    Par défaut Formule de 2 cellules ARRONDI.INF en VBA
    Bonjour à tous
    J'ai déja un code vba sur la multiplication simple en vba mais je veux que le résultat soit arrondi en inferieur
    Comment le faire Je vais vous montrer mon ancien code dans mon fichier de Gestion de stock .Voir la ligne 62. Je veux le résultat +Arrondi.inf(e*f;0)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    Sub Ecrire_Entrées()
    Dim MesLignes As Integer
    Dim MaDate As Date, MaRéférence, MaPièce, MonFournisseur, MesObservations As String
    Dim Formule As String, MaQuantité As Single, MonPUHT As Currency
     
    With UF_Entrées
        If .Titre.Caption = "Ajouter une Entrée" Then
            ' AJOUT *******************************************************
            ModeLigne = "Ajout"
            MaLigne = Range("Entrées").Row + 1
        Else
            'MODIF *******************************************************
            ModeLigne = "Modif"
        End If
     
        MaDate = .TB_Date.Value
        MaRéférence = .TB_Référence.Value
        MaPièce = .CB_Pièce.Value
        MaQuantité = .TB_Quantité.Value
        MonPUHT = .TB_PUHT.Value
        MonFournisseur = .CB_Fournisseur.Value
        MesObservations = .TB_Observations.Value
     
    End With
     
    Sheets("Entrées").Activate
    Call Déprotéger
     
    If ModeLigne = "Ajout" Then
        Application.ScreenUpdating = False
        With Sheets("Entrées")
            .Rows(MaLigne).Select
            Selection.Copy
            Selection.Insert Shift:=xlDown
            Selection.ClearContents
            Application.CutCopyMode = False
        End With
    End If
     
    With Sheets("Entrées")
     
        'Date (colonne A)
        .Range("A" & MaLigne).Value = MaDate
     
        'Référence (colonne B)
        .Range("B" & MaLigne).Value = MaRéférence
     
        'Pièce (colonne C)
        .Range("C" & MaLigne).Value = MaPièce
     
        'Fournisseur (colonne D)
        .Range("D" & MaLigne).Value = MonFournisseur
     
        'Quantité (colonne E)
        .Range("E" & MaLigne).Value = MaQuantité
     
        'PUHT (colonne F)
        .Range("F" & MaLigne).Value = MonPUHT
     
       'Montant (colonne G)
        '=E4*F4  
        Formule = "=E" & MaLigne & "*F" & MaLigne         ' <------------  ICI
        .Range("G" & MaLigne).FormulaLocal = Formule
     
        'Observations (colonne H)
        .Range("H" & MaLigne).Value = MesObservations
     
        .Range("A" & MaLigne).Select
     
    End With
     
    Sheets("Entrées").Activate
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 425
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 425
    Par défaut
    Bonsoir,

    Ligne 62 et 63:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Formule = "=INT(E" & MaLigne & "*F" & MaLigne & ")"         ' <------------  ICI
        .Range("G" & MaLigne).Formula = Formule
    Cordialement.

  3. #3
    Membre averti
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Février 2022
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : Février 2022
    Messages : 24
    Par défaut
    Citation Envoyé par EricDgn Voir le message
    Bonsoir,

    Ligne 62 et 63:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Formule = "=INT(E" & MaLigne & "*F" & MaLigne & ")"         ' <------------  ICI
        .Range("G" & MaLigne).Formula = Formule
    Cordialement.
    Ca ne marche pas , il donne =INT(E4*F4) en barre de formule

  4. #4
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 425
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 425
    Par défaut
    Bonjour,

    Attention à bien indiquer .Formula (et pas .FormulaLocal).

    Cordialement.

  5. #5
    Membre averti
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Février 2022
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : Février 2022
    Messages : 24
    Par défaut
    oui je fais attention

  6. #6
    Membre averti
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Février 2022
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : Février 2022
    Messages : 24
    Par défaut
    merci c'est bon

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Insérer une formule dans une cellule Excel via VBA
    Par *.Har(d)t dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 19/02/2020, 13h02
  2. [VBA-E] Afficher et fixer la formule d'une cellule donnée
    Par cladsam dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 12/06/2014, 07h27
  3. Inscrire une formule dans une cellule par VBA
    Par marc56 dans le forum Excel
    Réponses: 6
    Dernier message: 23/11/2008, 23h57
  4. [VBA] Macro qui envoie une formule dans une cellule
    Par Okoss dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/04/2007, 22h32
  5. [VBA-E] - lire la formule d'une cellule
    Par jimbololo dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 06/06/2006, 13h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo