[VBA] Trouver le numéro de la ligne d'une cellule
Bonjour,
J'ai deux feuille Bdd et configuration.
Quand j’insère une donné dans la feuille configuration via un userform, je veux trouver le numéro de la ligne de cette valeur dans la feuille Bdd
Voici mon code qui me retourne toujours nothing.
Merci
Code:
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
71
72
73
|
Private Sub valider_Click()
Dim nombre As Integer
Dim i As Integer
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim wb As Workbook
Dim ws As Worksheet
Dim FoundCell As Range
Set wb = ActiveWorkbook
Set ws = Sheets("Bdd")
Dim Valeur_recherche
Dim bloc
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
i = 1
nombre = quantite().Value
While i <= nombre
If ActiveCell.Value = "" Then
ActiveCell.Value = Me.reference 'Me.reference vient d'une ListBox
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Valeur_recherche = Me.reference
Set FoundCell = ws.Range("D4:D2000").Find(What:=Valeur_recherche)
If Not FoundCell Is Nothing Then
MsgBox (Valeur_recherche & "est à la ligne: " & FoundCell.Row)
Else
MsgBox (Valeur_recherche & " n'existe pas")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else
Rows(ActiveCell.Row + i).Insert Shift:=xlDown 'xlUp
Cells(ActiveCell.Row + i, "C") = Me.reference
' Set PlageDeRecherche = Sheets("Bdd").Range("D2:D2000")
'Valeur_Cherchee = Me.reference
'
'
' Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole)
' f2.Cells(ActiveCell.Row + i, "D") = Sheets("Bdd").Range("I" & Trouve).Value
' Set c = Sheets("Bdd").Range("D4:D200").Find(Me.reference, LookIn:=xlValues)
' therow = c.Row
' f2.Cells(ActiveCell.Row + i, "D") = Sheets("Bdd").Range("I" & therow).Value
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Valeur_recherche = Me.reference
Set FoundCell = ws.Range("D4:D2000").Find(What:=Valeur_recherche)
If Not FoundCell Is Nothing Then
MsgBox (Valeur_recherche & " est à la ligne: " & FoundCell.Row)
Else
MsgBox (Valeur_recherche & "n'existe pas")
End If
i = i + 1
End If
Wend
' Set cel = Cells.Find(what:=Me.reference)
'Ligne1 = cel.Row 'pour renvoyer le numéro de ligne
'f2.Cells(ActiveCell.Row + i, "D") = Sheets("Bdd").Range("B" & Ligne1).Value
Unload Me
End Sub |
