Macro
Résolu
cédan
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
J'ai une macro dans ma feuille de calcul qui fai que lorsque je mets un montant dans la colonne C, la formule s'applique à la cellule J et par la suite enleve la dite formule donc la cellule J ne change plus , j'aimerais apporter cette même macro à la cellule F aussi donc quand je mets un montant dans la colonne C les formules dans les colonne J et F s'efface après avoir indiqué le résultat , voici ce que j'ai présentement :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Dim Rw As Long
Rw = Target.Row
If Not Intersect(Target, Range("C36:C53")) Is Nothing Then
Range("J" & Rw).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("F" & Rw + 1).Select
Application.CutCopyMode = False
End If
End Sub
J'ai une macro dans ma feuille de calcul qui fai que lorsque je mets un montant dans la colonne C, la formule s'applique à la cellule J et par la suite enleve la dite formule donc la cellule J ne change plus , j'aimerais apporter cette même macro à la cellule F aussi donc quand je mets un montant dans la colonne C les formules dans les colonne J et F s'efface après avoir indiqué le résultat , voici ce que j'ai présentement :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Dim Rw As Long
Rw = Target.Row
If Not Intersect(Target, Range("C36:C53")) Is Nothing Then
Range("J" & Rw).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("F" & Rw + 1).Select
Application.CutCopyMode = False
End If
End Sub
3 réponses
-
Bonjour,
Pas sûr d'avoir bien compris, essayer cette procédure :Private Sub Worksheet_Change(ByVal Target As Range) Dim Rw As Long Application.EnableEvents = False If Not Intersect(Target, Range("C36:C53")) Is Nothing Then Rw = Target.Row Range("J" & Rw) = Range("J" & Rw).Value Range("F" & Rw + 1) = Range("F" & Rw + 1).Value End If Application.EnableEvents = True End Sub
-
Bonjour,
Non pas d'accord, la [F] est décaler d'une ligne ( voir votre code : Range("F" & Rw + 1).Select ) donc voir une ligne plus bas.
-
Bonjour,
Merci, de rien.
