Deplacer un groupe de formes
j'ai grouper quelques formes excel et je voudrais pouvoir les déplacer verticalement vers le haut et le bas a l'aide de 2 boutons, en VBA.
Je suis un peu rouiller.
Merci a tous!
Bonsoir,
le clic sur le bouton "vers le haut" modifie en moins le "Top" du groupe.
le clic sur le bouton "vers le bas" modifie en plus le "Top" du groupe.
Reste à connaitre le nom du groupe :
Feuille active - collections Shapes - nom du shape - propriété Top => nouvelle valeur égale à l'ancienne plus ou moins la variation du clic.
ActiveSheet.Shapes("NomduGroupe").Top = ActiveSheet.Shapes("NomduGroupe").Top + 15 (15 pour l'exemple, à vous de trouver la valeur souhaitable)
@ bientôt
LouReeD
j'ai essayé le code suivant avec mon bouton et le nom du groupe n'est pas trouvé, as-tu une idée?
Sub Groupe25_Cliquer()
MsgBox "mike"
ActiveSheet.Shapes("Groupe25").Top = ActiveSheet.Shapes("Groupe25").Top + 15
End Sub
Bonjour,
tu es sûre du nom ? Ce n'est pas plutôt "Groupe 25" (avec une espace) ?
En le sélectionnant tu peux voir son nom ici
et en profiter pour lui donner un nom plus parlant pour toi
eric
bonjour a vous deux,
Oui j'avais une erreur d'espace et j'avais oublié de remettre les guillemets apres avoir renommer le groupe. Ca fonctionne tres bien!
Merci a vous deux, je vais développer cette approche.
Sub bougerImage()
ActiveSheet.Shapes("curseur").Top = ActiveSheet.Shapes("curseur").Top + 15
End Sub
A priori oui
Faut dire quelle erreur...
Tu as changé le nom aux 2 endroits ?
oui Eric, ca marche maintenant a merveille!
Merci!
PS : édite pas tes posts comme ça après une réponse, les gens ne vont plus rien comprendre aux échanges
Bonsoir...
Snif ! Je n'ai pas eu mon petit pouce !
Pas grave !
@ bientôt
LouReeD
Bonjour à tous,
je t'en ai mis du coup
@capucine : c'est la (les) bonne réponse à ta question qu'il faut valider et mettre en vert, pas la mienne.
Pour les lecteurs suivants...
oh désolé pour mes maladresses, je vais essayer de faire mieux la prochaine fois.
Super ! Merci eriiic !!! J'peux même rajouter des i s'il le faut !
Mais sachez capucine que je ne disais pas cela en pensant à mal, c'était juste pour relever mais après tout pouce ou pas pouce...
Bonne fin de soirée à vous deux !
@ bientôt
LouReeD