Macro permettant de remplir les cellules sélectionnées de "X"

[anw]

Bonjour à toutes et à tous !

J'ai eu beau chercher, je n'ai pas trouvé mon bonheur sur les divers forums consultés alors je m'en remets à vous !

Je gère un fichier que mes clients doivent pouvoir remplir simplement. Il y a un planning (31 colonnes X 100 lignes) qu'ils remplissent par des "X". J'aimerais leur proposer une macro qui remplira automatiquement de "X" les cases préalablement sélectionnées.

Exemple : je sélectionne la plage A1:C4, je valide et l'ensemble des cases correspondantes se remplit de "X"

Merci pour vos éclairages !
Cordialement

 

[MJ13]

Re : Macro permettant de remplir les cellules sélectionnées de "X"

Bonjour anw

Tu peux essayer de mettre dans la feuille ce code qui agira sur le click droit.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Selection.Value = "x"
End Sub

 

[anw]

Re : Macro permettant de remplir les cellules sélectionnées de "X"

Merci pour ta réponse, je ne suis pas sur de comprendre comment ça marche avec le clic droit, mon idée était plus d'affilier la macro à un bouton, mon fichier devant être très intuitif pour des gens qui maîtrisent mal excel...

 

[MJ13]

Re : Macro permettant de remplir les cellules sélectionnées de "X"

Re

Teste ce fichier:

 

[Staple1600]

Re : Macro permettant de remplir les cellules sélectionnées de "X"

Bonsoir à tous


Avec cette macro, ça va être coton. Le X va devenir cauchemardesque

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Target = "X"
Application.EnableEvents = True
End Sub

Donc à tester histoire d'en rire

Ensuite va falloir peaufiner la chose pour sortir de cet enfer peuplé de X en veux-tu en voilà

EDITION: Bonsoir MJ13

 

[anw]

Re : Macro permettant de remplir les cellules sélectionnées de "X"

Tu pouvais pas mieux faire ! Merci mille fois, c'est exactement ce dont j'avais besoin !
Bon weekend