Aide sur macro

excalibur

XLDnaute Impliqué

• 17 Janvier 2008

• #2

Re : Aide sur macro

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

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 17 Janvier 2008

• #3

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

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 17 Janvier 2008

• #4

Re : Aide sur macro

Chaps à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2008

• #5

Re : Aide sur macro

Bonjour


Si j'ai bien compris

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Janvier 2008

• #6

Re : Aide sur macro

Bonsoir Chaps, Excalibur, Staple

une autre solution :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

C

Chaps

Guest

• 23 Janvier 2008

• #7

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

 

Vote positif 0 Vote négatif