Couper coller une ligne selon condition

Bonjour à tous,

j'ai 04 conditions (Démission - Arret - Mise en Demeure - PERMUTER A)

& plusieurs onglets

Je souhaiterai que lorsqu'une condition est tapée dans la ligne ,

la ligne soit coupée et collée dans le meme tableau en dessous

je souhaiterai aussi que ce code fonction sur tous les feuils

En PJ vous trouverez mon classeur excell

Bonjour,

Pour cela il te suffit de mettre le code ci-dessous dans les feuilles associés :

Option Explicit

Dim i, col As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    'Fixation des limites 8<ligne à traiter<15
    If Target.Count > 1 Then
        Exit Sub
    End If

    If Target.Row > 8 And Target.Row < 15 Then
    'Fixation des limites 3<colonne à traiter<35
        If Target.Column > 3 And Target.Column < 35 Then
            If Target.Value = "Démission" Or _
                Target.Value = "Arret" Or _
                Target.Value = "Mise en Demeure" Or _
                Target.Value = "PERMUTER A" Then

                col = Target.Row
                Target.EntireRow.Cut

                    For i = 16 To ActiveSheet.UsedRange.Rows.Count
                        If ActiveSheet.Cells(i, 1) = "" Then
                            ActiveSheet.Cells(i, 1).Select
                            ActiveSheet.Paste
                            ActiveSheet.Rows(col).Delete
                            Exit For
                        End If
                    Next i

            End If
        End If
    End If
End Sub

salut

merci pour ton aide

Je souhaiterai que les ligne en dessus restant ,

comment le faire

Reprendre le code en enlevant dans les 4 onglets :

ActiveSheet.Rows(col).Delete

merci Valc ça fonctionne

mais Je souhaiterai que lorsque la ligne ce déplace ma mise en forme du tableau reste intacte

et ace que il ya une possibilité de copie coller que les donner qui ce trouvant dans la ligne

merci d'avance

For i = 16 To ActiveSheet.UsedRange.Rows.Count
         If ActiveSheet.Cells(i, 1) = "" Then
                   ActiveSheet.Cells(i, 1).Select
                   ActiveSheet.Paste
                   Rows(i - 1).Select
            Selection.copy
        Rows(i ).Select    
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
                   Exit For
       End If
Next i

Bonjour a tous

Couper coller une ligne selon condition

Je souhaiterai que lorsqu'une Ligne couper et coller en dessous ,

la ligne en dessus reste avec sa mise en forme plus colorer la cellule A

Pour me permettre de calculer le déficite sur site

C'est mieux là ?

Bjr

je vais essayer

merci

Merci Valc

elle marche nikel

Bonsoir

Veuillez trouvez ci joint mon fichier

je voudrais de l'aide