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 introduire des images (Pictures.insert) avec VBA -EXCEL,

introduire des images (Pictures.insert) avec VBA -EXCEL,

1 réponse
Avatar
A Microsoft Newsgroup EXCEL

Bonjour,

J'ai tent=E9 de r=E9aliser un trombinoscope pour ma chorale=20
sous word 97.=20
Un gars du newsgroup a tent=E9 de m'aider...
Je ne dois pas =EAtre tr=E8s dou=E9. Je reste avec le m=EAme=20
probl=E8me d'images !!!


Alors je retente mon affaire sous EXCEL 97.
Mon probl=E8me r=E9side dans le fait d'introduire la bouille=20
de chaque choriste dans les 4 colonnes A, C, E et G.=20
et les lignes 4,7,10 etc
J'ai donc un programme formul=E9 ainsi :
FOR RowIndex =3D 4 to....step 3
For ColIndex =3D 1 to 7 step 2 =20

chemin =3D Cells(106 +=20
nb, "G") '.............................................qui
me fournit un chemin du genre "C:\LACHORALE\2004-2005
\Trombino\DURAND.jpg"
'.....................................................
..........................................................
..........chaque fois diff=E9rent
Range(Cells(RowIndex, ColIndex), Cells(RowIndex,=20
ColIndex)).Select
=20
ActiveSheet.Pictures.Insert(chemin).Select

next ColIndex
next RowIndex =20
=20
Ca marche si au lieu d'avoir =20
ActiveSheet.Pictures.Insert(chemin).Select j'ai une=20
formulation du genre ActiveSheet.Pictures.Insert
("C:\LACHORALE\2004-2005\Trombino\DURAND.jpg").Select =20
Cette derni=E8re formulation me permet de remplir toutes=20
les cases avec la m=EAme photo.


Merci =E0 ceux/ celles qui pourront me donner une piste.=20
A plus.

Jean-Luc
Signaler un problème avec ce contenu

1 réponse

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
Philippe.R
Bonsoir,
Un exemple est à télécharger ici :

http://disciplus.simplex.free.fr/classeursxl/av-trombinoscope.zip
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

a écrit dans le message de
news:81e801c477eb$6a4cbb50$

A Microsoft Newsgroup EXCEL

Bonjour,

J'ai tenté de réaliser un trombinoscope pour ma chorale
sous word 97.
Un gars du newsgroup a tenté de m'aider...
Je ne dois pas être très doué. Je reste avec le même
problème d'images !!!


Alors je retente mon affaire sous EXCEL 97.
Mon problème réside dans le fait d'introduire la bouille
de chaque choriste dans les 4 colonnes A, C, E et G.
et les lignes 4,7,10 etc
J'ai donc un programme formulé ainsi :
FOR RowIndex = 4 to....step 3
For ColIndex = 1 to 7 step 2

chemin = Cells(106 +
nb, "G") '.............................................qui
me fournit un chemin du genre "C:LACHORALE2004-2005
TrombinoDURAND.jpg"
'.....................................................
..........................................................
..........chaque fois différent
Range(Cells(RowIndex, ColIndex), Cells(RowIndex,
ColIndex)).Select

ActiveSheet.Pictures.Insert(chemin).Select

next ColIndex
next RowIndex

Ca marche si au lieu d'avoir
ActiveSheet.Pictures.Insert(chemin).Select j'ai une
formulation du genre ActiveSheet.Pictures.Insert
("C:LACHORALE2004-2005TrombinoDURAND.jpg").Select
Cette dernière formulation me permet de remplir toutes
les cases avec la même photo.


Merci à ceux/ celles qui pourront me donner une piste.
A plus.

Jean-Luc