VBA EXCEL copie smiley si valeure >< ou = à
juju
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai un petit pbm c'est pqr je fais appel à votre soutient ....
Alors j'ai un fichier excel qui représente des indicateurs...
Une légende avec des smileys en A1,A2,A3
L'objectif à atteindre... par exemple 60 dans la cellule B2
La valeur atteinte à ce jour...45;60;65 en C2;C3;C4
je voudrais que lorsque la valeur est inférieur à l'objectif ce smiley apparaisse :( ,
quand c'est égal à l'objectif (ou compris dans une fourchette par exemple [59;60]) ce smiley apparaisse :l ,
quand c'est supérieur à l'objectif ce smiley apparaisse :)
Je n'arrive pas a faire copier a excel les smileys que j'ai dans les bonnes cases et avec les bonnes conditions... bref...grosse galère pour moi dans ce monde hostile du VBA.... un peu d'aide me soulagerais...
Merci a vous !!!
j'ai un petit pbm c'est pqr je fais appel à votre soutient ....
Alors j'ai un fichier excel qui représente des indicateurs...
Une légende avec des smileys en A1,A2,A3
L'objectif à atteindre... par exemple 60 dans la cellule B2
La valeur atteinte à ce jour...45;60;65 en C2;C3;C4
je voudrais que lorsque la valeur est inférieur à l'objectif ce smiley apparaisse :( ,
quand c'est égal à l'objectif (ou compris dans une fourchette par exemple [59;60]) ce smiley apparaisse :l ,
quand c'est supérieur à l'objectif ce smiley apparaisse :)
Je n'arrive pas a faire copier a excel les smileys que j'ai dans les bonnes cases et avec les bonnes conditions... bref...grosse galère pour moi dans ce monde hostile du VBA.... un peu d'aide me soulagerais...
Merci a vous !!!
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Bonjour,
pourquoi copier les smileys ?
tu met ta cellule de résultat au format de police "Wingdings"
"J" content
"K" moyen
"L" pas content
te revoie les smileys
-
Sub copie_smileys()
If B3 = B2 Then
Range("C1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
If B3 > B2 Then
Range("E1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
If B3 < B2 Then
Range("A1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
End If
End If
End If
End Sub
merci de ton conseil mais je veux automatiser mon tableur et là il ne me reste plus qu'a essayer de trouver une boucle pour qu'il passe toute la ligne B en revue tant qu'elle contient des valeures...
peut etre n'ais je pas été assez clair lors de l'exposition de mon problème merci de ton aide car je vais incrémenter la mise en forme de la cellule en windgings...
;)
si tu as une idée pour la boucle je te suis reconnaissant...
-
-
quel rapport entre ton post 1 et 3
C1,C2, C3 et C1 E1 A1
c'est fourchette ou égale à ????
La valeur atteinte à ce jour...45;60;65 en C2;C3;C4 ???? C2,C3 =smilleys.... pour les tests tuutilisesdans ta macro B3 ...
Pas très sérieux
