Etendre formules plage variable vba

Fermé

Valkiwi Messages postés 2 Date d'inscription mardi 10 novembre 2020 Statut Membre Dernière intervention 12 novembre 2020 - 10 nov. 2020 à 21:44
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 12 nov. 2020 à 12:04

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 !

A voir également:

Etendre formules plage variable vba
Formules excel de base - Guide
Etendre ecran pc - Guide
Formules - Télécharger - Études & Formations
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Loisirs / Divertissements
Find vba - Astuces et Solutions

4 réponses

Réponse 1 / 4

Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
11 nov. 2020 à 19:03

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

Réponse 2 / 4

Valkiwi Messages postés 2 Date d'inscription mardi 10 novembre 2020 Statut Membre Dernière intervention 12 novembre 2020
12 nov. 2020 à 08:58

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.

Réponse 3 / 4

Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
12 nov. 2020 à 09:50

Bonjour,
Quelles sont les formules dans les colonnes ?

Réponse 4 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 12 nov. 2020 à 12:08

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

VBA : Range avec références variables..

programme qui n'affiche pas le mot secret

VBA Excel : sélection d'une plage variable

"L'indice n'appartient à la sélection" + VBA

Discussions similaires

Newsletters