VBA copier formule vers le bas Résolu/Fermé

Question

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



Configuration: Windows / Chrome 87.0.4280.88

M-12 · Answer

Bonjour,
Teste comme ceci
Sub CALCULER()
Dim DerLigne As Long, F As String
  With ActiveSheet
    DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
    F = "=IF(R2C11=0,""NON"",""OUI"")"
    .Range("L2").Formula = F
    .Range("L2").AutoFill Destination:=Range("L2:L" & DerLigne), Type:=xlFillDefault
  End With
MsgBox ("Le calcul a été réalisé avec succès")
End Sub

AUREL · Answer

Merci pour votre réponse rapide.
La formule rencontre encore une erreur, uniquement des OUI ressortent
et la formule se cope également à la cellule L1.
Il faudrait qu'elle s'applique à partir de L2 seulement.

Pouvez-vous encore m'aider? Merci

M-12 · Answer

Re,
place un exemple classeur pour mieux faire

M-12 · Answer

Re,
A tester
https://mon-partage.fr/f/uZSnuoM4/

VBA copier formule vers le bas

4 réponses

Discussions similaires