Modification code VBA copy en collage special valeur

[Macgiy]

Bonjour à tous,

En cherchant sur le forum j'ai trouvé ce code :

Sub J()
Dim r As Range, w1 As Worksheet, c As Integer, w2 As Worksheet

    'définir deux feuille
   Set w1 = Worksheets("Feuil1")
    Set w2 = Worksheets("Feuil2")
    
    'demander à l'utilisateur d'entrer un numéro de colonne
   Do
        c = Application.InputBox(prompt:="Entrez un numéro decolonne", Type:=1)
    Loop Until c > 0 And c < Rows.Count - 1
    
    'définir une plage (ici C2:C10 dans "Feuil1" si l'utilisateur à entré 3)
   Set Rg = w1.Range(w1.Cells(2, c), w1.Cells(10, c))
    
    'copier la plage (ici copié en Feuil2!A1)
   Rg.Copy Destination:=w2.Cells(1, 1)
    
End Sub

Il rempli bien les conditions que je souhaite en terme de sélection pour choisir les plages. Tout ça très bien.

Seulement le problème c est que les cellules que je sélectionne sont des cellules avec des formules à l'intérieur et la le code me copie et colle les formules.

Et donc j'aimerai changer la ligne de copy pour lui faire faire un collage special pour avoir uniquement la valeur et pas la formule.



En vous remerciant

 

[mapomme]

Re : Modification code VBA copy en collage special valeur

Bonjour Macgiy,

Essayez:

w2.Cells(1, 1).Resize(rg.Rows.Count, rg.Columns.Count).Value = rg.Value

ou bien

rg.Copy
w2.Cells(1, 1).PasteSpecial xlPasteValues

 

[Macgiy]

Re : Modification code VBA copy en collage special valeur

Merci à toi mapomme, je suis désolé d'avoir pris un peu de temps pour vous répondre j'étais sur autre chose ces derniers temps et je n'ai pu tester que ce matin.

La première fonctionne parfaitement