Recopie incomplète

Bonjour à tous

A mon tour de solliciter le forum.

Je rencontre un problème curieux.

Pour diverses feuilles d’un classeur, je dois à la demande et à partir de chacune d’elles, copier 3 cellules et coller leur valeur sur le tableau d’une autre feuille, « Suivi »

Il s’agit sur le classeur joint des feuilles CE_N°1 , ou CE_N°2 ou CE_N°3….

Les cellules y sont repérées en jaune, ce sont : B14 ; C53 et B57

Facile avec une petite macro !

Oui mais la 3° cellule est récalcitrante et ne veut pas se coller…

Quelque chose m’échappe : pouvez-vous m’éclairer ?

Merci d’avance !

Bonsoir gmb

Je ne vais pas pouvoir t'aider puisque chez moi aucun soucis.

As-tu essayé avec .Range("F" & lgn).PasteSpecial Paste:=xlPasteValues ?

Peut-être que 2010 est sensible ...

Amicalement

Nad

Bonsoir,

Pas de souci chez moi non plus en 2010.

As-tu une raison particulière pour passer par un copier-coller et non une affectation directe?

Range("B57").Copy

.Range("F" & lgn).PasteSpecial xlPasteValues

=> .Range("F" & lgn).Value = Range("B57").Value

Bouben

Bonsoir ,

ça fonctionne parfaitement en 2010

Cordialement

zinelamri

Bonsoir

Fonctionne bien avec 2010

Fonctionne très mal avec 2013

A lire https://forum.excel-pratique.com/excel/probleme-de-copier-coller-avec-2013-t47106.html

A toute fin utile un code qui fonctionne sur 2013

Sub ReportSurSuivi()
Dim Nomfeuille As String

  Application.ScreenUpdating = False
    If ActiveSheet.Name = "Modèle" Then
        MsgBox "Vous ne pouvez pas reporter sur le ''Suivi'' la fiche ''Modèle'' !", 16
        End
    End If
    Nomfeuille = ActiveSheet.Name
    With Sheets("Suivi")
        Set cell = .Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(Range("B4").Value)
        If cell Is Nothing Then
            MsgBox "Cette feuille ne figure pas sur la fiche ''Suivi''", 16
            End
        Else
            lgn = cell.Row
        End If
        .Range("B" & lgn).Value = Date
        .Range("C" & lgn).Value = Now
        Sheets(Nomfeuille).Range("B14").Copy
        Sheets("Suivi").Range("D" & lgn).PasteSpecial xlPasteValues
        Sheets(Nomfeuille).Range("C53").Copy
        Sheets("Suivi").Range("E" & lgn).PasteSpecial xlPasteValues
        Sheets(Nomfeuille).Range("B57").Copy
        Sheets("Suivi").Range("F" & lgn).PasteSpecial xlPasteValues
    End With
    MsgBox "Le report à été exécuté avec succès !"

End Sub

Bonjour à tous

Et un grand merci à Nad, Bouben, Zinelamri et Banzaï pour m’avoir consacré du temps et répondu.

Je sais désormais qu’il s’agit d’un problème de version.

Et, grâce à Banzaï, je sais comment le contourner : sa solution marche très bien.

Je retiens qu’il vaudra mieux pour moi, à l’avenir, nommer une feuille devant une sélection, même si on est dans la feuille active.

Et pour répondre à Bouben qui me demande pourquoi je ne fais pas une copie directe, je dirai que c’est par (mauvaise ?) habitude, ou que je préfère la méthode en 2 temps car elle est plus générale et s’applique aussi bien à des cellules isolées qu’à des plages de cellule.

Et puis, j’ai l’impression ainsi de mieux maitriser ce que je fais en choisissant une copie avec ou sans format, avec ou sans quadrillage…

Merci encore !

Bonjour,

Un grand merci à tous, vous êtes des chefs

Ca fonctionne parfaitement

Bye,

Sylvie