macro qui copie la formule à chaque nouvelle ligne crée

  • Initiateur de la discussion Initiateur de la discussion VH
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

VH

Guest
Bonjour,

Je ne trouve pas le moyen de créer une macro qui copie une formule à chaque nouvelle ligne créée.

Merci d'avance.
 
Bonjour VH, le Forum,

Qu'entends-tu par "nouvelle ligne créée" ?

Et peux-tu donner la formule que tu veux copier ?

J'imagine qu'avec une macro évènementielle du type :
Private Sub Worksheet_Change(ByVal Target As Range)
Et en testant la colonne et la ligne du changement et la présence de quelque chose dans la cellule qui t'intéresse sur cette même ligne, il doit y avoir moyen.

A plus.
 
J'ai une colonne A où je rentre des dates.
J'ai une colonne B qui valide ces dates.
Ma formule se situe dans la colonne B.
A chaque nouvelle date entrée, il faudrait que la macro, de la ligne précédente, se copie.
 
Salut VH, JCA06, le forum,

Voici une macro à placer dans la feuille contenant ton tableau (va dans Visual Basic Editor [Alt]+[F11], en haut à gauche, double-clique dans la feuille souhaitée, dans le grand cadre blanc à droite, colle le code ci-dessous).

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque modification
If Target.Column = 1 Then 'n'agit que dans la colonne A
If Target.Value <> "" Then 'si la cellule est non vide
'copie la formule de la cellule du dessus de la colonne B
Target.Offset(-1, 1).AutoFill Destination:=Range(Target.Offset(-1, 1), Target.Offset(0, 1))
Else 'sinon (si tu effaces la date par exemple)
Target.Offset(0, 1).Value = "" 'efface la formule
End If
End If
End Sub

À plus,

Robert
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
19
Affichages
624
  • Question Question
Microsoft 365 Lien vers pdf
Réponses
3
Affichages
151
Réponses
4
Affichages
133
Retour