Discussion :

[Invité]

Bonjour,

J'aimerais qu'une ligne soit ajoutée lorsque l'utilisateur sélectionne "Oui" dans la cellule M21.

J'ai ce code mais ça ne fonctionne, pouvez-vous m'aider s'il vous plait?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If (Range("M21").Value = Oui) Then
   ActiveSheet.Rows(Row + 1).EntireRow.Insert Shift:=xlDown
End If

Merci!

[Patrice740]

Bonjour,

J'aimerais qu'une ligne soit ajoutée ....

Où ?

[Invité]

En-dessous de la ligne que j'ai sélectionné Oui

Dans l'exemple, c'est en-dessous de la ligne 21.

[Invité]

Voici mon fichier.


Qu'est-ce qui manque à la formule pour que ça fonctionne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Ajout()
For Each c In Range("M21:M171").Cells
 
If (c.Value = "Oui") Then
   ActiveSheet.Rows(Row + 1).EntireRow.Insert Shift:=xlDown
End If
Next
 
End Sub

[Philippe Tulliez]

Bonjour,

Même sujet que dans cette discussion Ajout d'une ligne sous une autre ligne

[BENNASR]

Bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("M10:M" & Range("M" & Rows.Count).End(xlUp).Row)) Is Nothing Then
     If Cells(Target.Row, 13) = "Oui" Then Rows(Target.Row + 1).Insert
    End If
    Application.EnableEvents = True
End Sub