Tirer une formule jusqu'à la dernière ligne, dans une macro

Résolu

Formule

gexelpas -
M-12 Messages postés 1349 Statut Membre - 9 janv. 2021 à 13:55

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

Afficher la suite

2 réponses

Réponse 1 / 2
M-12 Messages postés 1349 Statut Membre 285

Bonjour,
Voici un exemple avec recopie de la formule

https://mon-partage.fr/f/qbJPFV4p/
1
1. gexelpas
  
  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
  
  0
  1. M-12 Messages postés 1349 Statut Membre 285 > gexelpas
    
    Re,
    
    Il ne faut pas confondre DL (pour Dernière Ligne) et D2, tu prend en Variable une adresse de cellule (D2)
    Dim F As String Dim DL As Integer DL = 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" & DL), Type:=xlFillDefault
    
    0
Réponse 2 / 2
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 785
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
```
1
1. gexelpas
  
  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://forums.commentcamarche.net/forum/affich-36446393-recherchev-a-plusieurs-entrees-dans-un-tableau-croise-dynamique
  
  Dans tous les cas, encore une fois merci !
  
  0
2. AUREL
  
  Bonjour,
  Pouvez également m'aider? je n'arrive pas à trouver le bon pour copier ma formule : SI(K2 = 0, "NON", "OUI")
  qui se trouve en L2 dans toutes les cellules de la colonne L, jusqu'à la dernière ligne contenant une valeur dans la colonne A.
  J'ai essayé le code ci-dessous :
  Sub CALCULER()
  '
  ' CALCULER Macro
  
  Dim DerLigne As Long
  With ActiveSheet
  DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
  .Range("L2:L" & DerLigne).Formula = SI(K2 = 0, "NON", "OUI")
  End With
  
  MsgBox ("Le calcul a été réalisé avec succès")
  End Sub
  
  Merci d'avance pour votre aide
  
  0

Tirer une formule jusqu'à la dernière ligne, dans une macro

2 réponses

Discussions similaires

Newsletters