MacroRésolu/Fermé

Question

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

Le Pingou · Answer

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

Le Pingou · Answer

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.

Le Pingou · Answer

Bonjour,
Merci, de rien.

Macro

3 réponses

Newsletters