Tirer une formule jusqu'à la dernière ligne, dans une macro [Résolu]

Signaler
-
 gexelpas -
Bonjour,

Je souhaite intégrer un code dans VBA, qui permette de copier/coller la formule dans la cellule D1, dans toutes les cellules de la colonne D, jusqu'à la dernière ligne contenant une valeur dans la colonne A.

Merci d'avance pour votre aide !
gexelpas

2 réponses

Messages postés
845
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
7 octobre 2020
173
Bonjour,
Voici un exemple avec recopie de la formule

https://mon-partage.fr/f/qbJPFV4p/
Bonjour M-12,
Merci pour cette réponse et le fichier test, qui fonctionne très bien.
J'ai essayé de retranscrire le code dans mon module, mais la macro bug dessus, indiquant "Erreur d'exécution 6: Dépassement de capacité"....
Pour précision, l'onglet sur lequel la formule doit être tirée, comporte toujours plus de 100 000 lignes...
Y'a t-il une parade ?

voilà comment j'ai intégrer ton code à la formule que je souhaite tirer.

Merci d'avance !

Dim F As String
Dim D2 As Integer
D2 = Sheets("Originelle (2)").Range("A" & Rows.Count).End(xlUp).Row
F = "=IF(OR(RC[31]=""SALES REGULAR"",RC[31]=""SALES DEMO/USED""),IF(OR(RC[5]=""Budget2019"",RC[5]=""Budget2020""),""No"",IF(RC[16]=""TK"",""No"",IF(RC[-1]=""US"",""No"",IF(OR(RC[45]<>0,RC[40]<>0),""Yes"",IF(OR(RC[30]=""ACCESSORIES"",RC[30]=""CREDIT"",RC[30]=""DIN"",RC[30]=""SERVICE""),""No"",""Yes""))))),""No"")"
Range("D2").Formula = F
Range("D2").AutoFill Destination:=Range("D2:D" & D2), Type:=xlFillDefault
Messages postés
8206
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
9 octobre 2020
1 492
Bonjour,

Voici un exemple de code (pour ceux qui, comme moi, n'ouvrent pas les fichiers avec macro) :
Option Explicit
Sub Test()
Dim cel As Range
  With Worksheets("Feuil1")  'Adapter au nom de la feuille
     Set cel = .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 3)
     .Range("D1", cel).FormulaR1C1 = .Range("D1").FormulaR1C1
  End With
End Sub



Cordialement
Patrice

Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Bonjour Patrice 33740,

Que dire, si ce n'est que ça marche nickel !!!
1.000 mercis et effectivement faut que je fasse gaffe à ne pas ouvrir de macros "à l'aveugle"...

J'ai un post toujours ouvert sur ce site (concerne TCD) et je me demandais si, d'aventure", il vous était possible d'y jeter un oeil...? :-)
Lien du post:
https://www.commentcamarche.net/forum/affich-36446393-recherchev-a-plusieurs-entrees-dans-un-tableau-croise-dynamique

Dans tous les cas, encore une fois merci !