Discussion :

[manouk]

Bonjour
Voici mon probléme, j'ai une plage de cellules avec plusieur OptionButton, TextBox,Label à l'intérieur. J'aimerai déplacer le tout vers une autre plage de cellule le problème c'est lorque je fait un couper/coller classique seul la plage de cellules se déplace les OptionButton, TextBox et Label reste à leur place initiale.
Comment puis-je faire pour déplacer l'ensemble??

[ouskel'n'or]

Pour sélectionner tous les contrôles ajoutés sur une feuille de calculs, tu as deux choses à faire :
- Activer le mode création -> Bouton en forme d'équerre se trouvant dans la barre d'outils "Visual Basic"
- Afficher la barre d'outils "Dessin"
Dans cette barre d'outils, il y a une flèche que tu sélectionnes.
Il ne te reste plus ensuite qu'à sélectionner tous les contrôles en balayant ta feuille de calculs à l'aide de la souris.
N'oublie pas de dévalider cette flèche quand tu as fini

[manouk]

Voila le code que j'ai pu mettre grâce à tes indications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function déplacer_info_deb()
Workbooks("analyses_col.xls").Worksheets(1).Activate
texte_à_chercher = "Informations importantes"
Call recup_valeur 'recherche le texte dans la feuille 
Range("A" & recup_ligne & ":B" & recup_ligne + 12).Select
selection.Cut
Range("F10:G22").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Label1", "Label2", "Label3", "TextBox1" _
    , "OptionButton1", "OptionButton2", "OptionButton3", "OptionButton4" _
    , "OptionButton5", "OptionButton6", "OptionButton7", "Label4" _
    , "Label5", "Label6", "TextBox2", "TextBox3")).Select
ActiveSheet.Shapes.Range(Array("Label7", "TextBox4", "Label8", "Label9" _
    , "TextBox5")).Select False
selection.ShapeRange.IncrementLeft 597.75
selection.ShapeRange.IncrementTop -45.5
End Function

Le problème et que suivant le placement de ""Informations importantes" je ne connais pas la distance ou doivent se déplacer mes formes (IncrementLeft 597.75 et IncrementTop -45.5). Comment peut-on déplacer les formes sans connaître ces deux valeurs??

[ouskel'n'or]

Le déplacement des objets va dépendre de leur position de départ.
Pour connaître la position de départ, je ne sais le faire que par objet, non pour un tableau de formes.
Par objet, on peut récupérer le Top et le left de l'objet ou les lui affecter.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
     ActiveSheet.Shapes("Label1").Top = 55
'ou, pour l'aligner sur une cellule
     ActiveSheet.Shapes("Label1").Top = ActiveSheet.Range("C12").Top
     ActiveSheet.Shapes("Label1").Left = ActiveSheet.Range("C12").Left
End Sub

[manouk]

merci je ne savais pas que l'on pouver récupérer les valeurs TOP, LEFT d'une cellule, du coup je suis presque arrivée à se que je voulais, je posterai la réponse et marquerai résolu

[manouk]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function déplacer_info_deb()
Dim a As Long, b As Long, c As Long
Workbooks("analyses_col.xls").Worksheets(1).Activate
texte_à_chercher = "Informations importantes"
Call recup_valeur
Range("A" & recup_ligne & ":B" & recup_ligne + 12).Select
selection.Cut
Range("F10:G22").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Label1", "Label2", "Label3", "TextBox1" _
    , "OptionButton1", "OptionButton2", "OptionButton3", "OptionButton4" _
    , "OptionButton5", "OptionButton6", "OptionButton7", "Label4" _
    , "Label5", "Label6", "TextBox2", "TextBox3")).Select
ActiveSheet.Shapes.Range(Array("Label7", "TextBox4", "Label8", "Label9" _
    , "TextBox5")).Select False
a = ActiveSheet.Range("F10").Left
b = ActiveSheet.Range("F11").Top
c = ActiveSheet.Shapes("TextBox5").Top
b = b - c + 3
selection.ShapeRange.IncrementLeft (a)
selection.ShapeRange.IncrementTop (b)
End Function