XL 2019 insérer une ligne en dessous de la précédente

pygark

XLDnaute Nouveau
Bonjour a tous

alors voilà, je vais essayé d'être clair.
je souhaiterai que quand je saisi du texte dans la dernière ligne de mon tableau par exemple feuil1 , b16 (qui contient un zéro)
s'affiche une nouvelle ligne avec un zéro dans b17 et ainsi de suite.
en gros, si il y a un zéro dans la dernière ligne du tableau = rien ne ce passe.
si il y a autre chose que zéro = remplir la cellule du dessous ( donc qui ne fait pas encore parti du tableau ) d'un zéro
je vous joint un exemple de mon fichier , je pense que le VBA est la réponse, mais voila je suis une gaufre dans ce domaine ( en plus des autres )
et j'espère avoir clair.
 

Pièces jointes

  • TT2 - 3.xlsm
    12.5 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pygark,
Si j'ai bien tout compris, un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A65000")) Is Nothing Then
        If Target <> 0 Then Cells(Target.Row + 1, "A") = 0
    End If
End Sub
 

Pièces jointes

  • TT2 - 3.xlsm
    17.1 KB · Affichages: 4

pygark

XLDnaute Nouveau
c'est tout a fait ça chris , super et rapide en plus
pour l'utilité le zéro a son importance trop compliqué a expliquer en quelques mots .
de plus ceci n'est qu'une tout petite partie de mon tableau.
en tout les cas bravo et merci encore.
pour moi c'est du billard , l'affaire est clos
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 329
Messages
2 087 334
Membres
103 520
dernier inscrit
Azise