Décidément, soucis de macro intégrée dans la feuille

Coucou

Décidément j'ai des soucis avec les macros intégrées dans la feuille -_- même en suivant les cours j'ai du mal et la je n'arrive pas à faire ce qui suit :

Quand on met une date dans la colonne H de la Feuil1 (pour dire que ma tache à été faite à la dite date) je veux que :

Ca déprotege la Feuil1 et 2

Ca copie la ligne de la ou j'ai inscrit la date (avec la tache écrite ytou ytou, bref une copie parfaite de TOUTE la ligne)

Ca me colle cette ligne sur la rows 7 de la Feuil2

Ca me verrouille toute les cellules de la Feuil2

Ca me protege la Feuil2

Ca supprime la ligne initialement copiée (vu que maintenant elle apparait dans la feuille numéro 2)

Ca me reprotege la feuille 1

Une petite aide à un petit VBAeur svp?

Merci par avance, merci beaucoup

Bonjour

Un petit fichier et une réponse

Il faudra toujours copier la ligne de la Feuil1 sur la ligne 7 de la Feuil2 ?

Banzai64 a écrit :

Bonjour

Un petit fichier et une réponse

Il faudra toujours copier la ligne de la Feuil1 sur la ligne 7 de la Feuil2 ?

Oui toujours ligne 7 de la feuille 2.

Je suis pas chez moi la et même si c'est pour le travail je ne l'ai pas sur mon PC du boulot. Je vous refais une ébauche d'ici 5/10 min

Voila la structure du classeur. Je n'ai pas les éléments excats du classeur de base mais pour comprendrez le systeme

Bonjour

A tester

C'est quasi ça. En fait avant de coller en ligne 7 de la feuille 2 il faut y insérer une ligne. Sauf que si je rajoute :

.Insert shift:=xlDown

ça ne marche pas.

Le code en lui même est bon mais il faut insérer une ligne en 7 avant de coller, sinon a la 2° action ça va delete la première etc etc etc

Pourquoi mon .insert ne fonctionne pas? XD

merci pour vos réponses rapides et votre patience

Bonjour

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Columns("H"), Target) Is Nothing And Target.Row > 6 Then
    If Not IsDate(Target) Then Exit Sub
    Application.ScreenUpdating = False
    With Sheets("Feuil2")
      .Unprotect
      Range("B" & Target.Row & ":H" & Target.Row).Copy
      .Range("B7:I7").Insert shift:=xlShiftDown
      .Cells.Locked = True
      .Protect
    End With
    With ActiveSheet
      .Unprotect
      .Range("B" & Target.Row & ":I" & Target.Row).Delete shift:=xlShiftUp
      .Protect
    End With
  End If
End Sub

J'avais mal saisi ma cellule dans mon Range -_-

Merci beaucoup encore une fois