Archiver fichier contient une feuille
salut si tu peux appliquer ce exemple
Photos en commentaire à la saisie
Ajoute des photos en commentaire dans les cellules de la colonne A dès la saisie
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
répertoirePhoto = "c:\photos\" ' adapter
ech = 1
Target.ClearComments
nf = répertoirePhoto & Target & ".jpg"
If Dir(nf) <> "" Then
Target.AddComment
Target.Comment.Text Text:=CStr(Target.Value)
Target.Comment.Visible = True
Target.Comment.Shape.Fill.UserPicture nf
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(répertoirePhoto)
Set myFile = myFolder.Items.Item(Target & ".jpg")
Taille = myFolder.GetDetailsOf(myFile, 26)
Target.Comment.Shape.Height = Val(Split(Taille, "x")(1))
Target.Comment.Shape.Width = Val(Split(Taille, "x")(0))
Target.Comment.Shape.ScaleHeight ech, msoFalse, msoScaleFromTopLeft
Target.Comment.Shape.ScaleWidth ech, msoFalse, msoScaleFromTopLeft
Target.Comment.Visible = False
End If
End If
End Sub
Bonjour,
Si personne ne te répond, je vais revenir d'ici quelques jours ... travail oblige.
Gelinotte
ne m'oublies pas merci c gentil de ta part
Bonjour,
Bon me voici de retour...
Place les photos dans : "C:\Photos\MaMiNou\Magasin" ... ou bien change le chemin dans le code.
Double-click sur la cellule "E1" de la "Feuil1".
Les images sont maintenant en commentaire. Tu remarqueras le triangle rouge dans le coin supérieur droit.
S'il n'y a pas de triangle rouge dans certaines cellules, cela veut dire qu'il y a pas, dans le répertoire photos, de photos pour cet article ou le nom de la photo ne correspond pas exactement au nom de l'article dans la cellule, ou encore, la photo est trop grande.
Si tu ajoutes des items ou change des photos, double-click à nouveau sur la cellule "E1" pour actualiser ton chiffrier.
Espérant que tout cela sera fort utile
Gelinotte
il ne fonctionne pas chez moi j'ai vérifier le chemin et les noms des photos
Bonjour,
C'est pourtant basé sur le code proposé plus haut ...
J'ai effectué une petite modification ... placer les photos dans le même dossier que le chiffrier ... double-click sur "E1" ... testé et opérationnel.
Gelinotte
il marche pas je sais pas pourquoi
Bonjour,
Je répète : " .... testé et opérationnel.
De plus, tu mentionnes que tu utilises Excel 2010 ... je ne comprends pas ... ça devrait rouler impec ... désolé
Gelinotte
j'ai mis les photos dans ce chemin voir la photo ci-joint
Bonjour,
Dézippe mon dernier fichier "Magasin.zip" dans ce dossier ... ça fera l'affaire.
Gelinotte
en fin il fonctionne merci
pourquoi je dois cliquer double clic dans la cellule E1
il peut pas marche automatique quand j'ajoute un article il m'affiche sa photo sans cliquer sur E1
est ce que il ya une possibilité de grandir la photo affichée zome
merci à toi
Bonjour,
Dans un post, tu mentionnes que tu as +/- 3000 articles ... une macro, qui surveillerait les modifications et ajouts, rendrait, selon moi, l'utilisation du chiffrier beaucoup trop lourd. As-tu pensé à 3000 images ...
Pour ma part, je ne crois pas que j'irai plus avant ... présentement, c'est opérationnel ... ce qui est le plus important.
Bonne continuité.
Gelinotte
jE vous remercie mon amie de m'avoir aidé
je cherche UNE ASTUCE QUI ME PERMET A FAIRE LE PROCHAIN ENREGISTREMENT CLLULE H6=LE NUMERO DE DERNIER ENREGISTREMENT ( H6 N-1) +1
SACHANT QUE LE DERNIER NUMERO SE TROUVE DANS LA FEUILLE 2 CELLULE A2 QAUND JE SAUVEGARDE MES DONNES
je veux dire je garde ma cellule H6 EGALE NUMERO de la celuule A2 dans la feuille 2 +1
je vous remercie bcp
Bonjour,
Il faut éviter d'écrire en majuscule sur le Net ... Le texte en majuscule = Je crie ... ce qui n'est pas de bon aloi ...
Gelinotte
Ok j'ai compris j'"tais pas au courant
merci
tu peux m'aider a résoudre ce probleme??