Etendre formules plage variable vba

Signaler
Messages postés
2
Date d'inscription
mardi 10 novembre 2020
Statut
Membre
Dernière intervention
12 novembre 2020
-
Messages postés
7062
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 novembre 2020
-
Bonjour,

Je souhaiterais obtenir de l’aide pour un code VBA qui me permettrait de :
Etendre les formules sur une plage jusqu’à la dernière ligne de mon tableau.

Mon souci est que la ligne de début est une variable et la ligne de fin est une variable.

Je ne peux donc pas utiliser le type de code ci-dessous car tous mes indices sont des variables :

Dim DernLigne As Long

DernLigne = Range("S" & Rows.Count).End(xlUp).Row
Range("T6").AutoFill Destination:=Range("T6:Z" & DernLigne)


Exemple de mon fichier : Il y a des formules dans les colonnes T/U/V/W/X/Y/Z et je souhaiterais étendre ces formules vers le bas jusqu’à la dernière ligne de la colonne S.




Pourriez-vous m’aider svp ?

Je vous remercie par avance !

4 réponses

Messages postés
9819
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
15 novembre 2020
1 096
Bonjour,
Tout simplement sélectionner la plage "$T$2:$Z$2" puis tirer la plage jusqu'à la fin de votre plage de données. Se qui va prendre moins de 60 secondes
Messages postés
2
Date d'inscription
mardi 10 novembre 2020
Statut
Membre
Dernière intervention
12 novembre 2020

Aha excellente réponse Le Pingou :)

Ma question était de le faire en VBA. (comme précisé au 1er message).

C'est surement ce que je finirai par faire si je ne trouve pas de code.
Messages postés
9819
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
15 novembre 2020
1 096
Bonjour,
Quelles sont les formules dans les colonnes ?
Messages postés
7062
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 novembre 2020
576
Bonjour,

essaie ceci:

Option Explicit
Sub ExtensionFormule()
    Dim DernLigne As Long
    With Worksheets("Feuil1") 'adapter feuille
        .Range("T6").FormulaR1C1 = "=TEXT(RC[-1],""mmm"")" ' adapter la formule
        DernLigne = .Range("S" & .Rows.Count).End(xlUp).Row
        .Range("T6").AutoFill Destination:=.Range("T6:Z6"), Type:=xlFillDefault
        .Range("T6:Z6").AutoFill Destination:=.Range("T6:Z" & DernLigne), Type:=xlFillDefault
    End With
End Sub


et cela

https://forum.excel-pratique.com/excel/etendre-formules-plage-variable-vba-148640