Bug dans un formulaire par macro

Bonjour à toutes et à tous, et mes meilleurs voeux.

J'ai cherché comment résoudre mon problème mais j'ai manifestement zappé une étape, ou fait une erreur évidente.

Le but du formulaire : encoder les factures une à une, pour ne pas devoir le faire dans le fichier excell en lui-même.

J'ai les deux problèmes suivants :

1) Les liens ne se collent pas (j'ai 0 qui apparait à la place)

2) La date d'émission (première case) ne se copie pas

Je suis convaincu que c'est "bête" comme bug, mais j'ai été jusqu'à refaire tout le fichier pour tenter de comparer les macros, je ne vois pas l'erreur.

En même temps, s'il existe un moyen d'importer un fichier pdf à la place du lien (et qu'il s'enregistre dans un dossier précis), et qu'il soit visualisable depuis le listing à proprement parlé, je prends volontiers l'astuce.

Merci d'avance pour votre support.

Bonne soirée, ou bonne journée, c'est selon :)

Hello,

Remplacer ton code par celui-ci :

Sub Entrées()
' Entrées Macro

    Dim DerniereVente As Long

    DerniereVente = Worksheets("Ventes").Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 ' -- derniere vente + 1 pour ligne de saisie
    Worksheets("Ventes").Range("A" & DerniereVente) = Range("C3") ' -- date emission
    Worksheets("Ventes").Range("B" & DerniereVente) = Range("D3") ' -- type
    Worksheets("Ventes").Range("C" & DerniereVente) = Range("E3") ' -- client
    Worksheets("Ventes").Range("D" & DerniereVente) = Range("F3") ' -- commentaire
    Worksheets("Ventes").Range("E" & DerniereVente) = Range("C7") ' -- HT
    Worksheets("Ventes").Range("F" & DerniereVente) = Range("D7") ' -- tx
    Worksheets("Ventes").Range("G" & DerniereVente) = Range("E7") ' -- tva
    Worksheets("Ventes").Range("H" & DerniereVente) = Range("F7") ' -- TTC
    Worksheets("Ventes").Range("I" & DerniereVente) = Range("C11") ' -- date envoie
    Worksheets("Ventes").Range("J" & DerniereVente) = Range("D11") ' -- date echeance
    Worksheets("Ventes").Range("L" & DerniereVente) = Range("E11") ' -- statut
    ' Ajouter le lien hypertexte
    Worksheets("Ventes").Hyperlinks.Add Anchor:=Worksheets("Ventes").Range("K" & DerniereVente), Address:=Range("F11")
    ' -- vide saisie
    Union(Range("C3"), Range("D3"), Range("E3"), Range("F3"), _
                Range("C7"), Range("D7"), Range("E7"), Range("F7"), _
                    Range("C11"), Range("D11"), Range("E11"), Range("F11")).ClearContents

End Sub

bonjour ItsYour, Rag02700, cela demande un tableau structuré