Discussion :

[corinthien]

Bonjour à toutes et tous, comment récupérer la valeur de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs.Item(xlDialogColorPalette).Show

j'aimerais, à partir d'un formulaire, modifier la couleur de fond d'une plage de cellules…

Merci pour votre aide.

[Philippe Tulliez]

Bonjour,
Peut-être une réponse dans cette discussion ?

[PMO2017]

Bonjour,

Utilisez plutôt le Dialog xlDialogPatterns.
Essayez l'exemple suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub aa()
Dim R As Range
Dim OldColor As Long
Dim NewColor As Long
If TypeName(Selection) = "Range" Then
  Set R = Selection
  OldColor = R.Interior.Color
  Application.ScreenUpdating = False
  Application.Dialogs(xlDialogPatterns).Show
  NewColor = R.Interior.Color
  R.Interior.Color = OldColor
  Application.ScreenUpdating = True
 
  '///
  MsgBox "Couleur choisie = " & NewColor
  '///
 
End If
End Sub

[corinthien]

Merci Philippe et PMO2017 (ta solution est plus simple à mettre en œuvre).