VBA copier formule vers le bas

Résolu/Fermé
AUREL - 9 janv. 2021 à 12:35
CASSIEAUREL Messages postés 2 Date d'inscription samedi 9 janvier 2021 Statut Membre Dernière intervention 9 janvier 2021 - 9 janv. 2021 à 18:48
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
A voir également:

4 réponses

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 janv. 2021 à 13:33
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
1
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
0
M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 janv. 2021 à 17:40
Re,
place un exemple classeur pour mieux faire
0
CASSIEAUREL Messages postés 2 Date d'inscription samedi 9 janvier 2021 Statut Membre Dernière intervention 9 janvier 2021
Modifié le 9 janv. 2021 à 18:48
Je n'arrive pas à le déposer sur le site par contre voici une photo du tableau : la ligne 1 ne doit pas bouger, et les données sont collées en A2 (cellule jaune)
Merci pour votre aide
0
M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 janv. 2021 à 18:37
0
CASSIEAUREL Messages postés 2 Date d'inscription samedi 9 janvier 2021 Statut Membre Dernière intervention 9 janvier 2021
9 janv. 2021 à 18:48
C'est parfait! merci beaucoup pour votre aide
0