Zones texte déplacées
Résolu
mic6259
Messages postés
371
Statut
Membre
-
mic6259 Messages postés 371 Statut Membre -
mic6259 Messages postés 371 Statut Membre -
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
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-
Bonjour,
Si tu connais le nom de ta zone texte à sélectionner, par exempleSub 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. -
-
Bonjour,
Avec le choix entre les 2 méthodes avec un formulaire ouvert avec les classeurs concernés :
https://www.cjoint.com/c/GHdh3DDHL4l -
-
-
-
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. -
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-
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 -
-
-
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. -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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-
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
-
-
