VIA55 effacer contenu cellule lorsque une autre est remplie Résolu/Fermé

Question

Bonjour, J'ai crée cet exemple afin que je puisse comprendre comment automatiquement l'on peu effacer le contenu d'une autre :
En  (B3:B7) je rentre des chiffres. Dans ce cas précis, j'aimerai que lorsque je rentre en B4 le chiffre 5 celui de B3 (cad le 7 soit effacé). Idem pour les cellules B5, B6 et B7
Macro si besoin
Merci de vos réponses

https://www.cjoint.com/c/LDwlAxe1RRy



Configuration: Windows / Firefox 99.0

Le Pingou · Answer

Bonjour,
Et si on entre 5 en B3 que faire.....!
Combien de nombres peuvent se trouver dans la plage b3:b7 ?

via55 · Answer

Bonjour

Que viens-je faire dans cette galère ? Pourquoi mon pseudo dans ton titre ??

via55 · Answer

Re, 

Raymond, salut au passage, m'ayant rafraichi la mémoire, je me suis penché sur ton problème
Si tu veux lors d'une entrée dans une cellule de la plage que la valeur de la cellule juste au-dessus soit effacée il faut passer par un macro
Macro à mettre dans le worksheet de la feuille1 (Ouvrir l'éditeur VBA - double clic sur le nom de la feuille dans l'arborescence à gauche - Coller la macro dans la page blanche)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B7")) Is Nothing And Target.Value <> "" Then ' si entrée dans la plage B4:B7 et d'une valeur non nulle
ligne = Target.Row ' ligne de la cellule d'entrée
Range("B" & ligne - 1).ClearContents  'vide la cellule de la ligne au-dessus
End If
End Sub

Cdlmnt
Via

kiko8111 · Answer

Re, désolé Raymond mais c'est la seule façon que j'ai trouvé pour avoir une chance que tu me réponde. J'ai gardé un très bon souvenir de tes explications, le programme que j'ai monté fonctionne à merveille.
Je ne sais pas si tu as gardé une page, pour te repérer dans la dernière (12) j'avais certaines données dont nous n'avons jamais parlé. Cela sert a faire un prévisionnel à la fois sur les montants non validés et ceux validés tout en pouvant faire une réduction de mois (très pratique). Le seul inconvénient est l'obligation de retourner en page 12 pour effectuer un changement.
Je vais tester ta macro et je te tiendrai informé.
Merci, Christophe

kiko8111 · Answer

Re, je ne tarde pas.
Y a t'il une possibilité en colonne B que cela efface le chiffre 7 rentré en B3 lorsque en B4 ou idem dans la colonne je rentre comme dans l'exemple le chiffre 5 en B4.
Cela me permettrai d'avoir juste une cellule à remplir pour la page du mois que j'ai en vu et ne pas me soucier des autres feuilles?
Je sais, je suis compliqué mais comme toit j'aime les choses pratiques et justes.
A +, Christophe

kiko8111 · Answer

Pardons, j'ai oublié.
Si l'on retrouve le même chiffre dans les autres cellules ce n'est pas trop génant sachant que j'ai nommé une cellule en repaire car dans mon cas je suis en sans inverse pour le calcul des mois

via55 · Answer

Tu me dis pas ce qui au test de ma macro ne va pas ?
Elle efface bien toute valeur en B3 lorsqu'une valeur est entrée en B4 (peut importe la valeur)
idem pour B4 B5  puis B5 B6 et enfin B6 B7
mais peut être n'ai je pas compris ce que tu veux ?
Je ne comprend pas ce que tu veux dire par 
"Cela me permettrai d'avoir juste une cellule à remplir pour la page du mois que j'ai en vu et ne pas me soucier des autres feuilles? " (au passage tu sais que tu peux entrer la même valeur dans une cellule dans toutes les feuilles en un seul coup en sélectionnant d'abord toutes les feuilles ?)
Je ne comprends pas non plus
" Si l'on retrouve le même chiffre dans les autres cellules ce n'est pas trop génant sachant que j'ai nommé une cellule en repaire car dans mon cas je suis en sans inverse pour le calcul des mois "
Veux tu dire par là que la macro ne doit effacer que si nombre différent que celui de la cellule précédente ?

kiko8111 · Answer

Bonjour, je viens de refaire un classeur en situation des mois complets.
Colonne A3 vers A14 chez mois ce sont des feuilles différentes.
Colonne B3 vers B14 mois de l'année en dénomination inverse de chiffre pour le calcul restant de mon prévisionnel.
Colonne C14 est la référence pour le calcul des mois restant

En situation sur le classeur fourni, en C12 qui est la dernière valeur entrée il faut que le chiffre soit totalisé en C14 (ici dans ce cas c'est bon) mais en se replaçant dans le contexte du vrai classeur (mois séparés par pages) j'aimerai laisser apparaitre que le dernier chiffre renseigné, même si il ne correspond pas à la valeur numérique du mois (exemple 6 en colonne C7)

J'aurai due faire ce tableau dès le début, mais j'ai cherché avant de demander. C'est pour cela que l'on retrouve en colonne D un calcul qui si besoin peut être supprimé.
En espérant m’être bien expliqué
Merci, Christophe

https://www.cjoint.com/c/LDxfgf8nMSy

kiko8111 · Answer

Bonjours Raymond, j'ai répondu ce matin mais je viens de constater que le dernier sujet est passé entre les autres.
Il faut regarder le 9.
Dis moi si c'est bien passé STP
Christophe

kiko8111 · Answer

Re, je vais faire plus simple dans ma demande :
J'ai besoin que lorsque je rentre une information chiffrée de 1 à 12 en colonne B de B3 à B14 si il y a dans l’intervalle cité un chiffre il soit effacé lorsque un autre chiffre est indiqué.
Christophe

via55 · Answer

Au passage , moi c'est via55,  mon ami Raymond étant seulement intervenu au post 2 ☺

Ton fichier réduit avec la macro d'effacement :
https://www.cjoint.com/c/LDxmLqq6pse

Dis moi si c'est bien ça que tu souhaitais

Cdlmnt
Via

kiko8111 · Answer

Re, Merci via. Désolé pour le prénom, je pense que excel m'a fait perdre un peu de vision.
En ce qui concerne le fichier c'est parfait.
Promis, prochaine assistance (si besoin) le titre restera anonyme).
Bonne continuation, Christophe

via55 · Answer

Bon tant mieux si tu as trouvé ton bonheur
Pas grave pour le titre ☺ j'ai simplement été un peu étonné, d'habitude lorsqu'on veut être sûr de me joindre on me met en message en privé (par clic sur mon pseudo dans une discussion)
Bonne suite et peut être à une prochaine fois

kiko8111 · Answer

Re, de retour. 

J'ai mes numéros qui sont rangés dans la même colonne mais un dans chaque feuilles.
Je suis arrêté
Est il possible de modifier la formule  :    Range("B" & ligne - 1).ClearContents

Pour le début j'ai rentré les cellules séparées par une virgule
Géneral  Worksheet Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E40,E76,E112,E148,E184,E220,E256,E292,E328,E364,E400,E439")) Is Nothing And Target.Value <> "" Then ' si entrée dans la plage B4:B7 et d'une valeur non nulle
ligne = Target.Row ' ligne de la cellule d'entrée

Merci, Christophe

via55 · Answer

Re

Tu as l'air d'être sur le 1ere macro celle qui ne te satisfaisait pas puisqu'elle efface seulement la ligne au-dessus et non sur celle de mon post 13 !!!
et dans ton vrai fichier les cellules ont l'air d'être dispersées , j'ai peur que tu ne fasses une salade ....
De toutes façons comme tu as plusieurs feuilles tu dois avoir une macro par feuille
Bien sûr  Range("B" & ligne - 1).ClearContents  est modifiable mais pour la remplacer par quoi ?
Si tu entres une valeur en E112 les valeurs en E40, E76 etc doivent elles être effacées ?
Tu aurais intérêt à me fournir le vrai fichier qu'on puisse adapter la macro au lieu de bidouillage !!

VIA55 effacer contenu cellule lorsque une autre est remplie

15 réponses

Discussions similaires