Probleme copier coller sous vba excel

Galatane Messages postés 2 Date d'inscription mardi 23 février 2010 Statut Membre Dernière intervention 1 mars 2010 - 23 févr. 2010 à 17:55
Galatane Messages postés 2 Date d'inscription mardi 23 février 2010 Statut Membre Dernière intervention 1 mars 2010 - 1 mars 2010 à 08:47
Bonsoir à tous

Voici mon probleme :

J'ai créé un script vba pour excel. Il doit, a partir d'une page de parmaetre, faire des copier coller de differente partie de cette page dans de nouvelles page (créé par le script)
En clair, je n'ai qu'une page au debut, et sept à la fin.

Mon probleme est au moment ou je passe a la copie de la deuxieme page. En effet, dans la premiere page, je copie des boutons (je n'ai d'ailleurs pas réussis à faire ca proprement) et termine la copie par la ligne "Application.cutCopymode = False"

Le script ouvre un nouvel onglet, reviens sur le principale pour faire le copier coller d'un tableau. Mais au moment de coller, je me retrouve avec les boutons précedant (qui sont bien hors de la zone de copie).

J'ai beau chercher, je ne trouve pas la solution. J'en appel donc à votre savoir pour resoudre ce probleme plutôt génant.

'copie-collé des boutons
    
    Sheets("paramètres").Select
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    , DisplayAsIcon:=False, Left:=284.117647058824, Top:=1276.76470588235, _
    Width:=105, Height:=61.7647058823529).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Blun", "Bmar", "Bmer", "Bjeu" _
    , "Bven", "Bsam", "Bdim")).Select
    Selection.Copy
    Sheets("Fiche Saisie semaine").Select
    Range("A6:A8").Select
    ActiveSheet.Paste
    Range("C7").Select
    ActiveSheet.Shapes("CommandButton1").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveSheet.Shapes("CommandButton2").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveSheet.Shapes("CommandButton3").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveWindow.SmallScroll Down:=3
    ActiveSheet.Shapes("CommandButton4").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveSheet.Shapes("CommandButton5").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveSheet.Shapes("CommandButton6").Select
    Selection.ShapeRange.IncrementTop -18#
    ActiveSheet.Shapes("CommandButton7").Select
    Selection.ShapeRange.IncrementTop -18#
    Range("A25").Select
    Application.CutCopyMode = False


'Création de la page "fiche du mois"

Sheets.Add After:=Sheets(2)
    Sheets("Feuil2").Name = fm
    Sheets(fm).Select
        With ActiveWorkbook.Sheets(fm).Tab
            .Color = 205
            .TintAndShade = 0
        End With

    Columns("A:A").Select
    Selection.ColumnWidth = 2.29
    Columns("B:B").Select
    Selection.ColumnWidth = 3.43
    Columns("C:C").Select
    Selection.ColumnWidth = 28.43
    Columns("D:D").Select
    Selection.ColumnWidth = 9.43
    Columns("E:E").Select
    Selection.ColumnWidth = 28.43
    Columns("F:F").Select
    Selection.ColumnWidth = 9.43
    Columns("G:G").Select
    Selection.ColumnWidth = 28.43
    Columns("H:H").Select
    Selection.ColumnWidth = 9.43
    Columns("I:I").Select
    Selection.ColumnWidth = 0.5
    Columns("J:J").Select
    Selection.ColumnWidth = 9.43
    Rows("1:100").Select
    Selection.RowHeight = 49.5
    Rows("1:100").Select
    Selection.RowHeight = 20

    Sheets("paramètres").Range("A100:J143").Copy
    Sheets(fm).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

J'ai dans le coin en haut à gauche (A1) de la page "fiche du mois" mes 7 boutons ...


Merci

2 réponses

c148270 Messages postés 303 Date d'inscription mercredi 12 janvier 2005 Statut Membre Dernière intervention 3 octobre 2013 1
24 févr. 2010 à 08:36
Bonjour

Vérifier les propriétés du bouton :
Cocher la case :ne pas déplacer ou dimensionner avec les cellules

Bonne journée
0
Galatane Messages postés 2 Date d'inscription mardi 23 février 2010 Statut Membre Dernière intervention 1 mars 2010
1 mars 2010 à 08:47
Merci, le probleme à été resolu.
0