Etendre une formule jusqu'à la dernière ligne non vide

Bonjour les amis

J'ai besoin d'un code VBA qui me permet de détecter la dernière ligne non vide de ma base et étendre la formule jusqu'à cette ligne.

Pouvez vous m'aider là dessus?

Merci d'avance

Bonjour,

sans exemple pas facile à mettre en place

une soluce

DL=Range("A" & Rows.Count).End(xlUp).Row 'Derniere ligne de la colonne A
F = "=IF(AND(A13="""",F13=""""),G13,"""")"  'Formule ) mettre la formule après le F = (venant de la macro automatique par exemple)
Range("L13").Formula = F 'Emplacement de la 1ere cellule recevant la formule
Range("L13").AutoFill Destination:=Range("L13:" & DL), Type:=xlFillDefault   'incrémentation jusqu'à la derniere ligne

Je viens de vous rattacher un exemple simplifié de mon fichier réel.

Merci

Merci beaucoup

ca fonctionne mais dans le cas de formules compliquées et nombreuses est ce que je doit les définir à chaque fois.

une proposition sans programmation, j'utilise la notion de tableau

un seul inconvénient, dans une colonne on a toujours la même formule

a plus, je pars pour 4 jours en vacances, il faudra attendre si tu veux d'autres pécision

245recopie-formule.xlsx (10.16 Ko)

Bonjour

Code module associé au bouton

Sub incrémenter()
    Range("D6:G6").Select
    Selection.AutoFill Destination:=Range("D6:G" & [C65000].End(xlUp).Row)
    Range("D5").Select
End Sub

Cordialement

Merci beaucoup Gullaud

@Amadéus , merci énormément, ça marche très bien et c'est exactement la solution dont j'en avais besoin

Merci beaucoup Gullaud

@Amadéus , merci énormément, ça marche très bien et c'est exactement la solution dont j'en avais besoin

Rechercher des sujets similaires à "etendre formule derniere ligne vide"