Zones texte déplacées

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 29 juil. 2017 à 16:36
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 4 août 2017 à 07:02
Bonjour
Suite a une mise a jour,j'ai mes fichiers dont les petites zones de texte on été déplacer.
J'ai déplacer manuellement la zone texte 007 en rouge dans la cellule K1 en haut et a droite,serait-il possible de les remettre automatiquement(le 008 dans G1-le 009 dans C1 le 010 dans K11 le 011 dans G11 et le 012 dans C11)avec macro ou non.Ou alors je serrait obligé de les remettre tous manuellement, j'ai 300 classeurs.
Pourriez vous me répondre même si c'est pas possible.Fichier joint fourni.
Merci beaucoup


https://www.cjoint.com/c/GGDoA75CMbf

6 réponses

Bonjour
À tout hasard, avec la macro, peut on choisir une zonetexte séparément?
Cordialement
1
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié le 2 août 2017 à 18:38
Bonjour,

Si tu connais le nom de ta zone texte à sélectionner, par exemple
Sub selection()
    ActiveSheet.Shapes("ZoneTexte 1").Select
End Sub

sélectionne la "ZoneTexte 1" sinon il faut mettre un petit formulaire qui te donnes les noms et éventuellement la position : c'est assez simple si cela te convient.
0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
3 août 2017 à 07:16
Bonjour gbinforme
Super c'est exactement ce que je voulais
Un grand Merci
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
3 août 2017 à 09:57
Bonjour,

Avec le choix entre les 2 méthodes avec un formulaire ouvert avec les classeurs concernés :

https://www.cjoint.com/c/GHdh3DDHL4l
0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
3 août 2017 à 10:29
Encore plus fort, c'est beaucoup plus intéressant et plus rapide.
Petite question subsidiaire, serait-il possible d’exécuter cette macro de ce classeur vers LD01.xlsx par exemple.
Je remercie très fort .
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
3 août 2017 à 10:43
Quand ton formulaire est ouvert, il te suffit dans la même session d'ouvrir ou de choisir LD01.xlsx par exemple
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
29 juil. 2017 à 19:10
Bonjour,

Suite a une mise a jour,
Une mise à jour de quoi ?
C'est en fonction de la cause connue que l'on aurais peut-être une solution.
0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
30 juil. 2017 à 07:16
Bonjour
C'est une mise a jour Office je pense que çà viens de là car depuis les Zones texte ne sont plus a la même place.
Cordialement
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
30 juil. 2017 à 08:55
Bonjour,

Cela parait très curieux mais il faut savoir que les objets ne sont pas collés à une cellule mais seulement posés en fonction de leur propriétés.

Est-ce que tes classeurs sont tous dans le même répertoire ?

Regardes si ma correction de ton exemple te convient

https://www.cjoint.com/c/GGEg2W6L40l
0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
30 juil. 2017 à 10:46
J'ai pris le temps de regarder, un peut plus vers la droite mais c'est çà.
Par contre tous les classeurs sont identiques même largeur et hauteur des cellules.
Merci beaucoup
0
Oui tous les classeurs sont dans le même répertoire.
Merci de m'aider et je vais essayer le fichier cette après midi.
Encore merci.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
1 août 2017 à 07:20
Bonjour a tous
Ne chercher plus, après avoir bien chercher sur Google, j'ai trouvé une astuce qui va me faire gagner du temps.
Il suffit de cliquer sur Aligner a la grille et de sélectionner toutes les zones texte en appuyant sur Shift en même temps,de déplacer l'ensemble dans une des cellule en haut et a droite, et toutes les zones texte son placées au bon endroit.
Par contre il n'est pas possible d'avoir cette méthode en VBA.
Merci a tout le monde
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié le 1 août 2017 à 09:39
Bonjour,

Merci du retour.

sélectionner toutes les zones texte en appuyant sur Shift en même temps
Pour cela tu as une fonction plus rapide :
- menu "accueil" / "Rechercher et sélectionner" / "Atteindre"
- clic sur "cellules" puis cocher "objets" et "ok"
Toutes tes zones textes sont sélectionnées.

Si tu mets la macro suivante associée à un raccourci clavier (dans un autre classeur ouvert) tu as le résultat directement avec ton raccourci.
Sub selection()
    ActiveSheet.DrawingObjects.Select
End Sub
0
Un grand merci gbinforme.
En effet c est plus rapide avec la petite macro.
Merci beaucoup
0