Ajout de ligne automatique si cellule avec valeur

Bonjour,

j'aimerai sur excel ajouter une ligne automatiquement en dessous d'une autre si la valeur d'une cellule (de cette même ligne) n'est pas nul. Je ne sais pas vraiment comment cela est possible... ?

Merci d'avance


Je n'y arrive pas puis je transmettre le fichier pour que vous puissiez regarder, en fait je voudrai que si dans la colonne tva la case est rempli qu'une ligne soit ajoutée en dessous

https://www.cjoint.com/c/FBfnl7xjIRe

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

447fichier-v1.xlsm (36.71 Ko)

Salut,

pas mieux que Gmb, forcément!

    If Range("K" & Li + 1).Value <> "" Then
        'On crée une nouvelle ligne pour une prochaine évolution tarifaire
        Range("K" & Li + 1 & ":P" & Li + 1).Insert shift:=xlDown
    End If

(code provenant d'une de mes feuilles où j'insère une ligne de quelques cellules dans un cadre bien défini!)

Tu testes une valeur quelconque (dernière ligne, présence ou non d'une valeur à tel endroit par rapport à ta position de saisie) et en avant!

A+

Bonjour,

A tester.

Cdlt.

215fichier-1.xlsm (28.37 Ko)
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, lRow As Long

    If Target.Count > 1 Then Exit Sub
    Set lo = Me.ListObjects(1)
    lRow = lo.DataBodyRange.Rows.Count
    If Target.Address = lo.DataBodyRange.Cells(lRow, 7).Address Then
        If Target > 0 Then lo.ListRows.Add
    End If

    Set lo = Nothing

End Sub

Oui merci beaucoup, c'est vraiment super ! J'aimerai effectuer une dernière modification, est-il possible que la ligne ajoutée se mette en dessous et non au dessus?

Merci beaucoup !

Bonjour,

La ligne créée est en dessous (se place avant la ligne des totaux), je ne me trompe pas!?

Cdlt.

En fait oui mais dans le premier document envoyé gmb dès que je supprime ou modifie une ligne plus rien ne fonctionne.

J'ai une erreur d'exécution, l'indice n'appartient pas à la sélection.

Dans votre document Jean Eric cela n'a pas voulu fonctionner quand je l'ouvre.

Merci beaucoup !

Re,

Il faudrait peut-être que tu précises à qui tu t'adresses.

On parle de quoi? de la proposition de gmb (que je salue) ou de ma proposition?

Que veut dire :

Dans votre document Jean Eric cela n'a pas voulu fonctionner quand je l'ouvre.

L'ajout d'une ligne s'effectue quand tu saisies une nouvelle valeur de TVA.

A te relire.

Cdlt.

En fait le document de gmb fonctionne mais lorsque je supprime des cellules il y a l'erreur évoquée au dessus qui apparaît.

Le fichier que vous m'avez transmis Jean Eric ne fonctionne pas, lorsque je modifie la TVA aucune ligne ne s'ajoute.

Merci de votre aide.

je vous mets de nouveau le fichier en pièce jointe pour que vous puissiez voir.

(pour rappel: Je souhaiterai que lorsque la cellule TVA n'est pas nulle la ligne s'ajoute en dessous).

Merci encore pour votre aide!

175test1.xlsm (31.35 Ko)
Rechercher des sujets similaires à "ajout ligne automatique valeur"