Copier Collage Spécial une sélection sans passer par un bouton de commande

Bonjour,

Est-il possible de savoir comment faire un copier d'une sélection de cellules et de coller uniquement les valeurs dans une autre cellule sans être obligé de passer un bouton de commande (que j'ai réussi à mettre en place).

Sub COPIE_COLLE()
'
' COPIE_COLLE Macro
'

'
    Range("B2:B4").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

J'aimerais que cela se fasse automatiquement, mais attention j'ai déjà un code dans cette feuille

Private Sub Worksheet_Change(ByVal Target As Range)

    Sheets("TABB").Select
    ActiveSheet.Shapes.Range(Array("Indicateur_TABB")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue

 If Not (Range("G2") = "") Then .ForeColor.RGB = RGB(255, 0, 0)
 If Not (Range("G3") = "") Then .ForeColor.RGB = RGB(255, 192, 0)
 If Not (Range("G4") = "") Then .ForeColor.RGB = RGB(0, 255, 0)
        .Transparency = 0
        .Solid
    End With

    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Merci à vous pour votre aide

Bonjour Snowkite

Si j'ai bien compris ce que vous demandez

faire un copier d'une sélection de cellules et de coller uniquement les valeurs dans une autre cellule

Il faut utiliser l'évènement

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Cel As Range, Total As Double
  Total = 0
  For Each Cel In Target
    Total = Total + Cel.Value
  Next Cel
  Range("G2").Value = Total
End Sub

Peut importe l'événement Change à moins que vous ne vouliez pas qu'il s'active, dans ce cas

  Application.EnableEvents = False
  Range("G2").Value = Total
  Application.EnableEvents = True

A+

Malheureusement en intégrant le code cela ne fonctionne pas, il faudrait que cette macro copie les valeurs de la sélection B2:B4 en G2:G4 et si la valeur est nulle en B2 et B3 et qu'il y a une valeur en B4 alors il ne doit rien s'afficher en G2 ET G3 même pas le chiffre 0 mais uniquement la valeur en G4.