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
| Private Sub Recherche_Click()
Dim localise, localise2 As String 'Déclaration de "localise" en tant que chaîne de caractères
Dim i, j As Integer 'Déclaration "i" entiers 16 bits
Dim a, ligne As Range
If Partnumber_box <> "" Then 'On fait une recherche avec le Partnumber du composant
For i = 2 To DernLigne 'Lorsque i est compris entre 2 et la dernière ligne de la colonne G
If ListePartnumber(i) = Partnumber_box.Value Then 'Si la valeur du tableau se trouvant à i = la valeur du Partnumber
localise = Cells.Find(ListePartnumber(i), , xlValues).Address 'Trouve les coordonnées de la cellule où se trouve la valeur de ListePartnumber
Cells(i, 7).Select 'Sélectionne la cellules où se trouve la donnée
Rows(ActiveCell.Row).Select 'Active toute la ligne
If MsgBox(localise, vbInformation, "Localisation") = vbOK Then 'Ouvrir une boite de message avec la valeur de localise dedant
Load Composant_trouvé
Composant_trouvé.Show
End If
Exit For 'Permet de sortir de la boucle for lorsque une fois la recherche terminée
ElseIf i + 1 = DernLigne + 1 Then 'Si i vaut Dernligne (ce qui veut dire pas de résultat avant)
Beep 'Emettre un signal sonore
If MsgBox("Composant Non référencé, voulez-vous le créer ?", 4116, "Composant non trouvé") = vbYes Then
Load CréationComp 'Si clic sur Créer, chargement en mémoire de la fenêtre "Création de composant"
CréationComp.Show 'Ouverture de la fenêtre
End If
End If 'On sort de la boucle If
Next i
ElseIf Device_box <> "" Then 'On fait une recherche avec le device du composant
For j = 2 To DernLigne2
If ListeDevice(j) = Device_box.Value Then
localise2 = Cells.Find(ListeDevice(j), , xlValues).Address
Cells(j, 1).Select
Rows(ActiveCell.Row).Select
If MsgBox(localise2, vbInformation, "Localisation") = vbOK Then
Load Composant_trouvé
Composant_trouvé.Show
End If
Exit For
ElseIf j + 1 = DernLigne2 + 1 Then
Beep
If MsgBox("Composant Non référencé, voulez-vous le créer ?", 4116, "Composant non trouvé") = vbYes Then
Load CréationComp
CréationComp.Show
End If
End If
Next j
End If
End Sub |
Partager