Résultat dans une cellule
Résolu
dedji25
Messages postés
403
Statut
Membre
-
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
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
A voir également:
- Résultat dans une cellule
- Resultat foot - Télécharger - Vie quotidienne
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Bloquer une cellule excel - Guide
- Lexer resultat - Télécharger - Sport
5 réponses
Bonjour,
Oui c'est possible mais uniquement en VBA si tu as quelques notions
Oui c'est possible mais uniquement en VBA si tu as quelques notions
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
