Microsoft 365 Remonter une ligne en haut d'un tableau

[MICHAEL]

Bonjour,
je souhaiterais remonter en ligne 2 la ligne dont la valeur colonne A correspond a G4
Merci de votre aide.

 

[sylvanu]

Bonsoir Michael,
Un essai en PJ avec :

Sub Remonte()
On Error GoTo Fin
IndexA = Application.Match([G4], [A:A], 0)
For i = 1 To 5
    Cells(2, i) = Cells(IndexA, i)
Next i
Rows(IndexA).EntireRow.Delete
Fin:
End Sub

 

[MICHAEL]

Merci',
serait il possible d'automatiser l'operation en appuyant sur entrée apres avoir saisi les chiffres en G4

 

[sylvanu]

Alors il faut passer en événementielle ( dans la feille Feuil1)
La macro est lancée quand on modifie une cellule de la feuille.

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("G4")) Is Nothing Then
        IndexA = Application.Match(Target, [A:A], 0)
        For i = 1 To 5
        Cells(2, i) = Cells(IndexA, i)
        Next i
        Rows(IndexA).EntireRow.Delete
    End If
Fin:
End Sub

 

[MICHAEL]

Je te remercie, j'ai fais la modif pour eviter de supprimer les lignes.
Cela me convient parfaitement
passe une bonne soirée
cordialement