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

Help me please :Effacer une cellule en fonction d'une autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dss
  • Date de début Date de début

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
D

dss

XLDnaute Occasionnel
Bonsoir le forum,

Je voudrais programmer en VBA la condition suivante :

Si j'active une cellule de la colonne A alors efface sur la meme ligne la valeur de la cellule B et vice versa.

Quelqu'un pourrait-il m'aider?

Merci par avance

dss
 
Trier par date Trier par votes
Re : Help me please :Effacer une cellule en fonction d'une autre

Bonsoir dss,

Tu sembles connaître VBA, donc je t'envoi cette macro version brute et te laisse l'adapter à ton cas.

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 Then ... [COLOR="Blue"]'effacer ...[/COLOR]
End Sub

En cas de soucis, fais le nous savoir.
 
Vote positif 0 Vote négatif
Re : Help me please :Effacer une cellule en fonction d'une autre

Bonsoir dss

essaies cela
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then Target.Offset(0, -1).Clear
If Target.Column = 1 Then Target.Offset(0, 1).Clear
End Sub

Bonne soirée
Kotov

Edit : Collision avec Exce-Lent qui me bat au sprint (j'ai écrit une ligne de plus 😉! )
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Help me please :Effacer une cellule en fonction d'une autre

Bonsoir Excel-lent et Kotov,

Merci tout d'abord à vous deux de m'apporter vos lumières et connaissances pour m'aider à résoudre mon problème.

J'ai essayé votre code et effectivement il fonctionne.
Néanmoins, je n'ai pas été assez précis dans mon premier message et m'en excuse :

En fait, j'ai besoin de supprimer soit valeur en colonne A ou B mais uniquement par rapport à une même ligne :target row je crois mais je ne sais pas comment l'associer avec target column

Exemple : si je clique sur A5 je veux effacer uniquement B5 et vice versa.
"" "" "" A117 "" "" "" B117 "" ""
Merci de votre aide

Cordialement

dss
 
Vote positif 0 Vote négatif
Re : Help me please :Effacer une cellule en fonction d'une autre

Re,

Pas sûr d'avoir bien compris.
La macro qu'Excel-Lent et moi t'avons proposé efface bien B5 quand tu cliques en A5 et inversement.
Evidemment, si tu cliques en A5 puis en B5 tu te retrouves avec 2 cellules vides.

Je te propose une autre macro avec 2 variables temporaires de stockage permettant de conserver l'une ou l'autre valeur selon la cellule activée. Mais je ne suis pas persuadé d'avoir compris ta demande.

Ce code correspond t'il à tes besoins ?

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Temp1
Dim Temp2

If Target.Column > 1 Then Temp1 = Target.Offset(0, -1)
If Target.Column < 256 Then Temp2 = Target.Offset(0, 1)
If Target.Column = 2 Then Target = Temp1: Target.Offset(0, -1).Clear
If Target.Column = 1 Then Target = Temp2:  Target.Offset(0, 1).Clear
End Sub

Bonne soirée
Kotov
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Help me please :Effacer une cellule en fonction d'une autre

Bonsoir Kotov,

En fait, une mauvaise insertion lors de la recopie du code dans ma macro me faisait planter la macro : le problème est désormais résolu.

Encore merci à tous les deux

Bonne soirée

Cordialement

dss
 
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

D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
298
job75
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
299
Nico Gre
N
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
333
Marie.
M
  • Question Question
Microsoft 365 Extraire éléments d'une cellule
Réponses
9
Affichages
366
Hecatonchire
H
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
642
TooFatBoy
H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
251
sylvanu
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
404
ascal44
A
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
327
PRy
P
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
1 K
kiki29
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
357
Diane272727
D
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
1 K
Alain 79
A
G
  • Question Question
Microsoft 365 Résultat dans une cellule en fonction d'une autre cellule
Réponses
1
Affichages
202
vgendron
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
340
Ckyara31
C
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
1 K
jojo4738
J
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
824
rtlv17
R
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
719
JHA
J
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
402
agayet
A
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
429
tristan05
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
463
didier09
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…