Résultat dans une cellule

Résolu
dedji25 Messages postés 403 Statut Membre -  
dedji25 Messages postés 403 Statut Membre -
Bonjour,

je voudrais s'il est possible de:

multiplier les données de 2 cellules exemple A1*A2 et voire le résultat dans la cellule A2?

en clair je veux que:lorsque je saisie une donnée (ex 5)dans une cellule au lieu que sa soit la donnée qui s’affiche je veux avoir un resultat (ex 10 = 5*2).

merci pour votre aide

5 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    Oui c'est possible mais uniquement en VBA si tu as quelques notions
    1
    1. dedji25 Messages postés 403 Statut Membre 3
       
      je connais pas grande chose mais avec ton aide je pense y arriver et sa me fera trop plaisir
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    clic droit sur l'onglet de feuille concernée et colle ce code dans le VBA

    Option Explicit
    Dim cumul
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    cumul = Range("A2")
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    If Target.Address = "$A$1" Then Range("A2") = cumul * Range("A1")
    If Target.Address = "$A$2" Then Range("A2") = Target * Range("A1")
    Application.EnableEvents = True
    End Sub
    tu reviens sur ta feuille de calcul teste en saisissant des valeurs en A1 et A2
    1
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    es ce que c'est cela que tu cherchais faire, si oui tu peux simplifier le code, remplace le code précédent par

    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    If Target.Address = "$A$1" Then Range("A2") = [A2] * Range("A1")
    If Target.Address = "$A$2" Then Range("A2") = Target * Range("A1")
    Application.EnableEvents = True
    End Sub

    1
  4. dedji25 Messages postés 403 Statut Membre 3
     
    c'est bien ce que je voulais

    merci a vous
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. JEXALO Messages postés 222 Statut Membre 157
     
    Bonjour,

    Une cellule ne peut contenir qu'une valeur.
    Si vous voulez utiliser le contenu d'une cellule dans un calcul, il faut faire afficher le résultat dans une autre cellule, par exemple :
    En A1 : 5
    En A2 : 2
    En A3 : =A1*A2 et qui affichera 10
    -2