Function LigneRechercher(sTexteCherche As String) As Integer
Dim c As Object
With Worksheets(1).Range("a3:a65536")
Set c = .Find(sTexteCherche, LookIn:=xlValues)
If Not c Is Nothing Then
LigneRechercher = c.Row
Else
LigneRechercher = Range("A65536").End(xlUp).Offset(1, 0).Row
End If
End With
End Function
Private Sub ComboBox56_Change()
Dim c As Object ' Variable résultat de la recherche
Dim iLignes As Integer
' Recherche du nombre de ligne de la plage de données
iLignes = Application.WorksheetFunction.CountA(Range("entrée!A:A"))
' La recherche s'effectue dans la plage A2:Axx de la feuille Feuil1
With Range("entrée!A3:A" & iLignes)
Set c = .Find(What:=Trim(ComboBox56), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
On Error Resume Next
' Le textBox txtNomreçoit la valeur contenue dans la colonne B de la ligne correspondant à la référence cherchée
Me.TextBox113 = c.Offset(0, 1)
Me.TextBox114 = c.Offset(0, 2)
Me.TextBox112 = c.Offset(0, 3)
Me.TextBox110 = c.Offset(0, 5)
Me.TextBox111 = c.Offset(0, 4)
'la je sais pas comment mettre la condition if then else
End With
End Sub
Private Sub CommandButton1_Click()
Sheets("entrée").Activate
Dim Xls As Worksheet, lLig As Long
Set Xls = ThisWorkbook.Worksheets("entrée")
'Recherche la ligne disponible
lLig = 3
While Xls.Cells(lLig, 1) <> ""
lLig = lLig + 1
Wend
' insere les donnees de la commande des cinq premieres colonnes
Xls.Cells(lLig, 1) = ComboBox56.Value
Xls.Cells(lLig, 4) = TextBox112.Value
Xls.Cells(lLig, 3) = TextBox114.Value
Xls.Cells(lLig, 2) = TextBox113.Value
Xls.Cells(lLig, 5) = TextBox111.Value
Xls.Cells(lLig, 6) = TextBox110.Value
Select Case ComboBox55
Case "uc"
Xls.Cells(lLig, 8) = TextBox90.Value
Xls.Cells(lLig, 9) = TextBox108.Value
Case "ecran"
Xls.Cells(lLig, 11) = TextBox90.Value
Xls.Cells(lLig, 12) = TextBox108.Value
Case "Alimentations"
Xls.Cells(lLig, 14) = TextBox90.Value
Xls.Cells(lLig, 15) = TextBox108.Value
End Select
Select Case ComboBox54
Case "uc"
Xls.Cells(lLig, 8) = TextBox89.Value
Xls.Cells(lLig, 9) = TextBox107.Value
Case "ecran"
Xls.Cells(lLig, 11) = TextBox89.Value
Xls.Cells(lLig, 12) = TextBox107.Value
Case "Alimentations"
Xls.Cells(lLig, 14) = TextBox89.Value
Xls.Cells(lLig, 15) = TextBox107.Value
End Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Sheets("entrée").Activate
Dim iLignes As Integer
iLignes = Range("A65536").End(xlUp).Row
Me.ComboBox56.RowSource = "=entrée!$A$3:$A" & iLignes
Sheets("liste de choix").Activate
For i = 1 To 60
Me.ComboBox55.AddItem Range("C" & i).Value
Next
For i = 1 To 60
Me.ComboBox54.AddItem Range("C" & i).Value
Next
End Sub