VBA pour copier coller valeur uniquement

Bonjour à tous

Je cherche le bon code pour copier un range de cellule (de B10 à B109) et coller uniquement les valeurs dans C10 à C109)

J'essaie avec ce code :

Private Sub BP_PLAN_NOM_3_Click()

'Description Modèle 3 : copier coller valeur
'**************************************************
 Dim f As Worksheet
Set f = Sheets("Liste_a_plan")

f.Select

'Valeur indice dans G10
f.Range("B10:B109").Select
Selection.Copy Destination:=f.Range("C10:C109")
Selection.PasteSpecial xlValues

End Sub 

Mais cela ne fonctionne pas

Quelqu'un aurais une idée pour moi

Merci

Bonne journée à tous

bonjour,

une correction du code (éviter les select qui n'apportent rien et ralentissent l'exécution)

Private Sub BP_PLAN_NOM_3_Click()

'Description Modèle 3 : copier coller valeur
'**************************************************
 Dim f As Worksheet
Set f = Sheets("Liste_a_plan")

'Valeur indice dans G10
f.Range("B10:B109").Copy
f.Range("C10:C109").PasteSpecial xlPasteValues

End Sub

Bonjour

Essaie ça :

Private Sub BP_PLAN_NOM_3_Click()

    'Description Modèle 3 : copier coller valeur
    '**************************************************
    Dim f As Worksheet, i&, plage As Range, c As Range
    Set f = Sheets("Liste_a_plan")
    Set plage = f.Range("B10:B109").SpecialCells(xlCellTypeConstants, 23)
    For Each c In plage
        c.Copy c.Offset(0, 1)
    Next c
End Sub

Bye !

Bonjour @h2so4

Merci pour ton code, mais les cellule de départ reste sélectionnée après la macro

Est-il possible de les désélectionner après ?

Merci

Bonjour gmb

Merci je test

Bonne journée

re-Bonjour,

une proposition, mais les cellules cibles restent sélectionnées. Pour les déselectionner, il faut sélectionner une autre cellule.

Private Sub BP_PLAN_NOM_3_Click()

'Description Modèle 3 : copier coller valeur
'**************************************************
 Dim f As Worksheet
Set f = Sheets("Liste_a_plan")

'Valeur indice dans G10
f.Range("B10:B109").Copy
f.Range("C10:C109").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Bonjour,

ou le tout simple f.Range ("C10:C109")=f.Range("B10:B109").value

eric

Merci à tous pour votre aide

Bonne fin de journée

Bonsoir

Pourriez-vous penser à cloturer vos fils lorsque la solution vous est apportée ?

Dans votre profil, une grande majorité de vos demandes semblent être encore actives.

Merci de votre collaboration

Cordialement