VBA copier formule vers le bas [Résolu]

Signaler
-
Messages postés
2
Date d'inscription
samedi 9 janvier 2021
Statut
Membre
Dernière intervention
9 janvier 2021
-
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

4 réponses

Messages postés
979
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 janvier 2021
199
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
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
Messages postés
979
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 janvier 2021
199
Re,
place un exemple classeur pour mieux faire
Messages postés
2
Date d'inscription
samedi 9 janvier 2021
Statut
Membre
Dernière intervention
9 janvier 2021

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
Messages postés
979
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 janvier 2021
199
Messages postés
2
Date d'inscription
samedi 9 janvier 2021
Statut
Membre
Dernière intervention
9 janvier 2021

C'est parfait! merci beaucoup pour votre aide