XL 2010 Déplacement de plusieurs zones de texte dans excel vba

[Gnedea]

Salut
J'ai encore besoin de votre aide
J'ai un fichier excel dans lequel je souhaite déplacer des zones de texte par VBA.
J'ai essayé une Macro mais je n'y parviens pas quelqu'un peut il m'aider à résoudre ce problème s'il vous plaît ?
Voici mon fichier

 

[mapomme]

Re @vgendron 😀,
Nous sommes grosso modo sur le même principe 😉

 

[Gnedea]

pour le fun, ce que j'avais fait avant la propostion de Mapomme

Sub déplace()
Dim i&
    With Feuil2
        Set Source = Application.InputBox("cliquez dans la cellule de gauche de la zone source", Type:=8)
        Set cible = Application.InputBox("cliquez dans la cellule de gauche de la zone destination", Type:=8)
       
        If Source.Left < cible.Left Then
            DéplHori = cible.Left
        Else
            DéplHori = cible.Left - Source.Left
        End If
        If Source.Top < cible.Top Then
            DéplVert = cible.Top
        Else
            DéplVert = cible.Top - Source.Top
        End If
        For i = 1 To 29
            .Shapes("ZoneTexte " & i).IncrementLeft DéplHori
            .Shapes("ZoneTexte " & i).IncrementTop DéplVert
        Next i
    End With
   
    Application.ScreenUpdating = True
End Sub

 

[Gnedea]

Merci à vous qui essayez de m'aider
J'explique clairement je veux déplacer toutes les ZoneTextes ensemble dans un mouvement vers la droite sans changer leur top en gardant leur position les uns sur les autres vers la droite et les intervals entre les zonetextes
Peut importe la superposition

 

[Phil69970]

@Gnedea

J'explique clairement je veux déplacer toutes les ZoneTextes ensemble dans un mouvement vers la droite sans changer leur top en gardant leur position les uns sur les autres vers la droite et les intervals entre les zonetextes
Peut importe la superposition

Ok cela on a compris ce que l'on a pas compris à quoi cela sert de faire cela !!!

Dit encore autrement si on comprend le but recherché (à part empiler bêtement les uns sur les autres tes zones de texte) on pourrait trouver d'autres solutions plus rationnelles.

 

[sylvanu]

je veux déplacer toutes les ZoneTextes ensemble dans un mouvement vers la droite sans changer leur top en gardant leur position les uns sur les autres vers la droite et les intervals entre les zonetextes

Vous avez tester la PJ du post #8 ?
N'est ce pas ce que vous cherchez ?

 

[Jacky67]

Ok cela on a compris ce que l'on a pas compris à quoi cela sert de faire cela !!!

On ne saura jamais😭😭

 

[Jacky67]

N'est ce pas ce que vous cherchez ?

J'en attrape le tournis 😖🥶

 

[Gnedea]

Merci

Vous avez tester la PJ du post #8 ?
N'est ce pas ce que vous cherchez ?

Regarde la pièce jointe 1212496

Bravo Sylvanu c'est exactement ce que je cherche peux tu m'envoyer sur mon fichier ?
Merci

 

[sylvanu]

c'est exactement ce que je cherche peux tu m'envoyer sur mon fichier ?

😡 🤬
Il est dispo au post #8 depuis Mardi à 11:14.
Comme quoi vous lisez nos réponses. 🤣

 

[Gnedea]

S'il te plaît j'ai besoin de la macro qui exécute cette action je ne vois pas le poste #8 est ce que tu peut le renvoyer ?

😡 🤬
Il est dispo au post #8 depuis Mardi à 11:14.
Comme quoi vous lisez nos réponses. 🤣

 

[vgendron]

je ne vois pas le poste #8

faut quand meme faire un effort !!
il est sur la page 1 ! (en bas à gauche du dernier post: 3 boutons "Préc, 1 et 2"

 

[mapomme]

Bonsoir à tous 😀,

@sylvanu 🙂

J'ai utilisé ton classeur du 8 ème message. Je ne vois pas de déplacement. Que fais-je de travers ?

Voir le gif animé joint...

 

[vgendron]

Bonsoir à tous 😀,

@sylvanu 🙂

J'ai utilisé ton classeur du 8 ème message. Je ne vois pas de déplacement. Que fais-je de travers ?

Voir le gif animé joint...

Chez moi, ca fonctionne très bien

 

[sylvanu]

Bonsoir Mapomme,
Je viens de ré essayer, j'obtiens bien ça :

Je suis en XL2007, VBA 6.3. Serait ce dû à ça ?
Pourtant les macros sont simples :

Sub GaucheDroite()
    Range("B5:J24").Cut Destination:=Range("O5:W24")
    Range("A1").Select
End Sub
Sub DroiteGauche()
    Range("O5:W24").Cut Destination:=Range("B5:J24")
    Range("A1").Select
End Sub

 

[mapomme]

Je suis en XL2007, VBA 6.3. Serait ce dû à ça ?

Oui je vois bien que ça fonctionne chez toi. ! Là, je sèche un peu. Je ne sais comment explique ce comportement et quoi penser😵‍💫. @Gnedea est en version 2010.