J’ai des données sans formules sur la plage de valeurs : A1 5
J’ai des formules de E1 à G1 (E1 :G1)
Je souhaite, avec une macro, étendre les formules de E1 jusqu’à G5.
Je veux que la formule soit « universelle » car, si aujourd’hui les formules à étendre sont en E1 :G1 et la dernière ligne de données sans formule est A5 5, demain, les dernières formules à étendre seront en E5 :G5, mais j’ignore jusqu’à quelle ligne iront les données sans formule que je vais ajouter à partir colonnes A6 à D6.
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Bonjour, Merguez 59.
Et sans macro, cela vous conviendrait ?
Cliquez en A1
Cliquez sur "Mettre sous forme de tableau, choisissez la couleur et valides.
Editez et validez EE,F2 et G2.
Chaque nouvelle ligne (à condition de ne pas laisser de ligne vide) contiendra les formules définies.
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Bonjour Victor,
merci pour ton aide. Je ne connaissais pas cette méthode: intéressante et je l'utiliserai dans d'autres occasions!
Néanmoins, dans le cadre de ce que je suis en train de faire actuellement, les actions pour lesquelles je demande votre aide font partie d'une macro plus longue qui arrive à ce moment là à une plage de donnée qu'il faut étendre.
Le fichier en PJ n'est qu'une simplification d'un fichier plus lourd.
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Bonjour
J'ai essayé, ça ne fonctionne pas
Voici ce que j'ai écrit:
Code:
Sub RRREEECCC()
With [B1].Resize(Range("A65000").End(xlUp).Row)
.FormulaR1C1 "=RC[-3]+5"
'.Value = .Value 'facultatif, supprime les formules
End With
End Sub
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Re,
Vous avez mal recopié (manquait un "="), et mal adapté (vous essayez de recopier B1).
Regardez la pj. Exemple pour les colonnes E et F, et à adapter pour G.
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Bonjour Victor,
merci de ton aide.
ça fonctionne bien et même quand j'ajoute des données après A55, ça fonctionne.
Par contre en lisant la formule, celle-ci relance le fait d'étendre les formules depuis E1 et F1.
Est-il possible de faire en sorte qu'elle fasse l'étirement de formule depuis la ligne la plus basse de E, F et G?
=> j'ajoute des données entre A611, la formule commencerait à E5 et F5.
=>le lendemain, j'ajoute des données entre A1215, la formule commencerait à E11 F11
etc, etc.... En fait chaque jour, l'ensemble du tableau est copier collé en valeur une fois les calculs effectués.
Re : VBA étendre les formules (positions de départ et de fin changeantes chaque jour)
Bonjour
Je pense être parvenu à résoudre mon problème: étendre mes formules à partir de ma sélection. Voilà ce que ça donne (à lancer quand la plage de donnée est sélectionnée):
Code:
Sub Macro3()
nbdeLigne = Range("A" & Rows.Count).End(xlUp).Row
nbdeLignebis = Range("E" & Rows.Count).End(xlUp).Row
Selection.AutoFill Destination:=Range(Range("E" & nbdeLignebis), Range("G" & nbdeLigne))
End Sub