Déplacer et colorer des lignes

Bonjour à tous,

J'ai un fichier excel qui me sert de cédule de production. J'aimerais automatisée un peu plus ce fichier.

Tout d'abord, j'aimerais que lorsqu'il y a une valeur dans la colonne AS, la ligne se déplace au-dessus de la ligne noir et qu'elle devienne grise comme les autres.

Voici une copie de mon fichier.

Merci d,avance pour votre aide.

Bonsoir

Un essai

Sub Produit()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim PremLg As Integer, Derlg As Integer, i As Integer

PremLg = Range("AS11").End(xlDown).Offset(1, 0).Row
Derlg = Range("A65536").End(xlUp).Row

    For i = PremLg To Derlg
        If Range("AS" & i) > 0 Then
            Rows(PremLg).Insert Shift:=xlDown
            Rows(i + 1).Cut Destination:=Range("A" & PremLg)
            Rows(i + 1).Delete
        End If
    Next i

Application.EnableEvents = True
End Sub

Avec un appel dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AS11:AS" & Range("A65536").End(xlUp).Row)) Is Nothing Then
Call Produit
End If
End Sub

Une MFC met la ligne en gris

Amicalement

Nad

Wow ça fonctionne super bien. Est-ce qu'il y aurais un moyen aussi de mettre des X dans les colonnes AG à AO lorsque la ligne se déplace. Les "X" indiquent que le travail a été complété.

Bonsoir

Ajoute la ligne surlignée

Rows(i + 1).Cut Destination:=Range("A" & PremLg)
Range("AG" & PremLg & ":AO" & PremLg) = "X"
Rows(i + 1).Delete

Amicalement

Nad

Est-ce normal que lorsque je déplace des lignes manuellement dans ma feuille mon fichier excel gèle. À chaque fois je dois fermer et rouvrir mon fichier.

Re

Ben non, ce n'est pas normal.

Peux-tu me dire l'action que tu fais exactement ? J'ai essayé d'insérer des lignes, de les couper, de copier-coller, et je n'ai pas de soucis.

Nad

Pour toutes les actions que tu viens de m'énumérer j,ai le même problème.

Voici une version complète de mon fichier.

Re

Aucun soucis non plus avec ton dernier fichier.

Dis-moi si en exécutant ce code tout rentre dans l'ordre

Sub Repare()
Application.EnableEvents = True
End Sub

Nad

Désolé, mais non ça n'a rien changé. Dans mon fichier test pourtant tout fonctionne bien.

Avec la macro Repare ça fonctionne, mais comment l,activer pour qu'elle s’exécute tout seul à chaque fois.