Microsoft 365 Réaliser un coupez/coller en Macro en effectuant une combinaison de touches

[Gabca]

Bonjour a tous,

Je suis débutant en Excel et tout ce que j'ai appris je l'es appris sur le tas,

Je voudrais crée une macro qui fait un couper/coller mais seulement des valeurs, voila le code qui en est sortie :

Sub Coupez_Coller()
    
    If Etat = False Then
        Selection.Copy
        Etat = True
        Set Select_CC = Selection
        Set Select_T = Selection
    Else
        Selection.PasteSpecial Paste:=xlPasteValues
        Select_CC.SpecialCells(xlCellTypeConstants, 1).ClearContents
        Etat = False
        End If
End Sub

La Macro marche sans soucis, mais pas dans un cas : si je coupe et colle sur une partie de ma sélection initiale, Elle se retrouve en partie effacer :/

Donc je le demandais si il y avait une solution "simple" a mon problème, autre que copier ma sélection sur une feuille et venir la récupéré après ...

Merci d'avance !

Gabriel.

 

[eriiic]

Bonjour,

Et si tu inversais tes 2 lignes ?
Vide d'abord et colle ensuite.
eric

 

[Gabca]

Merci d'avoir répondu !

C'est ce que j'ai essayer dans un premier lieu évidement, mais ducoup excel colle du vide, car je supprime ce que je veux copié avant, il ne le sauvegarde pas dans la variable :/

 

[eriiic]

Une proposition où j’enchaîne la sélection de la destination dans la macro :

Sub couperColler()
    Dim datas, c As Range
    datas = Selection.Value
    On Error Resume Next
    Set c = Application.InputBox(Selection.Address & " copié" & vbLf & "Cellule haut-gauche de destination", Type:=8)
    On Error GoTo 0
    If Not c Is Nothing Then
        Selection.ClearContents
        c.Resize(UBound(datas, 1), UBound(datas, 2)) = datas
    End If
End Sub

Regarde si ça te va
eric

 

[Gabca]

Merci beaucoup ca marche du Tonner, même si j'ai pas bien compris toute les lignes ^^"

Pourquoi la variable "c" a besoin d'un resize ?

Mais sinon c'est réglé merci !

 

[eriiic]

Pour lui mettre la même taille que la plage copiée
eric