VBA copier formule vers le bas
Résolu
AUREL
-
CASSIEAUREL Messages postés 2 Statut Membre -
CASSIEAUREL Messages postés 2 Statut Membre -
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
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
4 réponses
-
Bonjour,
Teste comme ceciSub 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 -
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 -
-
