Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Déplacement d'images

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hulk
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Hulk

XLDnaute Barbatruc
Bonsoir à tous 🙂

J'ai pas loin de 500 images éparpillées un peu partout dans la Feuil1.

Elles sont nommées de "Image 1" à "Image 500".

Pour l'exemple il n'y a que 10 images.

Je souhaiterais les disposer en colonne A l'une sous l'autre, mais je n'y arrive pas :-(

Image 1 en A1
Image 2 en A2
Image 3 en A3
Etc.

Fichier à prendre ICI.

Je vous remercie pour votre aide !

Bonne soirée à tous !
 
Trier par date Trier par votes
Re : Déplacement d'images

Bonjour à tous, bonjour Hulk

J'ai une petite idée mais il faudrait que les images soient au moins ordonnées (par noms) horizontalement (par groupes peut être mais presque même niveau), éparpillées comme dans l'exemple je ne peux les ordonner... Si condition satisfaite on peut suivre les étapes suivantes:

1- Appuyer sur la touche F5
2- Choisir "Cellules" puis "Objets" puis OK
3- Via la barre d'outils dessin, choisir "Dessin" puis "Aligner ou répartir"
4- Choisir "Aligner à gauche" ou "Centrer" ou "Aligner à droite"
5- Déplacer la sélection à l'aide de la souris vers la cellule A1
6- Appuyer sur "Echap" pour déselectionner...
7- Déplacer "Image 500" vers la cellule A500
8- Répéter les étapes de 1 à 3
9- Choisir "Distribuer verticalement"
10- Le tour est joué

NB: Si la condition citée plus haut n'est pas satisfaite les images seront réparties de la cellule A1 à la cellule A500 mais désordonnées...


Cordialement
 
Vote positif 0 Vote négatif
Re : Déplacement d'images

Bonjour le forum, bonjour Hulk


Si tu travailles sur Excel 2007 ou plus, tu peux utiliser le code VBA (Macro) suivant:

Code: 
Sub Arranger()
Dim I As Integer
For I = 1 To 500
ActiveSheet.Shapes("Picture " & I).Select
Selection.Cut
Cells(I, 1).Select
ActiveSheet.Paste
Next I
End Sub

NB: Si on a plus de 500 images on change le 500 dans le code par le nombre approprié, sinon le code annonce une erreur de débogage qu'on arrête...

J'espère avoir venir à ton aide....

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Déplacement d'images

Salut le forum

La macro suivante fonctionne très bien
Code: 
Sub images()
Dim I As Integer

For I = 1 To 500
  With ActiveSheet.Shapes("Picture " & I)
    .Top = Cells(I, 1).Top
    .Left = Cells(I, 1).Left
  End With
Next I

End Sub
Mytå
 
Vote positif 0 Vote négatif
Re : Déplacement d'images

Bonjour Forum, hbenalia, Mytå,

Merci pour vos solutions.

Je vais opter pour celle de Mytå...

Merci encore à vous deux et bonne semaine à tous !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm
Réponses
4
Affichages
190
NONO14
N
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
320
Dand87
D
M
  • Question Question
XL 2016 Analyse prix suivant hypothèse QTT à produire volume annuel et date de démarrage fabrication
Réponses
4
Affichages
321
mam721
M
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
P
  • Question Question
XL 2021 Formules imbriquées
Réponses
13
Affichages
358
papychr
P
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
  • Question Question
XL 2016 Signe $
Réponses
6
Affichages
769
Phoenix23
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
547
vgendron
A
  • Résolu(e)
Microsoft 365 Envoi mail avec plusieurs PJ vba
Réponses
5
Affichages
875
Arnaud H
A
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
L
  • Question Question
Microsoft 365 Tableau transposant des valeur B2 juxtaposant des valeurs au départ en A1
Réponses
2
Affichages
488
lusert
L
L
  • Question Question
Microsoft 365 Enregistrement planning Automatique
Réponses
6
Affichages
964
lox6207
L
J
  • Question Question
XL 2016 Affichage Image sur une autre feuille
Réponses
3
Affichages
1 K
Jaihna
J
L
  • Question Question
Gestion flotte véhicule
Réponses
4
Affichages
1 K
leptichat
L
L
  • Résolu(e)
XL 2016 Problème incrémentation n° encodage avec séparateur type "tiret"
Réponses
7
Affichages
829
Phil69970
A
  • Question Question
Microsoft 365 Afficher / Masquer des frames à partir d'un tableau d'applicabilité
2
Réponses
16
Affichages
2 K
Ay-Ricko
A
S
  • Question Question
Autres Macro sous conditions
Réponses
3
Affichages
655
scorpileo
S
D
  • Résolu(e)
Microsoft 365 Mes images se décalent quand j'insère des lignes
Réponses
2
Affichages
765
DjéMook
D
  • Question Question
XL 2010 Import image dans des cellules fusionnées, sans déformation de l'image.
Réponses
0
Affichages
1 K
jeanmi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…