Insérer une ligne lorsqu'une cellule est rempli

[Jonconor]

Bonjour !
J'ai un petit souci sur mon tableau. Je remplis des devis qui sont différents à chaque fois, et pour plus de flexibilité, je regroupe les différents composants à travers 4 rubriques (Personnel, camions, engins et autre). Comme je n'ai quasiment jamais les mêmes composants, j'aimerai pouvoir faire mon devis pas à pas.
Donc ma question est la suivante : Existe-il un moyen d'insérer une ligne automatiquement lorsque la cellule est remplie, et de remettre la liste déroulante ?
Ci-joint, un petit tableau avec le point de départ et le résultat voulu.

 

[Banzai64]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonjour

Un essai

 

[youky(BJ)]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonjour Jonconor,
Voici avec qlq lignes de macros, donc il faut Activer les macros à l'ouverture de ton fichier
Bruno

 

[pierrejean]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonjour Jonconor

Vois si cela te convient

Edit : Arf a la bourre Moi
Salut YOUKI

 

[excelo]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonjour,
j'ai modifié le tableau d'origine,
à tester,
Excelo

 

[Jonconor]

Re : Insérer une ligne lorsqu'une cellule est rempli

Merci à tous ! A bientôt pour un nouveau problème !
Cordialement

 

[Jonconor]

Re : Insérer une ligne lorsqu'une cellule est rempli

REbonjour, sorry du double post...

J'ai un autre souci : je veux incorporer des RECHERCHEV qui mettront automatiquement l'unité et le prix, mais la formule n'est pas dupliquée lors de l'insertion de la ligne, est-ce normal ?

Cordialement

 

[youky(BJ)]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonjour à tous,
J'ai repris la macro de mon voisin PierreJean qui est plus minutieuse que la mienne.
En supposant qu'il y a toujours la formule RechechV en D4.

Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  On Error Resume Next
    x = Target.Validation.Type
    If Err.Number = 0 Then
      Rows(Target.Row + 1).Insert Shift:=xlUp
     [COLOR="Red"][B] Cells(Target.Row, 4).Formula = [D4].Formula[/B][/COLOR]  
     [COLOR="Red"][B] Cells(Target.Row, 3).Formula = [D3].Formula[/B][/COLOR]  

 Else
      On Error GoTo 0
      Exit Sub
    End If
  On Error GoTo 0
End If
End Sub

 

[Jonconor]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonsoir, j'ai essayer ta version youki, et en gardant recherchev en D4, lorsque je déroule la liste en A4 pour sélectionner, je garde bien la formule en D4, mais cela ne la copie pas dans la nouvelle ligne et m'efface la cellule C4 : Est-ce possible de pouvoir recopier la formule ? A terme, le tableau aura 1 ou 2 colonnes en plus, 2 cellules avec des recherchesV, et 1 ou deux avec des sommes. Est-il possible de copié ces formules dans les nouvelles lignes insérées ?

 

[youky(BJ)]

Re : Insérer une ligne lorsqu'une cellule est rempli

Petite rectif,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  On Error Resume Next
    x = Target.Validation.Type
    If Err.Number = 0 Then
      Rows(Target.Row + 1).Insert Shift:=xlUp
      Cells(Target.Row, 4).Formula = [D4].Formula
      Cells(Target.Row, 3).Formula = [C4].Formula

 Else
      On Error GoTo 0
      Exit Sub
    End If
  On Error GoTo 0
End If
End Sub

ou encore une autre façon de faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
  On Error Resume Next
    x = Target.Validation.Type
    If Err.Number = 0 Then
Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlUp
      Cells(Target.Row, 3) = Application.VLookup(Cells(Target.Row, 1), [Donnée!A1:D1000], 2, False)
      Cells(Target.Row, 4) = Application.VLookup(Cells(Target.Row, 1), [Donnée!A1:D1000], 3, False)
Application.EnableEvents = True
 Else
      On Error GoTo 0
     Exit Sub
    End If
End Sub

Bruno

 

[Jonconor]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonsoir, j'ai enfin pu tester tes versions après quelques jours d'intense et dur labeur, et lorsque je les essaye, je ne vois pas de différence, est-ce normal ? C'est peût-être impossible ?

 

[youky(BJ)]

Re : Insérer une ligne lorsqu'une cellule est rempli

Bonsoir,
Ce code à l'avantage d'éviter de rentrer la formule, on écrit direct le résultat
Cells(Target.Row, 3) . . . . .le 3 est le N° de colonne
VLookUp est l'équivalent de . . . RecherchV
[Donnée!A1😀1000], 2, False) . .onglet Donnée et tableau comme la formule
Aussi si tu as des plantages en cours de macro en fenetre exécution copie cette ligne et valide par entrer
Application.EnableEvents = True
à false on neutralise les événements afin d'écrire sans que la macro recommence.
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
  On Error Resume Next
    x = Target.Validation.Type
    If Err.Number = 0 Then
Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlUp
      Cells(Target.Row, 3) = Application.VLookup(Cells(Target.Row, 1), [Donnée!A1:D1000], 2, False)
      Cells(Target.Row, 4) = Application.VLookup(Cells(Target.Row, 1), [Donnée!A1:D1000], 3, False)
Application.EnableEvents = True
 Else
      On Error GoTo 0
     Exit Sub
    End If
End Sub

 

[pierrejean]

Re : Insérer une ligne lorsqu'une cellule est rempli

Re

Vois cet essai