Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Image suivant une date

Image suivant une date

3 réponses
Avatar
Philippe
Bonsoir à tous
Je souhaiterai faire apparaître une image différente suivant la date saisie
dans une cellule.
Pensez-vous que cela soit réalisable ?

A plus

Philippe
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bonsoir à tous
Je souhaiterai faire apparaître une image différente suivant la date saisie
dans une cellule.
Pensez-vous que cela soit réalisable ?

A plus

Philippe





Bonsoir,

Oui. Voir http://www.excelabo.net pour un fichier de AV relatif à un
trombinoscope.

@+
FxM

Avatar
MichDenis
Bonjour Philippe,

Voici un exemple :

J'ai supposé que tes dates étaient en colonne A1:A25

Cette ligne de code possède les arguments suivants:
InsérerImage .Name, Range("B" & NoLigne), "C:WindowsPlume.bmp"

InsérerImage "NomDelaFeuille", "ÉtendueDeLaPlageQueDoitCouvrirImage", "Chemin et Nom De l'image"

'---------------------------------
Sub TestMonImage()

Dim LaDate As Long, NoLigne As Variant

LaDate = CDate("9 février 2005")

With Worksheets("Feuil1")
NoLigne = WorksheetFunction.Match(LaDate, Range("A1:A25"), 0)
If Not IsError(NoLigne) Then
InsérerImage .Name, Range("B" & NoLigne), "C:WindowsPlume.bmp"
Else
Err = 0
End If
End With
End Sub

'---------------------------------
Sub InsérerImage(Feuille As String, RgImage As Range, NomImage As String)
Dim Rg As Range
Set Rg = Worksheets(Feuille).Range(RgImage.Address)
With Rg
Largeur = .Offset(, 1)(, .Columns.Count).Left - .Left
Hauteur = .Offset(.Rows.Count).Top - .Item(1).Top
Set Image = Worksheets(Feuille).Pictures.Insert(NomImage)
End With
With Image
.Left = Rg.Left
.Top = Rg.Top
'Largeur de l'image
Image.Width = Largeur
'Hauteur de l'image
Image.Height = Hauteur
'Est-ce que l'image doit se déplacer avec les cellules
'voici les 3 constantes possibles
.Placement = xlFreeFloating 'or xlmove or xlMoveAndSize
'Verrouillé ou pas
.Locked = True 'or False
End With
Set Rg = Nothing

End Sub
'---------------------------------


Salutations!





"Philippe" a écrit dans le message de news: elf$
Bonsoir à tous
Je souhaiterai faire apparaître une image différente suivant la date saisie
dans une cellule.
Pensez-vous que cela soit réalisable ?

A plus

Philippe
Avatar
Modeste
Bonsour®,
comment se fait la relation date-image ???

si celle-ci est du type N°jour<==>nomdel'image
alors regarde la solution sans macro !!!
fournie par andy Pope
http://www.andypope.info/fun/picviewer.zip
@+
-----Message d'origine-----
Bonsoir à tous
Je souhaiterai faire apparaître une image différente
suivant la date saisie

dans une cellule.
Pensez-vous que cela soit réalisable ?

A plus

Philippe


.