Bonjour le forum!

J'ai encore une fois besoin d'aide!

J'ai un tableau dans lequel la colonne A comporte des numéros uniques (du genre 2009-001, 2009-002, etc) et qui a des données dans les colonnes A à V. Pour remplir ce tableau, j'ai un bouton sur ma feuille qui appel un USF "Ajout d'une demande" qui inscrit des données sur la dernière ligne de mon tableau (lorsque je clic sur le bouton OK du USF).

J'ai un autre bouton sur ma feuille qui appel un formulaire "Modification d'une demande" qui s'appel frmModifDDP. Dans mon USF frmModifDDP, j'ai un bouton "Enregistrer". Je souhaite donc qu'en cliquant sur ce bouton:
- je récupère le numéro unique (placé dans la combobox cbxNoDDP du USF frmModifDDP)
- je fais une recherche (par vlookup? ou par autre chose?) dans mon tableau pour récupérer le numéro de ligne correspondant à ce numéro unique
- je transfère les données de mon USF sur la bonne ligne pour aller écraser les anciennes données.

Avec un code, ce sera peut-être plus clair! Voici le code de mon bouton OK (dans mon USF d'ajout)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub btOK_Click()
Dim derlig As Long
Dim feuilSuivi As Worksheet
Dim rep As String, NoPost As String, VariableMSG As String
 
Set feuilSuivi = Sheets("Liste Demande de projet")
derlig = Cells(65536, 2).End(xlUp).Row + 1
NoPost = feuilSuivi.Cells(derlig, 1).Value
 
If cbxAtelier.Value = "" Then
MsgBox "Veuillez choisir un atelier"
Else
VariableMSG = "Votre numéro de demande de porjet est le " & NoPost
 
MsgBox VariableMSG, vbOKOnly + vbInformation
 
feuilSuivi.Cells(derlig, 2).Value = tbxInitiateur.Value
feuilSuivi.Cells(derlig, 3).Value = date1
feuilSuivi.Cells(derlig, 4).Value = tbxTitre.Value
feuilSuivi.Cells(derlig, 5).Value = tbxObjectifs.Value
feuilSuivi.Cells(derlig, 6).Value = tbxNoDAC.Value
feuilSuivi.Cells(derlig, 7).Value = cbxAtelier.Value
feuilSuivi.Cells(derlig, 8).Value = tbxSitAct.Value
feuilSuivi.Cells(derlig, 9).Value = tbxSolution.Value
feuilSuivi.Cells(derlig, 10).Value = tbxSommaireCouts.Value
feuilSuivi.Cells(derlig, 11).Value = tbxEcheancier.Value
feuilSuivi.Cells(derlig, 12).Value = cbxJustification.Value
feuilSuivi.Cells(derlig, 13).Value = tbxAutreJustif.Value
feuilSuivi.Cells(derlig, 14).Value = cbxRetourInvest.Value
feuilSuivi.Cells(derlig, 15).Value = tbxExempleJustif.Value
feuilSuivi.Cells(derlig, 16).Value = date2
feuilSuivi.Cells(derlig, 17).Value = date3
feuilSuivi.Cells(derlig, 18).Value = tbxCommentairesChefIng.Value
feuilSuivi.Cells(derlig, 19).Value = cbxStatut.Value
feuilSuivi.Cells(derlig, 20).Value = cbxType.Value
feuilSuivi.Cells(derlig, 21).Value = cbxPriorite.Value
feuilSuivi.Cells(derlig, 22).Value = tbxCommentaires.Value
 
rep = MsgBox("Voulez-vous saisir une autre demande de projet", vbYesNo + vbQuestion, "Autre demande de projet")
If rep = vbNo Then
    frmModifDDP.Hide
    Unload frmModifDDP
    Application.ScreenUpdating = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("AN:AN").Select
    Selection.ColumnWidth = 80
    With Selection
        .HorizontalAlignment = xlGeneral
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").Select
    Selection.EntireColumn.Hidden = True
    Range("B4").Select
    Application.ScreenUpdating = True
 
Else
    frmModifDDP.Hide
    Unload frmModifDDP
    Load frmModifDDP
    frmModifDDP.Show
End If
End If
End Sub
Je souhaite donc pouvoir modifier le code comme suit pour mon USF frmModifDDP (j'ai mis en rouge le texte où j'ai des difficultées)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Set feuilSuivi = Sheets("Liste Demande de projet")
derlig = recherche du numéro de ligne pour la donnée de la colonne A qui correspond à cbxNoDDP.Value
(donc si j'ai, par exemple, le numéro 2009-003 dans cbxNoDDP.Value, je veux avoir la valeur de ligne 6)
' Aller inscrire les données de mes txb et cbx dans les bonnes colonnes selon la bonne ligne
feuilSuivi.Cells(derlig, 2).Value = tbxInitiateur.Value
...
J'espère que ce que je souhaite faire est clair... à force d'y travailler, j'ai peut-être oublier de mentionner certains éléments qui sont important et je m'en excuse!

Merci à l'avance encore une fois pour vos réponses si aidantes!!
Geneviève