Discussion :

[adriennoob]

Salut tout le monde.

Bon je viens de me casser la tête à n'en plus pouvoir.
J'ai un tableau ou je veux venir sélectionner une plage de donnée la couper Puis la coller à l'autre bout de mon tableau.

Code :

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

Paste

Sauf que j'ai la méthode Paste qui ne fonctionne pas. Je pense que ça vient du fait que je ne sélectionne qu'une cellule à l'endroit où je veux copier.

Merci

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
23
Private Sub Worksheet_Activate()
 
    Dim Plage As Range
    Dim Retiens As Integer
 
   With Worksheets("Base")
 
  If Range("G2") = "cout 2009" Then
   Retiens = 2009
 
    If Retiens <> Date Then
    Range("G2:g" & Range("g" & Rows.Count).End(xlUp).Row).Cut
    UsedRange.Cells(2, UsedRange.Columns.Count + 1).Select
    Paste
 
    Range("G:G").Delete
 
    End If
 
End If
 
End With
End Sub

[sabzzz]

bonjour adriennoob,

Code :

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

Selection.Paste

[adriennoob]

ben ça marche toujour pas!!!

J'ai remarqué que je pouvais plus utiliser, lorsque je retourne sur ma feuille de calcul le simple ctrl + V ?????

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
Private Sub Worksheet_Activate()
 
    Dim Plage As Range
    Dim Retiens As Integer
 
With Worksheets("Base")
 
If Range("G2") = "cout 2009" Then
   Retiens = 2009
    If Retiens <> Year(Date) Then
    Range("G2:g" & Range("g" & Rows.Count).End(xlUp).Row).Cut
    UsedRange.Cells(2, UsedRange.Columns.Count + 1).Select
    Selection.Paste
    Application.CutCopyMode = True
    Application.ScreenUpdating = False
    End If
End If

En fait ça me met le message d'erreur propriété ou méthode non gérée par cet objet

[sabzzz]

bonjour adriennoob,

meacoulpa, suite à cut il et select il faut utiliser :

Code :

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

ActiveSheet.Paste

[adriennoob]

Ben tu vois ça a fonctionné une fois mais après ça ne marche plus à nouveau.

J'y comprend rien, ça me met l'erreur 1004 la méthode Paste de la classe worsheet ne fonctionne pas.????

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
Private Sub Worksheet_Activate()
 
    Dim Plage As Range
    Dim Retiens As Integer
 
With Worksheets("Base")
 
If Range("G2") = "cout 2009" Then
   Retiens = 2009
    If Retiens <> Year(Date) Then
    Worksheets("Base").Range("G2:g" & Range("g" & Rows.Count).End(xlUp).Row).Cut
    Worksheets("Base").UsedRange.Cells(2, UsedRange.Columns.Count + 1).Select
     Application.CutCopyMode = True
    ActiveSheet.Paste
 
 
    Application.ScreenUpdating = False
 
 
    End If

[sabzzz]

peut tu mettre un lien vers ton fichier (réduit à une feuille ) ?