Intégrer une liste de commentaires modifiables

Bonjour,

Je souhaite réaliser un fichier Excel sous macro qui me permet de suivre des terrains en prospection.

Je pensais reprendre le code d'un ancien fichier qui possédait une base de donnée sous un onglet et qui fonctionnait avec les numéros.

Le hic c'est que je souhaiterais avoir d'un fichier plusieurs onglet. Donc je pose la question de savoir si cela est possible d'avoir une base de donnée sur la même feuille.

Etant donné que la base de donnée "commentaire" serait rattachée via un RechercheV via le numéro de parcelle.

Sur le document en préparation, l'idéal serait de pouvoir jonglet entre les parcelles via une liste déroulante, et que l'on puisse soit ajouter une nouveau commentaire, soit modifier l'ancien (et le top serait de pouvoir naviguer sur le n-2, -3...).

Le fichier ci-joint présente le formalisme que souhaite avoir avec la base de donnée intégrer dans l'onglet (le but est de pouvoir à terme imprimer la fiche).

Je vous remercie d'avance de vos aides ;)

Ancien code utilisé

Sub modification()

Range("A2:AJ2").Select
Selection.Copy
Sheets("BD").Select
Range("A" & [param_no_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation").Select
Range("D10:D12").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.CutCopyMode = False
Range("H14:H34").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D15:D17").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("J17").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D19:D34").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Pour utiliser les flèches

Sub aller_a_enreg_suivant()
If [param_no_ligne] < [nb_enregistrements_bd] Then
[param_no_ligne] = [param_no_ligne] + 1
End If
End Sub
Sub aller_a_enreg_precedent()
If [param_no_ligne] > 1 Then
[param_no_ligne] = [param_no_ligne] - 1
End If
End Sub

Supprimer un enregistrement

Sub suppression_enregistrement()

If [param_no_ligne] = 0 Then Exit Sub
If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then
Sheets("BD").Rows([param_no_ligne] + 1).Delete Shift:=xlUp
If [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub

Bonjour,

Si une âme charitable peut me venir en aide, d'avance merci .

Bonne journée