Résultat affiché ne correspond pas à celui attendu

Version imprimable

Bonjour,

J'ai trouvé un code qui me satisfait mais j'ai un souci de résultat.
En effet, je souhaiterais afficher la valeur de la cellule et non pas la formule.
Où est mon erreur ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Age18()
    Sheets("Données").Select
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    For x = 3 To FinalRow
 
        MaValeur = Cells(x, 82).Value
 
        If MaValeur > 0 Then
            Cells(x, 82).Resize(1, 1).Copy
            Sheets("-18 ans").Select
            NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(NextRow, 1).Select
            ActiveSheet.Paste
            Sheets("Données").Select
        End If
    Next x
End Sub

Merci pour l'aide
Cordialement

11/10/2015, 09h57
SfJ5Rpw8

Bonjour,

pas clair il n'est pas question de formule dans ton code...

quand tu dis "affiché" .. elle s'affiche ou la donnée concernée ?
11/10/2015, 12h44
CmzxNene

Bonjour,

~~Je mets en PJ un fichier synthétisé.~~
Mon souhait faire apparaître dans la feuille "-18 ans" , dans la colonne A et à partir de la cellule A4 uniquement les valeurs > 0 de la colonne H de la feuille "Données" soit en :
A4 - 1
A5 - 4
A6 - 7
A7 - 8

Merci

Fichiers joints dans les discussions

heu

quand on a une copie de cellule importante il vaut mieux eviter les select ca rame un peu

Code:

1
2
3
4
5
6
7
8
9
Public Sub Age18()
    Dim finalroW As Long
    With Sheets("Données")
        finalroW = .Cells(Rows.Count, 1).End(xlUp).Row
        For x = 3 To finalroW
            Sheets("-18 ans").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = IIf(.Cells(x, 82).Value > 0, .Cells(x, 82).Value, "")
        Next x
    End With
End Sub

15/10/2015, 12h17
CmzxNene

Bonjour Patrick,

Je reprends après quelques jours de repos bien mérités la plume pour te remercier pour ton code qui, mis à ma sauce, correspond parfaitement à mon attente.
Merci encore et @+ pour d'autres évolutions de mon appli
Cordialement

:pc: