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

anw · 10 Mai 2013

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 · 10 Mai 2013

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.

Code:

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

anw · 10 Mai 2013

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 · 10 Mai 2013

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

Re

Teste ce fichier:

Staple1600 · 10 Mai 2013

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

Code:

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 · 10 Mai 2013

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

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

anw

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

anw

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

anw

XLDnaute Nouveau

Discussions similaires