VBA : éxécution automatique si modification de cellule qui en fait trop...

[dionys0s]

Bonsoir le forum

J'ai les deux codes suivants dans ma Feuil1 :

Sub CopSoc()

Range("A15").FormulaR1C1 = "=IF(R1C2="""","""",R1C2)"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then
        CopSoc
    Exit Sub
    End If
End Sub

J'aimerais comprendre pourquoi je ne peux pas supprimer le contenu de ma cellule A15. Normalement la macro ne devrait s'executer que lorsque ma cellule B1 est modifiée, pas lorsque la cellule A15 l'est.

Si quelqu'un pouvait éclairer ma lanterne à ce sujet je lui en serais un gré infini 🙄

Bonne soirée à toutes euh zé à tous

 

[mth]

Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

Bonsoir,

Ca ne serait pas :

If [B][COLOR=darkslateblue]NOT[/COLOR][/B] Intersect(Target, [B1]) Is Nothing Then

Bonne soirée,

mth

Edit: ou encore:

If Target = [B1] Then

Edit 2: 🙂 Bonsoir James 🙂
Bises 🙂

 

[James007]

Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

Bonsoir,

Tu peux essayer :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
    CopSoc
End Sub

A +

Edit : Bonsoir Mimi ...

 

[dionys0s]

Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

J'en rigole tellement ça avait l'air simple...
Ca doit être nerveux.

Vos deux solutions marchent

MERCI !!! Merci beaucoup !

 

[dionys0s]

Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

Re le forum

James007 (ou quelqu'un qui sait), comment dois-je adapter le code pour le réutiliser dans la même feuille, mais avec une cellule différente (B2 en l'occurence) ? J'ai essayé comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
    Macro1
End Sub

mais il me met le message d'erreur suivant :
Erreur de compilation:
Nom ambigu détecté : Worksheet_Change

Du coup j'ai essayé en rajoutant juste un 2 à la suite, mais ça ne marche pas 😕

Merci d'avance pour votre aide à tous