VBA Qu'est-ce qui cloche dans mon code

[Arpette]

Bonsoir à toutes et tous,
je ne comprends pas pourquoi, mon code ne réagit pas quand je veux multiplier E et F avec résultat en G.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F22:F42")) Is Nothing Then
    
  If Target.Count > 1 Then Exit Sub
  
    Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -1).Value 'ICI
    Range("G43") = Application.WorksheetFunction.Sum(Range("G22:G42"))
    Range("G45") = Cells(43, 7) * Cells(45, 6)
    Range("G47") = Cells(43, 7) + Cells(45, 7)
   
    If Target.Value = "" Then
        Target.Offset(0, 1) = ""
        Target.Offset(0, -1) = ""
    End If
  
End If
End Sub

Merci de votre aide
@+

 

[Fred0o]

Re : VBA Qu'est-ce qui cloche dans mon code

Bonsoir,

Ta macro fonctionne à condition de défusionner "G21:G42". Sinon, ça ne fonctionne qu'une ligne sur 2.

A+

 

[dra72]

Re : VBA Qu'est-ce qui cloche dans mon code

Bonsoir,

Et pourquoi utiliser un code VBA dans ce cas. Une formule Excel serait à mon avis plus appropriée.

Sinon, il faut prévoir un code supplémentaire en cas de modification de la quantité, une fois le prix unitaire renseigné.

Bonne soirée

 

[Arpette]

Re : VBA Qu'est-ce qui cloche dans mon code

Bonjour Fredo, Dra le forum,
j'ai défusionné les cellules, la macro réagit, mais elle ne fait aucun calcul, elle passe directement à End IF.
Merci de votre
@+
Pardon, elle fonctionne trè bien, je n'étais pas dans la bonne plage
@+