Résultat dans une cellule

Résolu/Fermé
dedji25 Messages postés 353 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 3 mai 2017 - 3 mai 2017 à 14:28
dedji25 Messages postés 353 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 3 mai 2017 - 3 mai 2017 à 19:21
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

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
3 mai 2017 à 14:42
Bonjour,

Oui c'est possible mais uniquement en VBA si tu as quelques notions
1
dedji25 Messages postés 353 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 3 mai 2017 3
3 mai 2017 à 16:57
je connais pas grande chose mais avec ton aide je pense y arriver et sa me fera trop plaisir
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
3 mai 2017 à 17:16
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
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
3 mai 2017 à 18:09
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
dedji25 Messages postés 353 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 3 mai 2017 3
3 mai 2017 à 19:21
c'est bien ce que je voulais

merci a vous
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
JEXALO Messages postés 219 Date d'inscription mardi 12 juin 2007 Statut Membre Dernière intervention 19 février 2022 157
3 mai 2017 à 15:17
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