Discussion :

[skipeemed]

Bonjour,

Je confectionne une macro qui automatise un rapport mais le problème c'est que j'ai un nombre de ligne qui diffère donc quand je met le code suivant pour un rapport donné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Range("J17").Select
    Selection.AutoFill Destination:=Range("J17:J19")
    Range("J17:J19").Select
    Selection.AutoFill Destination:=Range("J17:J268")
    Range("J17:J268").Select

ça s'applique que de la 17 ème ligne à la 268 ligne, mais moi je veux que ça dépende du nombre de ligne qu'il y'a dans le rapport que je traite.
Je ne veux pas la fixer à la 268 ème ligne. Il peut y avoir un rapport qui arrive jusque la 900 ème ligne comme seulement qu'à la 100 ème ligne.

Donc voilà le problème, Merçi de bien vouloir m'orienter .

Cordialement,
SKIP

[skipeemed]

En fai j'ai cherché et j'ai résolu le problème
En fait le code que je dois insérer est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("a65536").Select
    dernière_ligne = Selection.End(xlUp).Row

ET je modifie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFill Destination:=Range("J17:J19")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFill Destination:=Range("J17:J" &dernière_ligne)

Pour que ça s'applique jusqu'à la dernière et quelque soit le nombre de lignes.


Cordialement,
SKIP