Suite sujet déc.18 faire descendre les formules des dernières cellules non vides (lignes variables)


#1

Bonjour

J’étais venu solliciter les experts en VBA sur ce forum en décembre dernier pour créer une macro qui ferait descendre les formules des dernières cellules non vides…
Merci à Mimimathy88 pour son aide précieuse.
tout fonctionnait jusqu’à aujourdhui !..
Maintenant j’ai un problème de capacité.Message : “Erreur d’exécution 6 Dépassement de capacité”
De ce que je comprends c’est par ce que j’ai atteins les 32000 lignes.
Je dois modifier ma variable avec le type “Long”…
Mais je n’y parviens pas.
Voici mon code aujourd’hui qui fonctionnait, avant que j’atteigne ces 32000 lignes de données.

Pour faire descendre cette dernière ligne de formules jusqu’à la dernière ligne de données intégrées:
Dim Dl1%, Dl2%
Dl1 = Range(“A” & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
Dl2 = Range(“X” & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne X
Range(“X” & Dl2).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Range(Cells(Dl2, 24), Cells(Dl1, 33))

Merci d’avance

Cdt

Captain78


#2

Bonjour,
Change sur cette ligne

par Dim Dl1 as long, Dl2 as long


#3

C’est parfait
Merci beaucoup


fermé automatiquement #4

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.