Sujet Précédent Sujet Suivant

VBA Excel combo box

Fermé
corto_maltese - 22 févr. 2008 à 15:22
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 23 févr. 2008 à 09:36
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
A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 707
23 févr. 2008 à 09:36
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 
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
0