Discussion :

[NEC14]

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

[Invité]

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.

[gFZT82]

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 :

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

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.

[NEC14]

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

[NEC14]

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.

[gFZT82]

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 :

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

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.

[NEC14]

Super, maintenant je peux clotûrer ce post.

Merci beaucoup