copy pen valeur par Offset

[gilles72]

Bonjour,
sur un fichier je souhaite recopier d'un onglet sur un autre des données.
J'aimerais les recopier par la méthode ci-dessous, mais en valeur uniquement, car là, je copie aussi les fomules et les formats...(voir le principe ci-dessous)

Sheets("complet").Select
  Set Cal = Range("F3:F20")
  For Each cell In Cal
    If cell = "EA" Then
    cell.Offset(0, -1).Copy Sheets("jeunes").Range("F3").Offset(Ligne, 0)
     Ligne = Ligne + 1
    End If
  Next cell
  Application.CutCopyMode = False

J'ai essayé un truc comme ça:

    cell.Offset(0, 0).Copy Selection.PasteSpecial Paste:=xlPasteValues Sheets("jeunes").Range("F3").Offset(Ligne, 0)

sans succès
Ya ty kekun qui verrait une solution?
Merci
Gilles

 

[Efgé]

Re : copy pen valeur par Offset

Bonjour gilles72
Peut être:

Sheets("jeunes").Range("F3").Offset(Ligne, 0) = cell.Offset(0, -1).Value

Cordialement

 

[gilles72]

Re : copy pen valeur par Offset

Merci Efgé
Nickel
merci encore parce que je pense utiliser ce code pour beaucoup de données.
à+
Gilles

 

[Efgé]

Re : copy pen valeur par Offset

Re
Si il s'agit de "beaucoups de données" on peu essayer ceci pour accélérer...:

Dim Tablo()
x = 0
Set Cal = Sheets("complet").Range("F3:F20")
For Each cell In Cal
  If cell = "EA" Then
      x = x + 1
      ReDim Preserve Tablo(1 To x)
      Tablo(x) = cell.Offset(0, -1).Value
  End If
Next cell
Sheets("jeunes").Range("F3").Resize(UBound(Tablo, 1), 1) = Application.Transpose(Tablo)

Cordialement

 

[gilles72]

Re : copy pen valeur par Offset

Merci de tous ces conseils FG,
je vais tester ça ce soir
à+