XL 2021 Etirer les formules avec FillDown

dadaze

XLDnaute Nouveau
Bonjour,

Ci dessous , j'ai créé une macro pour étirer les formules dans une zone bien définie.
Celle ci fonctionne mais elle va au delà de la dernière ligne matérialisé par la variable Dim Derl As Long
Je m'explique.
Imaginons que le numéro de ligne ou est censé s'arrêter la macro est 82 cette dernière continue d'étirer les formule jusqu'à la ligne n° 200 et de 82 à 200 j'ai des 0 qui s'affichent.
Si vous avez quelques minutes pour m'aider.
je vous en remercie.

Cordialement

Dim Derl As Long
Feuil10.Select
Derl = Range("b" & Rows.Count).End(xlUp).Row
Range("cx2:da2").Select
Range("cx2:da2" & Derl).FillDown
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour,

Pour être encore plus explicite que @TooFatBoy que je salue :
VB:
Range("cx2:da2" & Derl).FillDown

si Derl = 82 alors "cx2:da2" & Derl vaut cx2:da282

Enlevez ce "2" que je ne saurais voir 😉 !

VB:
Dim Derl As Long
    Feuil10.Select
    Derl = Range("b" & Rows.Count).End(xlUp).Row
    Range("cx2:da" & Derl).FillDown
 
Dernière édition:

dadaze

XLDnaute Nouveau
Bonjour,

Pour être encore plus explicite que @TooFatBoy que je salue :
VB:
Range("cx2:da2" & Derl).FillDown

si Derl = 82 alors "cx2:da2" & Derl vaut cx2:da282

Enlevez ce "2" que je ne saurais voir 😉 !

VB:
Dim Derl As Long
    Feuil10.Select
    Derl = Range("b" & Rows.Count).End(xlUp).Row
    Range("cx2:da" & Derl).FillDown
Mille merci tous les deux pour votre aide.
En effet, je n'ai pas percuté tout de suite.
Pour les utilisateurs aguerris c'est gros comme le nez au milieu de la figure.
TooFatBoy & mapomme encore merci

Je vous souhaite un bon Weekend.
 

Discussions similaires

Réponses
7
Affichages
1 K