Déplacer une cellules selon valeurs

Question

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...

ThauThème · Accepted Answer

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 :

9dragz-ep-v01.xlsm (19.52 Ko)

ric · Answer

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...