Discussion :

[taz2328]

Bonjour,

Je cherche sous excel à l'aide d'une macro à:

1/ colorier une forme automatique (un rectangle par exemple) en reprenant la couleur d'une cellule existante,

2/ reprendre le nombre contenu dans cette même cellule et l'inscrire automatiquement dans la même forme automatique.

Merci d'avance pour votre aide.

Thomas

[Invité]

Bonjour

Voici un exemple qui crée une forme et copie ce qu'il y a dans la cellule A1 de la Feuille 1 (fond de cellule et couleur).

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
Public Sub CellForm()
    ' déclaration de variables
    Dim shp As Shape
    Dim wks As Worksheet
 
    ' affectation
    Set wks = ActiveWorkbook.Worksheets("Feuil1")
    Set shp = wks.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 25)
 
 
    ' copie
    With shp
        .Fill.ForeColor.RGB = wks.Range("A1").Interior.Color
        With .TextFrame.Characters
            .Text = wks.Range("A1").Text
            .Font.Color = wks.Range("A1").Font.Color
        End With
    End With
End Sub

Philippe

[Vadorblanc]

Bonjour

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
Option Explicit
Dim Cel As Range, Cel_R As Range
 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False / True
If Intersect(Target, [C1:C10]) Is Nothing Then Exit Sub
For Each Cel In Target
    Set Cel_R = [A1:A10].Find(Cel)
    If Cel_R Is Nothing Then
        Cel.Interior.ColorIndex = xlNone
    Else
        Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex
        Cel.Font.ColorIndex = Cel_R.Font.ColorIndex
    End If
Next Cel
End Sub

Tu mets en A1:A10 des couleurs de fond et du texte ou un nombre, quand tu tape le même texte ou le même nombre en C1:C10, la même couleur apparait.

Si celà peut t'aider
Cordialement

[Invité]

Bonjour

@ Vadorblanc la question est pour une forme automatique et non pour une autre plage de cellule.

Philippe