Aide pour une formule en VBA

Bonjour,

Comment écrire en Vba cette formule de calcul liée à la feuille active.

Si on saisi dans une cellule de la colonne R alors la cellule sur la même ligne et se trouvant dans la colonne P reçoit la valeur se trouvant en cellule B1
(Exemple : en cellule R4 je saisi 100.00 alors dans la cellule P4 le chiffre 24 s'affiche)
Je souhaite le faire en Vba car je dois pouvoir saisir autre chose si c'est une autre cellule qu'en R qui est saisie

Merci par avance pour votre aide

Bonjour,
Tu as dans Excel un très bon didacticiel, tu enregistre une macro tu écris ta formule dans la cellule qui t’intéresse, tu arrêtes ta macro tu vas dans VB et tu regardes comment Excel a fait.

Bonjour,

Avec le code ci-dessous copié dans le module de la feuille, la cellule P4 est renseignée automatiquement avec la valeur de B1 dès qu'une valeur est saisie en R4. Par contre, rien n'empêche une saisie directe en P4.

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 18 Then Target.Offset(0, -2) = Range("$B$1") End If End Sub

---

Cordialement.

Super gFZT82, c'est exactement ce que je voulais avoir comme résultat.
Merci beaucoup :ccool:

Désolé, je reviens un instant sur ce post car j'ai omis une précision importante.
En effet, si la cellule de R est vide alors la cellule de P doit l'être aussi. Toutes mes excuses.

Une petite adaptation pour que la cellule P soit effacée si R est effacée.
Par contre, tu n'as pas avoir la condition "si la cellule de R est vide alors la cellule de P l'est aussi" puisque tu autorises la saisie directe de P.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 18 Then If Target <> "" Then Target.Offset(0, -2) = Range("$B$1") Else Target.Offset(0, -2) = "" End If End If End Sub

---

Cordialement.

Super, maintenant je peux clotûrer ce post.

Merci beaucoup :ccool: