Autres Je vais tenter d'expliquer ce que je veux

[un internaute]

Bonjour le forum
Lorsque je double clique cellule A3 (date du jour) ça fait bien le boulot c'est à dire ça écrit cellules G9 - H9
Pour effacer je fait un redouble clic toujours cellule A3 ça efface les colonnes A B C D
Mais je voudrais que BEROCCA reste en cellule C3 une seule fois

Je tape à la main toujours cellule cellule A3 par exemple 30/07/2025 ça fait bien le boulot mais je voudrais que BEROCCA reste en C3 une seule fois
Il faut tellement toucher aux macros mais je n'ose pas
Si quelqu'un peut le faire je suis preneur!!!
Merci à vous

 

[un internaute]

Voilà

 

[patty58]

Bonjour
J'ai fait une seule modif, est-ce suffisant ?
Dans la procédure qui suit, :

Private Sub Worksheet_Change(ByVal Target As Range)

J'ai modifié cette ligne :

Range("A3:C101").ClearContents

par

Range("A4:C101").ClearContents

Je ne sais si cela ira
Bonne journée

 

[AtTheOne]

Bonsoir à toutes & à tous, bonsoir @un internaute, @patty58
Presque la même modification nouvelle ligne =

Union([A3:B3], [A4:C101]).ClearContents

Voir fichier joint (passé au format xlsm)

À bientôt

 

[un internaute]

Bonsoir AtTheOne

Super​

Pour éviter d'avoir la 1ère ligne en rouge j'ai ajouté dans la MFC "Ristabil non"
Pas d'autre astuce pour aller plus vite car c'est fastidieux
Chapeau
Merci et bonne fin de soirée
Cordialement

 

[AtTheOne]

re

Pas d'autre astuce pour aller plus vite car c'est fastidieux

Heu ! je n'ai pas vraiment pris le temps de comprendre les méandres des macros, ni ton utilisation de ce classeur, avec un peu plus d'explications de ta part, peut-être ...
À bientôt

 

[AtTheOne]

Re
Je ne veux pas vraiment faire de morale mais @un internaute tu pourrais quand même remercier @patty58 non ? 🤔

 

[un internaute]

Bonjour AtTheOne
S'il y en a un qui ne remercie pas ce n'est pas moi et je comptais le faire ce matin
Hier pas bien
On ne peut pas être bien avec 1 opération à cœur ouvert, 1 endocardite + 2 cancers (colon et foie)
Hier au soir j'étais mal
On ne sait pas qui est derrière un clavier mais là il fallait + nonagénaire!!
Ça te va?
Bonne journée

 

[AtTheOne]

bonjour à toutes & à tous, bonjour @un internaute

On ne sait pas qui est derrière un clavier mais là il fallait + nonagénaire!!
Ça te va?

Je pensais avoir pris quelques précautions dans mon message pour ne froisser personne

Je ne veux pas vraiment faire de morale

Bon désolé pour toi, je te souhaite le meilleur,
à bientôt

 

[un internaute]

Bonjour le forum
Dans ce programme pour faire afficher les feuilles on fait un double clic sur cellule A2
La 1ère feuille est TRAITEMENT ZALERG
Pourquoi je n'arrive pas au 2ème double clic sur cellule A3 à faire effacer la colonne A colonne B et colonne D et pourtant j'ai apporté les modifs faites par

[B]AtTheOne[/B] QUE JE REMERCIE BEAUCOUP ​

Il y a un truc énorme que je ne vois pas
Si quelqu'un peut me faire la feuille ZALERG je ferais les autres
J'en ai fait 72 !!!
Je suis HS
Merci à vous
Cordialement

 

[un internaute]

Voilà le fichier raccourci

 

[un internaute]

Re le forum j'ai mis en commentaires ligne dans Thisworbook
Ça résout le problème mais pas logique

      'If Target.Column = 1 And Target.Row > 2 Then Target.Value = Date: Cancel = True       ' Au minimum la ligne 3 et colonne A

Bonne fin de soirée
Cordialement