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
Afficher la suite

4 réponses

Réponse 1 / 4
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
Réponse 2 / 4

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
Réponse 3 / 4
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
Signaler
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
Réponse 4 / 4
Messages postés
979
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
10 janvier 2021
 199
Re,
A tester
https://mon-partage.fr/f/uZSnuoM4/
Signaler
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
Répondre Posez votre question