Excel macro - tirer une formule

Question

Bonjour
Je cherche à tirer ma formule jusqu'à la ligne au dessus d'une certaine cellule nommé "somme" par exemple.
Voici le code que j'ai tapé :

Sub inser()

    Range("somme").Select
    Selection.EntireRow.Insert shift:=xlDown
    
   [b] Range("B5:Z6").Select
    Selection.AutoFill Destination:=Range("B5:Zxlup"), Type:=xlFillDefault
    Range("B5:Zxlup").Select/b


End Sub

Merci d'avance :)

Molenn · Answer

Ca ne peut pas marcher parce que B5:Zxlup n'est pas une plage valide dans Excel.

Ton range peut être défini par deux Range : la première cellule de ton tableau et la dernière (pour visualiser, par exemple, en haut à gauche de ton tableau et en bas à droite)
Ou tu peux juste remonter la dernière ligne de ton tableau, à toi de voir.
Mais dans tous les cas, tu ne peux pas coller une constante EXCEL comme une définition de ton range.

Il faut donc que tu fasses un truc du genre : 


Range("B5:Z6").AutoFill Destination:=Range("B5:Z" & Range("Z65536").End(xlUp).Row), Type:=xlFillDefault


Molenn

4toMik · Answer

mon problème c'est que je vais avoir un autre tableau en dessous...

Molenn · Answer

Et bien, dans ce cas, fonctionne dans l'autre sens. En descendant. Il faut juste pour trouver la dernière ligne de ton tableau avoir une colonne qui ne puisse pas contenir une cellule vide :


Range("B5:Z6").AutoFill Destination:=Range("B5:Z" & Range("Z6").End(xlDown).Row), Type:=xlFillDefault


Molenn

Excel macro - tirer une formule

3 réponses

Votre réponse

Discussions similaires