Copier la valeur d'une cellule en VBA

Bonjour le forum,

A partir de la feuille « mvts », je souhaite copier la plage de cellules B14 à F19 sur la feuille « recap ».

Avec ma macro, je n’arrive pas à récupérer la valeur des cellules B14 à B19.

Pouvez solutionner mon problème ?

Avec mes remerciements anticipés.

Cordialement,

Bernard

Bonjour,

Je ne maitrise pas trop bien VBA ,regarde et dis quoi.

Sinon ,il faut attendre un pro de vba .

A +

Bonjour à tous,

c'est à cause de la formule en colonne "B", tu dois copier et Collage/Spécial/Valeur

Sub Copie()
    Sheets("mvts").Range("B14:F19").Copy
        With Sheets("recap")
            .Range("b8").PasteSpecial Paste:=xlPasteValues
        End With
    Application.CutCopyMode = False
End Sub

Amicalement

Claude

Bonjour

le tout est de savoir si tu veux seulement les valeurs ou les formules

Pour les formules le code de Henri est adaptée

Sinon pour les valeurs (je me tenu à tes paramètres de ta macro)

Sub Recopie()
  Sheets("recap").Range("B30:F40").ClearContents
  Sheets("mvts").Range("B14:F19").Copy
  Sheets("recap").Range("B8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Mais c'est un code que tu aurais pu trouver avec l'enregistreur

Bonne journée

Edit : Bonjour Claude

Bonsoir à tous,

Un grand merci pour toutes vos réponses.

Je m’excuse de n’avoir pas été assez précis dans ma demande, mais je vois que vous avez deviné mes souhaits.

Je vais tester sur mon fichier.

Bonne soirée.

Cordialement,

Bernard

Bonsoir le forum,

Encore un grand merci pour vos solutions.

Une fois de plus, j’ai oublié de préciser que certaines lignes étaient en couleur, dans mon fichier définitif. J’ai essayé de modifier vos codes, mais sans succès.

Pouvez-vous rectifier le code ?

Cordialement,

Bernard

Bonjour,

Tu ajoute Collage Spécial/Format

Sub Copie()
    With Sheets("recap")
        .Range("B30:F40").Clear
        Sheets("mvts").Range("B14:F19").Copy
        .Range("b8").PasteSpecial Paste:=xlPasteValues
        .Range("b8").PasteSpecial Paste:=xlPasteFormats
    End With
    Application.CutCopyMode = False
End Sub

Bonne journée

Claude

Bonjour Claude,

Je viens te tester ton code, c’est super.

Avec mes sincères remerciements.

Amicalement,

Bernard