Inserer une image avec la condition si sans utiliser de police wingdings

[michparmentier]

Salut,
J'aimerais inserer une image que j'ai enregistré sur mon dur avec la condition si
Ex =SI(NB.SI(T21;">75");"image1";"image2")


(J'arrive à le faire en utilisant la police wingdings, mais ce n'est terrible)

Merci

 

[criscris11]

Re : Inserer une image avec la condition si sans utiliser de police wingdings

Bonjour,
Si je ne me trompe pas, ce n'est pas pas possible par formule à moins que j'ai loupé un épisode de la "Guerre des cellules". Par macro, cela doit être réalisable et il y a assez d'âmes charitables sur ce forum pour te concocter un petit code donc ne désepères pas.
Bon courage pour ton projet et je vais suivre ce fil avec intérêt.

 

[Staple1600]

Re : Inserer une image avec la condition si sans utiliser de police wingdings

Bonjour


Ou stockes-tu tes images?

dans le classeur?

sur le disque dur?

 

[Staple1600]

Re : Inserer une image avec la condition si sans utiliser de police wingdings

Re

Une piste

Sub TestInsertPictureInRange()
    InsertPictureInRange "C:\FolderName\PictureFileName.gif", _
        Range("B5:D10")
End Sub

Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub

 

[Tibo]

Re : Inserer une image avec la condition si sans utiliser de police wingdings

Bonjour,

A voir également ce lien qui renvoie chez nos amis de Veriti :

VeriTi V 3, le site des amis d'Excel et OOo - Programmes VeriTi

Tu trouveras un fichier démo de notre ami Ti consacré aux images.

@+

 

[michparmentier]

Re : Inserer une image avec la condition si sans utiliser de police wingdings

Ca marche

Merci à tous