PB macro ajout ligne

Bonjour a Tous

je fait de nouveau appel à vous car j'ai un problème avec le fichier joint et j'ai besoin de vos lumière

voila mon pb sur chaque feuille am 374xx an429tb ... j'ai la possibilité pour ajouter une ligne de prise carburant soit je double click sur la dernière ligne soit je clique sur le bouton

mais voila que se pointe une erreur est je ne comprend pas pourquoi

je précise que quelques fois cela fonctionne ou cela m’insère une ligne mais pas à la fin

merci pour votre aide

Yannick

Bonsoir,

Tu supprime les boutons et tous les codes existants,

Ne restera dans le ThisWorkbook que ce code (valable pour toutes les feuilles)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Lg%
On Error GoTo Fin
    Lg = Range("a65536").End(xlUp).Row + 1
        If Target.Row <> Lg Or Target.Column > 9 Then GoTo Fin

        Application.EnableEvents = False
    Application.CutCopyMode = False
    Range("a" & Lg - 1 & ":i" & Lg - 1).Copy
    Range("a" & Lg).Insert
    Application.CutCopyMode = False
    Range("a" & Lg & ":i" & Lg).SpecialCells(xlCellTypeConstants, 23).ClearContents
Fin:    Application.EnableEvents = True
        Cancel = True
End Sub

et dans un module (pour les boutons)

Sub AjoutLigne() 'bouton
'-- copie ligne (A:i)et efface données sans formules --
Dim Lg%
On Error GoTo Fin
    Lg = Range("A65536").End(xlUp).Row + 1
        Application.EnableEvents = False
    Application.CutCopyMode = False
    Range("a" & Lg - 1 & ":i" & Lg - 1).Copy
    Range("a" & Lg).Insert
    Application.CutCopyMode = False
    Range("a" & Lg & ":i" & Lg).SpecialCells(xlCellTypeConstants, 23).ClearContents
Fin:    Application.EnableEvents = True
End Sub

J'ai refait les boutons avec "Formulaire" au lieu de "Contrôle"

à mon avis, tu n'as plus besoin de bouton.

Fais quand même des tests sur ce fichier.

Amicalement

Claude

Merci a toi

cela fonctionne super merci et c'est surtout beaucoup plus simple

a bientôt merci

Yannick