XL 2016 Recherche de Macro pour griser des cases sélectionnées

[noel33]

Bonjour à tous,

je cherche une macro qui pourrais me griser des cases que je sélectionne

Sur mon fichier Test, j'aimerai:

Sélectionner manuellement des cases (Ici A1-E5) puis, quand je clique sur le bouton "facturation", griser les cases sélectionnées, avec en une validation par fenêtre à texte ("voulez-vous facturer? Oui/non")

Quelqu'un a cela sous le coude?

D'avance merci,

Bonne journée,

N.

 

[soan]

Bonjour noel33,

sélectionne A1:E5 et clique sur le bouton "Facturé".

Sub Griser()
  If MsgBox("Voulez-vous facturer ?", 4, "Confirmation") = 6 Then Selection.Interior.Pattern = 17
End Sub

soan

 

[noel33]

Extra, merci!!

 

[Staple1600]

Bonsoir le fil

Avec un option en plus grâce à Application.InputBox

Sub Fade_To_Grey()
Dim Griserie_sans_alcool As Range
On Error Resume Next
Set Griserie_sans_alcool = _
    Application.InputBox("Séléctionner les cellules à griser", "Formater Sélection", , 200, 200, , , Type:=8)
If Err.Number <> 0 Then
MsgBox "Sélection annulée", vbCritical
Else
Griserie_sans_alcool.Interior.Pattern = xlGray16
End If
On Error GoTo 0
End Sub