garder un nbre précis de lignes

[Dan06]

Bonjour savoir comment écrire en vba ce qui suis :
- si B3 de la feuille 1=20, alors ne garder que les 20 1eres lignes de feuille 2
- si B4 de la feuille 1= 12, alors ne garder que les 12 premières lignes de la feuille 3 ...

Merci pour vos contributions antérieures.

 

[le Fnake]

Bonsoir Dan, le forum

tu essayer de t'inspirer de ce code :

Sub effacer()
NbLignes = Range('Feuil1!B3').Value
If Not (IsNumeric(NbLignes)) Then Exit Sub
'test pour voir si la valeur est bien numérique'

DerLigne = Range('Feuil2!A6500').End(xlUp).Row
'donne la dernière ligne non vide de la colonne A de la Feuil2'

If NbLignes < DerLigne Then
    Worksheets('Feuil2').Select
    Range(Cells(NbLignes + 1, 1), Cells(DerLigne + 1, 1)).EntireRow.Delete
End If
End Sub

Bon courage

le Fnake

 

[Dan06]

Merci bcp, je vais essayer !