Insérer des images sur base de résultat à la suite.

Papou-net

XLDnaute Barbatruc

• 26 Novembre 2009

• #2

Re : Insérer des images sur base de résultat à la suite.

Bonsoir Frederic cur,

Vite fait sur le gaz avant la soupe.

Cordialement.

 

Pièces jointes

• frederic cur.xls

  18.5 KB · Affichages: 74
• frederic cur.xls

  18.5 KB · Affichages: 70
• frederic cur.xls

  18.5 KB · Affichages: 73

Vote positif 0 Vote négatif

F

Frederic_cur

Guest

• 26 Novembre 2009

• #3

Re : Insérer des images sur base de résultat à la suite.

oui merci .. mais ce que je souhaite .. c'est lorsque j'ajoute des points en B3 B4 .. que le smiley apparait automatiquement..

le smiley sera une image téléchargée..

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 26 Novembre 2009

• #4

Re : Insérer des images sur base de résultat à la suite.

Désolé, mais c'était du vite fait !

Est-ce que ce modèle te convient mieux ?

Nota : tu dois toutefois lancer l'éditeur VBA (ALT + F11), double-cliquer sur Feuil1, choisir Worksheet et remplacer les chemins de fichiers dans les lignes Image1.Picture = LoadPicture(".......") par le répertoire où se situent tes icônes.

Espérant avoir mieux cerné la question.

Cordialement.

 

Pièces jointes

• frederic cur.xls

  24.5 KB · Affichages: 77
• frederic cur.xls

  24.5 KB · Affichages: 81
• frederic cur.xls

  24.5 KB · Affichages: 77

Vote positif 0 Vote négatif

F

Frederic_cur

Guest

• 26 Novembre 2009

• #5

Re : Insérer des images sur base de résultat à la suite.

Merci ca me convient parfaitement.. mais j utilise une version 2007 ici .. mais le travail sera réalisé sur une version 2003..

pour ajouter mon smiley en regarde de mon resultat sur une colonne différente..

Le code est il correcte..?

ENCORE MERCI POUR TON AIDE..

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 26 Novembre 2009

• #6

Re : Insérer des images sur base de résultat à la suite.

Frederic_cur à dit:

Merci ca me convient parfaitement.. mais j utilise une version 2007 ici .. mais le travail sera réalisé sur une version 2003..

pour ajouter mon smiley en regarde de mon resultat sur une colonne différente..

Le code est il correcte..?

ENCORE MERCI POUR TON AIDE..

Cliquez pour agrandir...

Si j'ai bien compris ta question, pour changer le smiley de colonne, il suffit de remplacer le chiffre 4, dans les 2 premières lignes, par le N° de la colonne souhaitée :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Top = Cells(ActiveCell.Row, [COLOR="Red"]4[/COLOR]).Top
Image1.Left = Cells(ActiveCell.Row, [COLOR="Red"]4[/COLOR]).Left

Bonne soirée.

 

Vote positif 0 Vote négatif

F

Frederic_cur

Guest

• 27 Novembre 2009

• #7

Re : Insérer des images sur base de résultat à la suite.

Merci j'y suis presque lol...

et si je souhaite par exemple : placer le smiley dans en D4 par exemple

=> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Top = Cells(ActiveCell.Row, 4).Top
Image1.Left = Cells(ActiveCell.Row, 4).Left

Cette synthaxe est elle correcte ..?

MERCI

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Novembre 2009

• #8

Re : Insérer des images sur base de résultat à la suite.

Frederic_cur à dit:

Merci j'y suis presque lol...

et si je souhaite par exemple : placer le smiley dans en D4 par exemple

=> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Top = Cells(ActiveCell.Row, 4).Top
Image1.Left = Cells(ActiveCell.Row, 4).Left

Cette synthaxe est elle correcte ..?

MERCI

Cliquez pour agrandir...

Bonjour Frédéric,

Pour te placer en D4, tu dois remplacer ActiveCell.Row par 4

La syntaxe exacte de Cells est :

Cells(N° de ligne, N° de colonne) soit :

Code:

Cells(4, 4)

Si ton emplacement reste figé en D4, il est plus simple d'écrire :

Code:

Image1.Top = Range("D4").Top
Image1.Left = Range(D4").Left

Bonne journée.

 

Vote positif 0 Vote négatif

F

Frederic_cur

Guest

• 27 Novembre 2009

• #9

Re : Insérer des images sur base de résultat à la suite.

Merci PAPOU

... c'est tres claire ..

Je cherche toujours à améliorer .. et je pense que c'est la derniere amélioration à apporter..

voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case ActiveCell.EntireRow.Range("B1")

Case Is = ""

Image1.Visible = False

Exit Sub

Case Is < 0

Range("D3").Select

ActiveSheet.Pictures.Insert("C:\monimage\").Select


Case Is >= 0


ActiveSheet.Pictures.Insert("C:\C:\monimage\").Select

End Select


End Sub

donc en résumé j'ai une liste de résultat.. je souaherais que mon image apparaisse toujours dans la colonne D et toujours en fonction du résultat sur la même ligne... au lieu de le fixer dans une cellule bien précise.. et devoir à chaque fois le déplacer en regard du résultat obtenu...

A B C

LAURENT 5 monomage1

JEAN -2 monimage2


MERCI POUR TON AIDE PAPOU

 

Dernière modification par un modérateur: 27 Novembre 2009

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Novembre 2009

• #10

Re : Insérer des images sur base de résultat à la suite.

Bonjour le fil,
Pourquoi pas une simple formule (ici la moyenne) et une police de caractère idoine
A+
kjin

 

Pièces jointes

• frederic-cur.zip

  1.9 KB · Affichages: 49

Vote positif 0 Vote négatif

F

Frederic_cur

Guest

• 27 Novembre 2009

• #11

Re : Insérer des images sur base de résultat à la suite.

Merci pour l'idée mais il me faut des smiley..

je me susi servi de l exemple pour un test.. tout simplement..

mon travail fonctionnera sur base de smiley...

 

Vote positif 0 Vote négatif