Re : Tri avec combobox dans userform
Bonjour,
J'ai regardé votre fichier, et j'ai des messages d'erreur à l'ouverture. A dire vrai, je nage complètement dans la lecture de ce code ( c'est normal je ne sais pas programmer).
Par contre j'ai réussi à adapter le code de ROBERT dans mon fichier source, et j'ai un message d'erreur 1004 dans ce code là:
Private Sub ComboBox1_Change()
Dim r As Range 'définit la variable r (Recherche)
Dim pa As String 'définit la variable pa (Premi1ere Adresse)
Dim ent As Integer 'définit la variable ent
If test = True Then Exit Sub 'si test est vrai, sort de la procédure
Set r = f.Columns(6).Find(Me.ComboBox36.Value, , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then 'condition 1 : si il existe au moins une occurrence trouvée
pa = r.Address 'définit l'adresse de la première occurrence
Do 'exécute la boucle
If r.Offset(0, -5).Value = Me.ComboBox1 Then 'condition 2 : si la cellule en colonne A de l'occurrence trouvé est égale à la valeur de la ComboBox1
ent = r.Row 'définit la variable ent
GoTo suite 'va à l'étiquette "suite" (sans rechercher les occurrences suivantes...)
End If 'fin de la condition 2
Set r = f.Columns(6).FindNext(r) 'redéfinit la recherche r (occurrence suivante)
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en pa
End If 'fin de la condition 1
suite: 'étiquette
TextBox4 = Sheets("fournisseurs").Cells(ent, 2) 'contacts'
TextBox5 = Sheets("fournisseurs").Cells(ent, 3) 'téléphone'
TextBox6 = Sheets("fournisseurs").Cells(ent, 4) 'fax'
TextBox45 = Sheets("fournisseurs").Cells(ent, 5) 'mail'
With Sheets("demande")
.Range("l13").Value = ComboBox1.Value 'fournisseurs'
.Range("q17").Value = TextBox5.Value 'telephone'
.Range("r17").Value = TextBox6.Value 'fax'
.Range("l16").Value = TextBox4.Value 'contact'
.Range("l20").Value = TextBox45.Value 'email'
.Range("l18").Value = Range("s17").Value
End With
With Sheets("EMAIL")
Range("b2").Value = TextBox45.Value 'email'
End With
End Sub
Pareillement, je ne sais pas d'où cela peut venir.
Une nouvelle fois merci par avance