forme libre rayée

Modeste

XLDnaute Barbatruc

• 26 Février 2016

• #2

Re : forme libre rayée

Bonjour eastwick,

Et qu'en dit notre vieil ami l'enregistreur de macros?

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 26 Février 2016

• #3

Re : forme libre rayée

Il faut renseigner un nombre pour une couleur, c'est simple. Mais une forme???

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 26 Février 2016

• #4

Re : forme libre rayée

Bonjour

en utilisant l'enregistreur de macro pour les pattern et en adaptant selon valeur de A1

Code:

    Range("E6").Select
    ActiveSheet.Shapes.Range(Array("Freeform 1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        Select Case Range("A1").Value
            Case 1
                .Patterned msoPatternLightVertical
            Case 2
                .Patterned msoPatternLightHorizontal
            Case Else
                .Patterned msoPattern90Percent
        End Select
    End With

A adapter

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 26 Février 2016

• #5

Re : forme libre rayée

Je coince, maître !

 

Pièces jointes

• Classeur1.xlsx

  11.4 KB · Affichages: 33
• Classeur1.xlsx

  11.4 KB · Affichages: 34

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #6

Re : forme libre rayée

Bonjour eastwick, bonjour le fil.

Je te joins un fichier, dis-moi si c'est le genre de choses que tu souhaites.

Edit : Le résultat est sur la Feuil1, la Feuil2 est juste la liste des correspondances que tu vois.
J'ai intégré une recherche dans le code, pour si tu souhaites faire apparaître le motif tu n'as qu'à ajouter après la recherche : MsgBox Remplissage.

 

Pièces jointes

• Esatwick.xlsm

  23.5 KB · Affichages: 43

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 26 Février 2016

• #7

Re : forme libre rayée

Tout ça me parait nickel cher compatriote nordiste. Peut-on rajouter une option couleur du motif ?

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #8

Re : forme libre rayée

Oui tu peux ajouter un code couleur.
Pour se faire :

Code:

With Selection.ShapeRange.Fill
    .Patterned Range("A1").Value
    .ForeColor.RGB = Range("B1").Interior.Color
End With

Je suis parti sur le fait que la couleur sera celle de la cellule B1. Tu peux tout à fait utiliser un code RGB classique dedans ou autre. Mais au moins tu connais la procédure .

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 26 Février 2016

• #9

Re : forme libre rayée

Merci beaucoup. Si je souhaite nommer des images dans les cellules en a10 (par exemple); le code pattern en B10 et le code couleur en C10, comment dois-je procéder ?
Mon travail va consister à mettre un pattern en fonction d'un pourcentage, une image symbolisera une ville.

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 26 Février 2016

• #10

Re : forme libre rayée

Re

bien travaillé pendant mon absence

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #11

Re : forme libre rayée

Quand je pourrai accéder à un ordinateur pour regarder, je t'expliquerai si tu n'as pas eu de retour entre deux.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Février 2016

• #12

Re : forme libre rayée

Bonjour tout le monde.
Je te joins le fichier, j'ai intégré une fonction pour créer une formule de récupération du code couleur (en colonne E pour l'exemple, ça peut t'aider pour connaître le code qui te plaît)
Tu peux faire un listing de tes villes à partir de A10 (le nom de la ville correspond au nom de ta forme, à changer selon les besoins).
Si tu modifies une cellule entre "A10" & la dernièreligne remplie en A, tes formes changent.
Sauf pour le remplissage, je n'ai pas pris le temps de faire une SelectionChange.
Par la suite, je suppose que tu vas faire appelle à des formules pour définir tes pattern et couleurs, là il faudra également changer le code et utiliser Calculate.

 

Pièces jointes

• Eastwick.xlsm

  25.2 KB · Affichages: 52
• Eastwick.xlsm

  25.2 KB · Affichages: 44

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 27 Février 2016

• #13

Re : forme libre rayée

Magnifique, tout à fait ce qu'il me fallait... du travail d'artiste !

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 27 Février 2016

• #14

Re : forme libre rayée

Peut-on compiler les 2 fichiers, à savoir choisir aussi le motif de remplissage SVP ?
Encore merci.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Février 2016

• #15

Re : forme libre rayée

Au lieu d'un nombre tu souhaiterais le nom de la texture plutôt ?

 

Vote positif 0 Vote négatif