Discussion :

[stormless]

bonjour a tous

J'ai un petit soucis avec la macro suivante

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
Private Sub CommandButton2_Click() 
Dim Plage As Range, CelS, celR As Range, CelD, celW As Range 
      Application.ScreenUpdating = False 
      With Worksheets("doss V") 
             Set Plage = .Range("c3", .Range("h65536").End(xlUp)) 
      End With 
      Set CelD = Worksheets("doss").Range("w5") 
      For Each CelS In Plage.Rows 
 
             CelS.Copy CelD 
             Set CelD = CelD.Offset(3, 0) 
 
      Next CelS 
      Application.ScreenUpdating = True 
      Set celW = Worksheets("doss").Range("w4") 
      Set celR = Worksheets("doss V").Range("C1:h1") 
      celR.Copy celW 
End Sub

dans la premiere partie de la macro je fais un CTRL+C CTRL+V

ici CelS.Copy CelD

et il faut absolument que je le fasse en CTRL+C CTRL+V mais copie de la valeur uniquement donc il faudrait utiliser la commande PasteSpecial Paste:=xlPasteValues
mais je ne voudrais pas utiliser la commande select pour ne pas ralentir le code.

question : y a t-il une astuce ou faut-il utiliser la commande select pour faire un pastespecial ?

@+

[stormless]

voila j'ai trouvé

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
 
Private Sub CommandButton2_Click()
Dim plage As Range, CelS, celR As Range, CelD, celW As Range
      Application.ScreenUpdating = False
      With Worksheets("doss V")
             Set plage = .Range("c2", .Range("h65536").End(xlUp))
      End With
      Set CelD = Worksheets("doss").Range("w5")
      For Each CelS In plage.Rows
 
             CelS.Copy
             CelD.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
             Set CelD = CelD.Offset(3, 0)
 
      Next CelS
 
      Application.ScreenUpdating = True
      Set celW = Worksheets("doss").Range("w4")
      Set celR = Worksheets("doss V").Range("C1:h1")
      celR.Copy celW
End Sub