Discussion :

[maroonx]

Bonjour,

Je suis nouveau sur ce forum, bonjour à tous!
J'ai un travail à réaliser sur excel et j'aimerais savoir s'il est possible d'attribuer une formule à une cellule de telle sorte que lorsque qu'on y entre une valeur le calcul soit fait automatiquement et que ce soit le résultat qui s'affiche dans la cellule après avoir cliqué sur "entré"??

Ça me serait d'une grande aide!

Merci d'avance!

[Philippe Tulliez]

Bonjour,
Pas certain d'avoir bien compris ce que tu souhaites
Voici deux exemples pour placer la valeur d'un calcul dans une cellule.
En A2 et B2 de la feuille nommée [Feuil1] une valeur et en C2 le résultat du produit des deux
' Exemple 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With ThisWorkbook.Worksheets("Feuil1")
  With .Range("C2"): .Formula = "=A2*B2": .Value = .Value: End With
 End With

' Exemple 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With ThisWorkbook.Worksheets("Feuil1")
 .Range("C2").Value = Evaluate("=A2*B2")
 End With

[maroonx]

Bonjour et merci pour ta réponse!

En fait je pense utiliser la solution que tu m'as donnée!

Mais à la base ma question c'était de savoir si on peut avoir une cellule vide configurée avec une formule de telle sorte que lorsqu'on y entre une valeur ce soit le résultat qui s'affiche (donc la valeur entrée dans la cellule est remplacée automatiquement par le résultat issu de la formule utilisant la valeur entrée comme variable). Je ne sais pas si c'est possible?

Merci encore!

[Philippe Tulliez]

Bonjour,

à la base ma question c'était de savoir si on peut avoir une cellule vide configurée avec une formule de telle sorte que lorsqu'on y entre une valeur ce soit le résultat qui s'affiche (donc la valeur entrée dans la cellule est remplacée automatiquement par le résultat issu de la formule utilisant la valeur entrée comme variable).

Une cellule contient soit une constante, soit une formule. Il est évident que si tu tapes une valeur dans une cellule qui contient une formule celle-ci disparaît.

Je ne sais pas si c'est possible?

Alors évidemment on peut toujours bricoler avec des procédures événementielles mais est-ce raisonnable ?

[Guimoy]

Bonjour maroonx,

je suis d'accord avec Philippe.

Si jamais, juste parce que l'idée me paraissait amusante

2 Solutions

1 : lorsque l'on tape sur entrée et que la sélection change.
( à coller dans le code de la feuille)

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
' Cette routine ne fonctionne que si lors de la validation(entrée) on passe à la cellule suivante
' Événement déclenché à la modification d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celAdr As String    ' l'adresse de la cellule à modifier
    ' affectation
    celAdr = "$A$1"
    ' si la cellule modifié est celle voulu et que c'est un autre cellule qui est sélectionnée
    If Target.Address = celAdr And ActiveCell.Address <> celAdr Then
        ' Sélection de la cellule a modifier (pour éviter de boucler à nouveau.
        Me.Range(celAdr).Select
        ' Application de la formule
        Me.Range(celAdr) = Target.Value + 1
    ' fin si
    End If
End Sub

2 : c'est un peu plus sûr

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
' Sera à vrai si la formule à déjà été appliqué
Private isFormulaApply As Boolean
 
' Événement déclenché à la modification d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celAdr As String    ' l'adresse de la cellule à modifier
    ' affectation
    celAdr = "$A$1"
    ' si la cellule modifié est celle voulu et que la formule n'a pas déjà été appliqué.
    If Target.Address = celAdr And Not isFormulaApply Then
        ' la formule est appliqué
        isFormulaApply = True
        ' Application de la formule
        Me.Range(celAdr) = Target.Value + 475
    ' sinon (la formule à déjà été appliqué)
    Else
        ' remise à faux de l'application
        isFormulaApply = False
    ' fin si
    End If
End Sub

(il y a sûrement d'autre solutions moins compliquées...)

[maroonx]

Bonjour,

C'est exactement ce que je cherchais merci beaucoup!! Maintenant je vais essayer de comprendre le code parce que pour l'instant je suis pas très doué avec VBA!

En tous cas merci encore à vous deux!