VBA Excel combo box
corto_maltese
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je re-post mon problème vu que je le vois pas
Fichier Excel avec données
J'ai créé un userform avec une combobox. Le choix d'une valeur de la combo (Liste de la colonne B) affiche des cellules choisies de la même ligne que le choix dans le userform.
J'ai essayé avec la méthode find mais pas de result.
qui peut m'aider?
Merci Moscou.
Private Sub Claim_nbr_Change()
Dim ro As Integer
Dim st As String
UserForm2.Claim_nbr.Value = st
Set My_result = Columns("B").find(st, , LookIn:=xlValues, lookat:=xlPart)
If My_result Is Nothing Then
MsgBox "not found"
Else
MsgBox "Found in " & My_result.Address 'do whatever you want when you find it.
End If
Range("A1").Activate
Cells.find(st).Activate
ActiveCells.Row = ro
Cells(ro, 3).Value = UserForm2.DateClaim.Value
Cells(ro, 4).Value = UserForm2.Supplier.Value
Cells(ro, 7).Value = UserForm2.PO_Num.Value
Cells(ro, 8).Value = UserForm2.ASW_Ref.Value
Cells(ro, 9).Value = UserForm2.Claim_Code.Value
Cells(ro, 10).Value = UserForm2.Quantity.Value
Cells(ro, 11).Value = UserForm2.Status.Value
End Sub
Je re-post mon problème vu que je le vois pas
Fichier Excel avec données
J'ai créé un userform avec une combobox. Le choix d'une valeur de la combo (Liste de la colonne B) affiche des cellules choisies de la même ligne que le choix dans le userform.
J'ai essayé avec la méthode find mais pas de result.
qui peut m'aider?
Merci Moscou.
Private Sub Claim_nbr_Change()
Dim ro As Integer
Dim st As String
UserForm2.Claim_nbr.Value = st
Set My_result = Columns("B").find(st, , LookIn:=xlValues, lookat:=xlPart)
If My_result Is Nothing Then
MsgBox "not found"
Else
MsgBox "Found in " & My_result.Address 'do whatever you want when you find it.
End If
Range("A1").Activate
Cells.find(st).Activate
ActiveCells.Row = ro
Cells(ro, 3).Value = UserForm2.DateClaim.Value
Cells(ro, 4).Value = UserForm2.Supplier.Value
Cells(ro, 7).Value = UserForm2.PO_Num.Value
Cells(ro, 8).Value = UserForm2.ASW_Ref.Value
Cells(ro, 9).Value = UserForm2.Claim_Code.Value
Cells(ro, 10).Value = UserForm2.Quantity.Value
Cells(ro, 11).Value = UserForm2.Status.Value
End Sub
A voir également:
- VBA Excel combo box
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
bonjour
J'ai l'impression que tu t'ai compliqué la vie, car si ta liste proviens de la colonne B avec ceci tu devrais avoir le résultat
J'ai l'impression que tu t'ai compliqué la vie, car si ta liste proviens de la colonne B avec ceci tu devrais avoir le résultat
Private Sub Claim_nbr_Change() Dim ro As Integer ro = UserForm2.Claim_nbr.ListIndex + 1 Cells(ro, 3).Value = UserForm2.DateClaim.Value Cells(ro, 4).Value = UserForm2.Supplier.Value Cells(ro, 7).Value = UserForm2.PO_Num.Value Cells(ro, 8).Value = UserForm2.ASW_Ref.Value Cells(ro, 9).Value = UserForm2.Claim_Code.Value Cells(ro, 10).Value = UserForm2.Quantity.Value Cells(ro, 11).Value = UserForm2.Status.Value End Sub