Microsoft 365 VBA - Quand cellule vide un mot s'y insert

[Nathan027]

Bonjour à toute et à tous

Voilà mon "projet"

Dans un planning que je viens de créer, dans la plage de cellule "H15:H2000", des infos peuvent être renseignées, toutefois la cellule peut être vide ou effacée

C'est dans ce cas précis que j'aimerai que s'inscrive automatiquement le même mot que dans la cellule G (pour des questions pratique je ne veux pas écrire de formule dans la cellule)

Sauriez vous m'aider ?

Un grand merci d'avance.

 

[Lolote83]

Bonjour @Nathan027,
Peut être qu'un petit fichier exemple (sans donnée confidentielle) et avec suffisamment d'explication nous permettrait de mieux cibler ta demande
Cordialement
Lolote83

 

[Nathan027]

Bonjour @Lolote83

Voici un fichier de principe

Merci 🙂

 

[Lolote83]

Re bonjour,
Merci pour le fichier transmis.
Cependant, si on efface une cellule, comment veux tu que l'on remplace cet effacement par sa cellule de gauche ?
Au vue du fichier, je ne vois pas comment faire
Désolé
@+ Lolote83

 

[Nathan027]

Et si on oublie la partie "on efface une cellule" ?? car effectivement c'est pas très logique.

 

[riton00]

Bonjour,
A tout hasard avec un code VBA
Ps: activer les macro pour un fonctionnement normal
Slts