Problème avec ComboBox

[matrix]

Bonjour,

Voici mon problème.

Dans ma feuille excel "Base de données", Dans la colone N2 à N63, ce trouve les Code A. Dans la colone O2 à O63, ce trouve les descriptions du Code A. Dans la colone P2 à P63, ce trouve les Code B et dans la colone Q2 à Q63, ce trouve les descriptions du code B.

Maintenant, ce que je voudrais faire, c'est que dans mon UserForm1, Le ComboBox3, doit contenir la liste des Code A de la colone N de N2 à N63 et que dans le TextBox17, il me donne tout de suite la description du code A de la colone O de O2 à O63 de la même ligne.

Ensuite, puise que dans la colone N, il peut y avoir plusieurs fois le même code ex: ACT qui apparait 8 fois, donc, qui peut être associer à plusieurs code B, je voudrais que dans le ComboBox4, qu'il m'apparaise seulement les code B de la colone P qui correspond. Une fois que j'aurrais choisit le code B dans le ComboBox4, dans le TextBox18, il apparaiterat la description dans la colone Q.


Voici mon début de script que j'ai fais:

Private Sub ComboBox3_Change()
Application.ScreenUpdating = False

Sheets("Base de données").Select
ComboBox3.RowSource = "N2:N63" 'ta plage de données
If ComboBox3.Value = "N2" Then
End If


Application.ScreenUpdating = False
Sheets("Base de données").Select

Valeur = ComboBox3.Text
ActiveSheet.Cells.Find(What:=Valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

TextBox17.Text = ActiveCell.Offset(0, 1).Text
ComboBox4.Text = ActiveCell.Offset(0, 2).Text


Sheets(TextBox9.Text).Select
Application.ScreenUpdating = True
End Sub

Voici un exemple du fichier excel. Cliquer sur le bouton sauvegarder la facture(UserForm1)





Merci de vôtre aide

 

[deudecos]

Re : Problème avec ComboBox

Salut Matrix,

Pas sur d'avoir tout compris, mais vois le fichier joint et dis moi si ca te convient.
Bonne journee

Olivier

 

[matrix]

Re : Problème avec ComboBox

Merci pour ton aide.

Super ce que tu as fais!

J'ai remarqué que si je click sur exemple ACT, dans la description du code A, il devrait me marquer "actif" et non TVQ qui représente le code B.

 

[matrix]

Re : Problème avec ComboBox

Super, j'ai modifié une chose et maintenant, ça fonctionne.

Dim L As Integer, M As Integer, N As Integer, i As Integer, ws As Worksheet
Set ws = Sheets("Base")
L = ws.Range("N65536").End(xlUp).Row
EffacerRevue

For i = 2 To L
M = ws.Range("R65536").End(xlUp).Row + 1

If UserForm2.ComboBox3 = ws.Range("N" & i) Then
UserForm2.TextBox17 = ws.Range("O" & i)
ws.Range("R" & M) = ws.Range("P" & i)

End If
Next
N = ws.Range("R65536").End(xlUp).Row
UserForm2.ComboBox4.RowSource = "Base!R2:R" & N



Merci! 🙂