Déplacer une cellules selon valeurs

Bonjour le forum

Je vous écris pour vous demander de l'aide pour une macro que je n'arrive pas a confectionné, mon but est de déplacer deux cellules que si il y a une valeur dans une colonnes qui correspond a un numéro de compte

Je voudrais que Si il y a une valeur dans la ligne 25 au Compte 46705000 au Crédit cela déplace les valeurs des comptes 70720000 et 44571200 en Débit

Voici un fichier avec deux feuilles la feuille de base et le résultat voulu j'ai essayer avec un code qui permet de couper la cellules mais rien ne change

cordialement

Sub Findandcut()
    Dim row As Long

    For row = 2 To 1000
        ' Check if "save" appears in the value anywhere.
        If Range("C" & row).Value Like "46705000" Then
            ' Copy the value and then blank the source.
            Range("E" & row).Value = Range("D" & row).Value
            Range("A" & row).Value = ""
        End If
    Next

merci de votre aide

Bonjour Dragz, bonjour le forum,

Ta demande est assez étrange car elle ne s'applique qu'à une seule cellule... Mais bon... La macro événementielle Change ci-dessous devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$25" Then Exit Sub 'si le changement à lieu ailleurs que dans la cellule E25 (cible), sort de la procédure
If Target <> "" Then 'condition : si la cible est différente du vide
    Range("D6").Value = Range("E6").Value 'récupère en D6 la valeur de E6
    Range("D7").Value = Range("E7").Value 'récupère en D7 la valeur de E7
    Range("E6:E7").ClearContents 'efface E6:E7
End If 'fin de la condition
End Sub

Le fichier :

Bonjour désolé j'étais en vacances

je n'arrive a faire fonctionné votre macro comment puis-je faire

en gros je voudrai que SI et seulement SI il y a une valeur au compte 46705000 (Ligne jaune ) cela déplace la les compte 7072000 et 44571200 (CASE ROUGE) en débit qui étais en crédit et cela sur toutes la colonnes

Bonjour DragZ, ThauThème, le forum,

Le vilain ... tu as fait 2 demandes sur le même sujet ...

https://forum.excel-pratique.com/excel/deplacer-les-valeurs-selon-une-information-175220#p1087811

ric