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

[Frederic_cur]

Bonjour, je souhaiterais un peu d aide...

Voici mon probleme .. j'ai un fichier Excel avec une liste d eleves dans la colonne A... et des points.. dans la colonne (B)

EX : A1 : LAURENT B1 6

A2 : JEAN B2 4

Je souhaite tout simplement trouvé un code pour inserer des images en fonctions des points.. si par ex + que 5 => 🙂

si - que 5 => 🙁

Le smiley devrait apparaitre en D1 par exemple..

MERCI POUR VOTRE AIDE

 

[Papou-net]

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

Bonsoir Frederic cur,

Vite fait sur le gaz avant la soupe.

Cordialement.

 

[Frederic_cur]

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..

 

[Papou-net]

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.

 

[Frederic_cur]

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..

 

[Papou-net]

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..

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 :

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.

 

[Frederic_cur]

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

 

[Papou-net]

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

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 :

Cells(4, 4)

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

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

Bonne journée.

 

[Frederic_cur]

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

 

[kjin]

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

 

[Frederic_cur]

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...