Bouger le contenu des cellules pour un certain Range

Bonjour,

J'aimerais bouger le contenu des cellules qui sont au bas de ma cellule sélectionnée, par contre je veux limiter la sélection à un Range specifique

le range que j'Aimerais sélectionné se limiterait à: EN BAS DE : MAXIMUM=F43

voici mon code .... pour l'instant mode code sélectionne "TOUT LE RESTE" et ca bouge le contenu qui est en dehors de mon range ...

Option Explicit

Sub Move()

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Selection.Cut

ActiveCell.Offset(-2, 0).Select

ActiveSheet.Paste

End Sub

je peux vous joindre un fichier si nécessaire

Bonsoir

Juste un conseil : Il faut éviter d'employer des mots réservés VBA ( Move ) pour variable, procédure etc ...

A tester si c'est ce que tu veux

Sub MoveCell()
  Range(ActiveCell, Range("F43")).Cut ActiveCell.Offset(-2, 0)
End Sub

Oui merci ca m'aide beaucoup et je note le conseil.

J'ai un autre problême .. ma sélection inclus des bordures et je ne veux pas les coller ...

Sub MoveCell()
 Range(ActiveCell, Range("F43")).Select
 Selection.Cut
 ActiveCell.Offset(-2, 0).Select
 ActiveSheet.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

par contre ca me renvoit un message d'erreur 1004

Définit par l'objet ..

une autre option serait que je sélectionne juste le contenu (et non les bordures ) avant la coupe

par contre je ne sais pas trop le faire

Bonsoir

Joins ton fichier que je regarde ce problème de bordures

Pour le message d'erreur : Tu ne peux pas faire un collage spécial lorsque tu coupes (Cut)

Les bordures doivent rester en place ?

Au fond je modifie un logiciel déjà monter

je veux une fonction qui peut effacer une ligne et remonter le reste

alors pour le test tu peux effacer la 2e donnée

Au final quand on fait supprimer ca supprime le contenu mais mon bouton remonter ligne n'est vraiment pas au point

Bonjour

A tester

Sub MoveCell()
Dim T1, Ligne As Long

  Ligne = Selection.Row
  If Ligne > 10 And Ligne < 44 Then
    Range("A" & Ligne).Resize(1, 6).ClearContents
    If Ligne < 43 Then
      With Range(Range("A" & Ligne + 1), Range("F43"))
        T1 = .Value
        .ClearContents
      End With
      Range("A" & Ligne).Resize(UBound(T1), UBound(T1, 2)) = T1
    End If
  End If
End Sub

Wouaah

ca fonctionne à merveille merci beaucoup!

Correctif: après la suppression si j'entre des nouvelles données les autre colonnes n'Affichent plus rien

Bonjour

Je viens de tester et je ne vois pas le problème

Mon test

D15 : 5

E15 : 10

F15 : 20 ---> G15 : 190

Sélection B13 --> Appuie sur "Remonter2"

Effacement de la ligne 13 et tout ce qui suit remonte

B16 : Toto

D16 : 10

E16 : 5

F16 : 5 -->22.50

Pour moi cela fonctionne

Explique en détails ce que tu fais afin de voir le problème

Parfait je verifie dans a peu pres 2 heures merci

Bon et bien après vérif tout fonctionne bien merci beaucpup Banzai64