bonjour,
Bonjour a tous,
étant novice, et devant faire une macro assez lourde, je me permets de soliciter votre aide car je n'arrive pas a coder en VBA ma recherche je montre mon code :
alors voila mon souci est que parfois la valeur rechercher revient plusieur fois dans ma base de données, j'aimerai savoir s'il serait possible d'afficher tous les doublons.
mais aussi savoir comme base de recherche c'est a dire :
on pouvait mettre une seconde colone de recherche ( et si possible une colone situé dans une aute feuille ) en plus de celle déja marqué dans le code !
merci
cordialement
celine
Bonjour a tous,
étant novice, et devant faire une macro assez lourde,
Code:
Private Sub quit_Click()
Unload Me
End Sub
Private Sub Save_Click()
Dim Resultat, R As Range
Dim ligne, occurence As Long
If TBNumLot <> "" Then
Set Resultat = ThisWorkbook.Sheets("prépreg").Range("C:C").Find(What:=TBNumLot.Value, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not Resultat Is Nothing Then
MsgBox ("Recherche effectuée")
occurence = 0
ligne = 2
With ThisWorkbook
For Each R In .Sheets("prépreg").Range("C1:C" & .Sheets("prépreg").Range("C:C").End(xlDown).Row)
If R.Value = TBNumLot.Value Then
If occurence = 0 Then
.Sheets("recherche").Range("B" & ligne).Value = .Sheets("prépreg").Range("B" & R.Row).Value
.Sheets("recherche").Range("C" & ligne).Value = .Sheets("prépreg").Range("A" & R.Row).Value
.Sheets("recherche").Range("D" & ligne).Value = .Sheets("prépreg").Range("I" & R.Row).Value
.Sheets("recherche").Range("E" & ligne).Value = .Sheets("prépreg").Range("J" & R.Row).Value
.Sheets("recherche").Range("F" & ligne).Value = .Sheets("prépreg").Range("O" & R.Row).Value
.Sheets("recherche").Range("G" & ligne).Value = .Sheets("prépreg").Range("M" & R.Row).Value
.Sheets("recherche").Range("H" & ligne).Value = .Sheets("prépreg").Range("D" & R.Row).Value
.Sheets("recherche").Range("I" & ligne).Value = .Sheets("prépreg").Range("C" & R.Row).Value
.Sheets("recherche").Range("J" & ligne).Value = .Sheets("prépreg").Range("S" & R.Row).Value
End If
.Sheets("recherche").Range("K" & ligne).Value = .Sheets("prépreg").Range("V" & R.Row).Value
.Sheets("recherche").Range("L" & ligne).Value = .Sheets("prépreg").Range("W" & R.Row).Value
occurence = occurence + 1
ligne = ligne + 1
End If
Next
End With
Else
MsgBox ("Aucune information trouvée")
End If
Unload recherchelot
Sheets("recherche").Select
End If
End Sub
Private Sub UserForm_Click()
End Sub
alors voila mon souci est que parfois la valeur rechercher revient plusieur fois dans ma base de données, j'aimerai savoir s'il serait possible d'afficher tous les doublons.
mais aussi savoir comme base de recherche c'est a dire :
Code:
Set Resultat = ThisWorkbook.Sheets("prépreg").Range("C:C").Find(What:=TBNumLot.Value, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext)
merci
cordialement
celine