selectionchange

[tany]

Bonjour,

petit problème de méconaissance de ma part...
en A1 et en B1 j'ai des saisies chiffres
le calcul résultant se trouve en C1

j'aimerai que si je change ces données de A1 ou B1 cela provoque l'effacement de C1
et QUE avec ces cellules A1 ou B1, toutes autres cellules ne déclenchant rien de tel !
c'est je crois dans worksheet_selectionchange mais comment écrire ce code ?
si nécessaire je fais une pièce jointe. Merci d' avance.

 

[camarchepas]

Re : selectionchange

Bonjour ,

A mettre dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Or Target.Address = "$B$1" Then
  Application.EnableEvents = False
   Range("C1") = ""
  Application.EnableEvents = True
 End If
End Sub

 

[DoubleZero]

Re : selectionchange

Bonjour, tany, camarchepas 😀, le Forum,

Ou comme ceci ?

Option Explicit
Sub Worksheet_change(ByVal target As Range)
    If target.Address <> "$A$1" And target.Address <> "$B$1" Then Exit Sub
    If [a1] = "" Or [b1] = "" Then
        [c1] = ""
    Else
        [c1] = "Bonjour !"    ' adapter la formule...
    End If
End Sub

A bientôt 🙂

 

[job75]

Re : selectionchange

Bonjour tany, camarchepas, DoubleZero,

Si l'on s'en tient strictement au problème posé :

j'aimerai que si je change ces données de A1 ou B1 cela provoque l'effacement de C1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:B1]) Is Nothing Then [C1] = ""
End Sub

A+

 

[tany]

Re : selectionchange

M'en vais expérimenter tout cela
merci à tous trois et bonne soirée
A+

 

[Si...]

Re : selectionchange

salut

en A1 et en B1 j'ai des saisies chiffres
le calcul résultant se trouve en C1

si... l'on considère la présentation de la situation avant tout changement, cela implique le présence d'une formule un C1, non ?
Si on veut garder celle-ci,

Private Sub Worksheet_Change(ByVal R As Range)
  If Not Intersect(R, [A1:B1]) Is Nothing And R.Count = 1 Then
    If R = "" Then [C1] = "" Else [C1].FormulaLocal = "=A1+2*B1"  '= toute autre formule
   End If
End Sub

Ce qui correspondrait à la formule en C1 : =SI(OU(A1="";B1="");"";A1+2*B1).

Si tu ne veux plus la formule, la proposition de Job suffit amplement😉.