Discussion :

[TEnergie]

Bonjour tout le monde.
Je suis confronte a un probleme de copy/paste. En effet j ai plusieurs feuilles dont j extrait les donnees pour les mettre ensuite les unes a la suite des autres dans une feuille recapitulative. Lorsque j effectue mon code les donnees sont extraite correctement pour la premiere feuille mais pas pour les autres car les formules ne suivent pas la logique de l extraction. J aimerais donc savoir comment on peurt faire pour copier et ensuite coller uniquement ce que contient les cellules sans les formules associees.
Je vous joins mon code.
merci par avance.

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
24
25
26
27
28
29
Sub Recup()
 
    Dim Sht As Worksheet
    Dim Plage As Range
 
  For Each Sht In ThisWorkbook.Worksheets
 
        If Sht.Name = "X" Or Sht.Name = "Y" Or Sht.Name = "Z" Then
 
            With Sht
 
              Set Plage = .Range(.Cells(2, 1), _
                            .Cells( _
                            .Cells.Find("*", .[A1], -4123, , _
                            1, 2).Row, _
                            .Cells.Find("*", .[A1], -4123, , _
                            2, 2).Column))
 
            End With
 
 
          Plage.Copy _
            Worksheets("Basis").Range("A65536").End(xlUp).Offset(1, 0)
 
        End If
 
    Next Sht
 
End Sub

[bifconsult]

Bonjour,

Une fois le "copy" enregistré, la ligne de code pour le "paste" des valeurs est, une fois le range sélectionné:

Code :

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

Selection.PasteSpecial Paste:=xlPasteValues

[TEnergie]

Alors j ai essaye de completer le code mais celui ci ne marche pas

Code :

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

1
2
3
4
Plage.Copy _
            Worksheets("Basis").Range("A65536").End(xlUp).Offset(1, 0)
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Comment est ce que je peux justement insere cette partie ?
Merci d avance

[bifconsult]

Code :

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

1
2
3
4
Plage.Copy 
Worksheets("Basis").Range("A65536").End(xlUp).Offset(1, 0).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

PS: après "xlpastevalues", ce sont seulement des options que tu n'es pas obligé d'écrire.

[TEnergie]

J ai recopier exactement le code et en l executant celui rencontre un probleme au moment de selectionner la plage pour ensuite faire le "pastespecial".

[bifconsult]

Je n'avais pas testé, mais ceci tourne chez moi (testé):

Code :

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

1
2
3
plage.Copy
Worksheets("Basis").Select
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

[TEnergie]

ca marche !!!
merci beaucoup