changer couleur dessin en vba

M

MichelXld

XLDnaute Barbatruc

• 17 Juillet 2006

• #2

Re : changer couleur dessin en vba

bonjour

tu peux faire un essai en affectant cette macro à chaque dessin de ta feuille

Code:

Sub Coloriage()
Dim leNom As String

leNom = Application.Caller

'10 rouge
'1 blanc
If ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 10 Then
    ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 1
    Else
    ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 10
End If
End Sub

bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

P

phil75016

XLDnaute Occasionnel

• 17 Juillet 2006

• #3

Re : changer couleur dessin en vba

Merci beaucoup c'est exactement ce que je cherchais.
Bravo

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 17 Juillet 2006

• #4

Re : changer couleur dessin en vba

bonsoir phil, michel 🙂


une variante de la macro de michel en plus court :

Code:

Sub Coloriage()
Dim leNom As String

leNom = Application.Caller

'10 rouge
'1 blanc

With ActiveSheet.Shapes(leNom).Fill.ForeColor
    .SchemeColor = IIf(.SchemeColor = 10, 1, 10)
End With
End Sub

salut

 

Vote positif 0 Vote négatif

L

lolostaps

XLDnaute Nouveau

• 22 Mars 2013

• #5

Re : changer couleur dessin en vba

MichelXld à dit:

bonjour

tu peux faire un essai en affectant cette macro à chaque dessin de ta feuille

Code:

Sub Coloriage()
Dim leNom As String

leNom = Application.Caller

'10 rouge
'1 blanc
If ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 10 Then
    ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 1
    Else
    ActiveSheet.Shapes(leNom).Fill.ForeColor.SchemeColor = 10
End If
End Sub

bonne soiree
MichelXld

Cliquez pour agrandir...

bonjour a tous
de part ce sujet vous m'avez déjà apporté beaucoup d'aide néanmoins en me servant de ces conseils j'arrive à faire fonctionner ce que vous proposer avec les couleurs rouge et blanc , malheureusement si je change les valeurs correspondant aux couleurs la macro ne marche plus.
Ma question est comment adapté ces lignes de programmation VBA pour obtenir comme couleur noir ou blanc.
Merci d'avance

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 22 Mars 2013

• #6

Re : changer couleur dessin en vba

Bonjour,

content de voir quelqu'un qui as fais des recherches et essayer d'adapter🙂

Essaye ceci, où les couleurs sont exprimée en valeur RGB (rouge,vert,bleu) et sont plus facilement modifiables. Les schemsColor correspondent à des numéros de couleurs dans la palette excel. Numéro qui peuvent changer d'un classeur à l'autre suivant les palettes, styles et autre thèmes office.

Les couleurs RGB resterons toujours les mêmes indépendament des palettes du classeur.

Code:

Sub Coloriage()
    Dim leNom As String
    Dim noir As Long, blanc As Long
    
    leNom = Application.Caller
    
    noir = RGB(0, 0, 0)
    blanc = RGB(255, 255, 255)
    
    With ActiveSheet.Shapes(leNom).Fill.ForeColor
        .RGB = IIf(.RGB = blanc, noir, blanc)
    End With
End Sub

Tu trouveras sur le net toutes les couleurs et leurs valeur RGB que tu veux.

A+

 

Vote positif 0 Vote négatif

L

lolostaps

XLDnaute Nouveau

• 23 Mars 2013

• #7

Re : changer couleur dessin en vba

merci c'est parfait

 

Vote positif 0 Vote négatif

L

lolostaps

XLDnaute Nouveau

• 23 Mars 2013

• #8

Re : changer couleur dessin en vba

j'en profite vu que tu as l'air de bien maitriser le VBA.
Dans ce même fichier je me heurte a 2 problèmes:

- le premier exposé sur le sujet:
ou je cherche à effectuer un copier coller grâce à un bouton commande d'un ensemble d'objet regroupé ensemble:

https://www.excel-downloads.com/thr...jet-via-un-bouton-utilisant-une-macro.203413/
dans mon fichier la macro est situer sur le bouton "Sauvegarder le poinçon"
particularité de cette macro elle doit effectuer également un saut de ligne sur la colonne E à chaque copier coller
Cette macro marche sur d'autre fichier que j'ai réaliser quand cela concerne des cellules mais pose problèmes quand la sélection concerne mon groupe d'objet nommé "Poinçon test"

- le deuxième est sur l'onglet 2 de mon fichiers:
ou je cherche à effectuer une liste déroulante proposant l'ensemble de mes images composé ( de ces ensembles d'objets)

voici tous de même mon fichier en pièces jointes.

merci d'avance

 

Pièces jointes

• Logiciel CO robin.xlsm

  34.8 KB · Affichages: 76
• Logiciel CO robin.xlsm

  34.8 KB · Affichages: 93
• Logiciel CO robin.xlsm

  34.8 KB · Affichages: 93

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Mars 2013

• #9

Re : changer couleur dessin en vba

bonjour,

Autre question/sujet autre discussion. Ouvres un nouveau fil pour exposer ton problème.

A+

 

Vote positif 0 Vote négatif