Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recopier une formule vers le bas sur une col de longueur variable

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion OldZebra
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

OldZebra

Guest
Bonjour,

Je sollicite votre aide, Je ne trouve pas de réponse claire à ce pb:
J'ai un fichier de tres gde longueur (souvent plus de 40000 lignes)
je souhaite en VBA apliquer une formule dans la 1ere case d'une colonne
(ex: en C additionner A et B) comme dans le fichier joint.

La solution que j'ai trouvée fonctionne,

en VBA, je teste la présence d'une valeur dans la colonne d'a coté, pour vérifier si je suis en bas du fichier.

mais avec 2 inconvénients.
Sur un fichier de tres gde longueur, c'est trèèèèèèèèèèèès lonnnnnnnnnnnng !
(les formules sont beaucoup plus complexes que dans l'exemple !)

Si la colonne de réference contient une case vide, la macro s'arrète accidentellement.

Quelqu'un a-t-il une solution ou idée qui pourrait ètre plus rapide (avec Xldown, je recopie jusqu'à la fin de la feuille,donc au dela de la fin du fichier et cela ne me convient pas.

Merci pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : recopier une formule vers le bas sur une col de longueur variable

Bonsoir OldZebra,

Avec ton exemple:

Code: 
Sub Testformula()
    Dim derLigne As Long
    Dim plage As Range
    With Sheets("Feuil1")
        derLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set plage = .Range("C1:C" & derLigne)
        plage.FormulaR1C1 = "=RC[-2]+RC[-1]"
    End With
End Sub

P.S. avec ta macro c'eût était mieux.
A+
 
Vote positif 0 Vote négatif
Re : recopier une formule vers le bas sur une col de longueur variable

Bonsoir,

Re, décidément, Hasco, pas la forme, moi, aujourd'hui.....

Edit : Hasco, son code est dans Feuil1....

Tant pis, je mets mon code...

Code: 
Sub recopie()
Dim DerLig As Long
DerLig = Range("A:B").Find("*", , , , xlByRows, xlPrevious).Row
Range("C1:C" & DerLig).FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub
 
Vote positif 0 Vote négatif
Re : recopier une formule vers le bas sur une col de longueur variable

Re,

@Bh²😀, je me suis posé la même question mais comme oldzebra nous disait:
en VBA, je teste la présence d'une valeur dans la colonne d'a coté, pour vérifier si je suis en bas du fichier.
Cliquez pour agrandir...

J'ai choisi de faire le test sur une colonne.

@Staple😀, parceque lorsque qu'une solution est pour moi, je vais comme vous au plus synthétique. Mais pour les demandeurs, je préfère segmenter.

Mais dans vba comme dans le cochon tout est bon!

A++ vous deux😉
 
Vote positif 0 Vote négatif
Re : recopier une formule vers le bas sur une col de longueur variable

Salut vieux zebre
Bonsoir le fil
bonsoir le Forum

On pourrait aussi utiliser cette méthode
Code: 
Sub test()
Dim DerLigne As Long
With Worksheets("Feuil1")
DerLigne = .Range("A65536").End(xlUp).Row
           .Range("C1") = "=Sum(A1:B1)"
           .Range("C1").[COLOR=Red]AutoFill [/COLOR].Range("C1:C" & DerLigne), xlFillDefault
End with
End Sub
Bonne fin de Soirée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : recopier une formule vers le bas sur une col de longueur variable

Hasco,BhBh, Staple1600, et Cti160, merci à vous 4

toutes vos solutions fonctionnent, ! je me sent humble, et il va me faloir 2 ou 3 jours pour en digèrer le code,
je suis séduit par l'élégance de vos solutions
qui ne montent pas "des usines à gaz"



Je vais tester et essayer de comprendre tout celà, en fait "usedRange" me donne des idées pour autre chose...
merci encore à tous.

OldZebra
 
Vote positif 0 Vote négatif
Re : recopier une formule vers le bas sur une col de longueur variable

Désolé,

je me suis trompé de fil pour poster mon message, et je ne sais l'effacer 😕
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
300
Cousinhub
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
314
dgil37
D
D
  • Question Question
XL 2019 Recopier vers le bas
2
Réponses
25
Affichages
1 K
Danyk01
D
F
  • Résolu(e)
XL 2019 Power Query - Implémenter Splitter.SplitTextByPositions pour fractionner une colonne de longueur variable en 3 colonnes
Réponses
4
Affichages
636
JFL_XLD
J
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
383
GALOUGALOU
E
  • Question Question
Microsoft 365 Fonction de decalage de cellule vers le bas
Réponses
14
Affichages
752
Cousinhub
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
321
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Ecrire une formule de calcul en Vba Excel
24 25 26
Réponses
385
Affichages
16 K
TooFatBoy
P
  • Question Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
1 K
Phil69970
POWERQUERY :: Importation d'un fichier comportant des enregistrements de longueur fixe et les découper selon une structure définie
Réponses
0
Affichages
468
oguruma
E
  • Question Question
XL 2021 Longueur de texte sur une ligne
Réponses
2
Affichages
550
sylvanu
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
886
ChTi160
L
  • Question Question
XL 2016 recopier vers le bas colonne D
Réponses
6
Affichages
669
LEPATOCHE
L
C
  • Question Question
XL 2021 Comment intégrer le contenu d'une cellule dans une formule
Réponses
1
Affichages
426
chris
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
374
CS49
C
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
856
Lyrix
L
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
668
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…