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

Gnedea · 3 Février 2025

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 · 4 Février 2025

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

Gnedea · 5 Février 2025

vgendron à dit:

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

VB:

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 · 5 Février 2025

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 · 5 Février 2025

@Gnedea

Gnedea à dit:
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 · 5 Février 2025

Gnedea à dit:
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 · 6 Février 2025

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

On ne saura jamais😭😭

Jacky67 · 6 Février 2025

sylvanu à dit:
N'est ce pas ce que vous cherchez ?

sylvanu à dit:
J'en attrape le tournis 😖🥶

Gnedea · 6 Février 2025

Merci

sylvanu à dit:
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 · 6 Février 2025

Gnedea à dit:
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 · 6 Février 2025

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 ?

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

vgendron · 6 Février 2025

Gnedea à dit:
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 · 6 Février 2025

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 · 6 Février 2025

mapomme à dit:
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 · 6 Février 2025

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 :

VB:

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 · 6 Février 2025

sylvanu à dit:
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.

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

Gnedea

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

Gnedea

XLDnaute Nouveau

Gnedea

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Gnedea

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Gnedea

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency