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 ?
Merci pour l'aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cordialement
Partager