Discussion :

[Zentin]

Bonjour à toutes et à tous,

Actuellement je travaille avec un Excel 2007 sous Windows 8.
Serait-il possible de m'aider pour la création d'une macro parce que les formules Excel ne permettent pas l'action que je devrais faire.
Voici mon problème, il faudrait qu'une ligne soit automatiquement insérée si un critère est rempli.
Ci-joint, un tableau avec exemple.

planning help.xlsx

Merci d'avance pour votre attention et pour votre aide.

Zentin

[Menhir]

Ton problème semble se limiter à mettre dans les colonne A et B une formule qui met la valeur de la ligne précédente si la colonne M de la ligne précédente est non vide.
Par exemple, en A4 :

Code :

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

=SI($M3="";"";A3)

Formule à recopier dans la cellule de droite (colonne B) puis recopier les deux formules dans les lignes suivantes.

[Daniel.C]

Bonjour,

Mets cette macro dans le module de la feuille "en cours".

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 And Cells(Target.Row, 1) = "X" And Target.Count = 1 And _
        Target.Value <> "" Then
        Application.EnableEvents = False
        Rows(Target.Row + 1).Insert
        Cells(Target.Row + 1, 1).Resize(, 2).Value = Cells(Target.Row, 1).Resize(, 2).Value
        Application.EnableEvents = True
    End If
End Sub

[Zentin]

Merci Daniel.C,

La macro fonctionne très bien jusqu'au moment où la donnée de la colonne "A" n'est plus "X", je présume qu'il faudrait changer le "X" dans ta macro par une autre mention mais n'étant pas spécialiste des macros j'ai encore besoin de votre aide!!

En annexe tableau avec données plus concrètes par rapports aux besoins réels.

planning help_Daniel C.xlsx


Merci.
Zentin

[Daniel.C]

Au temps pour moi, j'avais cru qu''il fallait un "X" en colonne A :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 13 And Target.Count = 1 And Target.Value <> "" Then
        Application.EnableEvents = False
        Rows(Target.Row + 1).Insert
        Cells(Target.Row + 1, 1).Resize(, 2).Value = Cells(Target.Row, 1).Resize(, 2).Value
        Application.EnableEvents = True
    End If
End Sub

[Zentin]

Merci Daniel. C,

Génial, mais lorsque je veux ajouter une ligne d'information, ex. nouveau client en colonne "A" j'ai un message d'erreur qui affiche la ligne de code :

Code :

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

If Target.Column = 13 And Target.Count = 1 And Target.Value <> "" Then

en jaune
Est-ce normal?
Merci
Zentin

[Daniel.C]

Exact; utilise plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 13 Then Exit Sub
    If Target.Count <> 1 Then Exit Sub
    If Target.Value <> "" Then
        Application.EnableEvents = False
        Rows(Target.Row + 1).Insert
        Cells(Target.Row + 1, 1).Resize(, 2).Value = Cells(Target.Row, 1).Resize(, 2).Value
        Application.EnableEvents = True
    End If
End Sub

[Zentin]

Merci Daniel.
Je vais faire quelques tests ce weekend, mais ce code me semble parfait.
Excellent weekend et cordialement