Insertion d'une ligne selon valeur d'une cellule

Question

Je cherche à débugger mon code mais je tourne en rond. Voici le résultat attendu : lorsque l'utilisateur sélectionne, dans le tableau à la colonne I "mesures à poursuivre", il faudrait ajouter une ligne en dessous et y copier les valeurs des colonnes B et C uniquement. Voici un exemple de résultat attendu J'ai tenté plusieurs techniques mais chaque fois j'ai comme une boucle infinie qui se déclenche. Je joins à mon message mon fichier excel et un grand merci d'avance pour votre analyse...

ThauThème · Accepted Answer

Bonjour le fil, bonjour le forum,

Je poste quand même malgré la réponse de GMB que je salue au passage...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)

Set O = Worksheets("page 1") 'définit l'onglet O
If Target.Row > 2 And Target.Column = 9 Then 'condition 1 : si la changement a lieu dans une ligne supérieure à 2 et la colonne 9 (=> colonne I)
    If Target.Value = "mesures à poursuivre" Then 'condition 2 : si la cible vaut "mesures à poursuivre"
        LI = Target.Row 'définit la ligne LI
        O.Rows(LI).Copy 'copie la ligne LI de l'onglet O
        O.Rows(LI + 1).Insert 'insère la ligne copiée une ligne en dessous
        'récupère les valeur des cellules Bet C de LI dans les cellule B et C de LI + 1
        O.Cells(LI + 1, "B").Resize(1, 2).Value = O.Cells(LI, "B").Resize(1, 2).Value
        Application.CutCopyMode = False 'supprime le clignotement lié au copier/collé
    End If 'fin de la condition 2
End If 'fin de la condition 1
End Sub

[Édition]

La proposition de GMB est meilleure...

ThauThème · Answer

Bonjour burzcairwen, bonjour le forum, Ton exemple ne contient aucune donnée !? Comment veux-tu que l'on teste... Tu veux que ça agisse quand l'utilisateur sélectionne ou quand il choisit ...

gmb · Answer

Bonjour à tous Un essai à tester. Te convient-il ? Bye ...