Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

dionys0s

XLDnaute Impliqué
Bonsoir le forum

J'ai les deux codes suivants dans ma Feuil1 :
Code: 
Sub CopSoc()

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

End Sub

Code: 
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
 
Trier par date Trier par votes
Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

Bonsoir,

Ca ne serait pas :

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

Bonne soirée,

mth

Edit: ou encore:
Code: 
If Target = [B1] Then

Edit 2: 🙂 Bonsoir James 🙂
Bises 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : éxécution automatique si modification de cellule qui en fait trop...

Bonsoir,

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

A +

Edit : Bonsoir Mimi ...
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
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 :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
284
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
514
spike29
S
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
407
Pierreavecunp
P
J
  • Question Question
XL 2019 recuperer plage de cellule sur feuille differente
Réponses
2
Affichages
703
juju91
J
I
  • Question Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
1 K
patricktoulon
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
795
Dranreb
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
835
HANN
H
A
  • Résolu(e)
XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite
Réponses
10
Affichages
995
arnoldbrice19
A
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
2 K
xxexcel
X
K
  • Question Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
1 K
ThierryP
T
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
834
Francky79
F
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
D
  • Question Question
Microsoft 365 Envoi mail Outlook depuis Excel : changement de taille de police si signature insérée
Réponses
6
Affichages
2 K
Deadpool_CC
B
  • Question Question
XL 2016 Supprimer contenu de deux autres cellules en fonction d'une cellule
Réponses
8
Affichages
835
babacool22
B
G
  • Question Question
XL pour MAC Test si cellule non vide / copie de formule
Réponses
6
Affichages
1 K
Gilouexcell
G
V
  • Question Question
Microsoft 365 Générer un mail Outlook via Excel si modification colonne Excel
Réponses
1
Affichages
2 K
gig83500
G
Z
  • Question Question
Microsoft 365 Changement de la valeur d'une cellule en fonction de la valeur d'une autre cellule
Réponses
7
Affichages
1 K
Zifox
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…