Aide sur macro

[Chaps]

Bonjour,

J'ai besoin d'aide, voici le code suivant, je voudrais spécifier que ma variable appelée Fin ne peut aller en deçà de la cellule F19.

Sub Clean()
[E1].Value = ""
Dim Fin As Integer
Fin = [F65536].End(xlUp).Row
Range("A19:F" & Fin).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

Merci pour le retour @+

Chaps

 

[excalibur]

Re : Aide sur macro

bonjour Chaps le forum essaie comme cela
Fin = [F19].End(xlUp).Row

 

[Chaps]

Re : Aide sur macro

re,

merci pour la réponse, mais apparemment j'ai du mal m'exprimer, disons plutot que ma variable Fin doit avoir comme interval, mini F19 et maxi F65536.

merci pour le suivi

 

[Chaps]

Re : Aide sur macro

re,

merci pour la réponse, mais apparemment j'ai du mal m'exprimer, disons plutot que ma variable Fin doit avoir comme interval, mini F19 et maxi F65536.

merci pour le suivi

Mini Fixe : F19
Maxi variable : Soit dernière cellule de la colonne F non vide, avec comme celulle mini F19

 

[Staple1600]

Re : Aide sur macro

Bonjour


Si j'ai bien compris

Sub test()
'efface le contenu
Range(Cells(19, "A"), Cells([F65536].End(xlUp).Row, "F")).ClearContents
End Sub

Sub testII()
'supprime les lignes
Range(Cells(19, "A"), Cells([F65536].End(xlUp).Row, "F")).Rows.Delete
End Sub

 

[Pierrot93]

Re : Aide sur macro

Bonsoir Chaps, Excalibur, Staple

une autre solution :

Dim fin As Integer
With Sheets("Feuil1").Range("F65536").End(xlUp)
    fin = IIf(.Row > 19, .Row, 19)
End With

bonne soirée
@+

 

[Chaps]

Re : Aide sur macro

Bonjour à tous,

Tout d'abord merci pour le suivi, et avec retard spécialement Pierrot93 qui a compris mon besoin.

@+

Chaps