For i = .ListCount - 1 To Application.Max(.ListCount - 3, 0) Step -1
Bonsoir @patricktoulon
Private Sub CommandButton1_Click()
If ComboBox1.ListCount > 0 Then Exit Sub '*****'
Set l = [tableau1].ListObject.ListRows.Add
l.Range = ComboBox1.Value
reliste
End Sub
Rebonjour @patricktoulonBonjour @cathodique
faire du générique oui c'est possible
la ligne avec les astérisques j'explique pour quoi dans la vidéo
fichier joint
par définition avec ce principe ce n'est pas possiblePlus qu'à ajouter un contrôle pour éviter les doublons (j'ai souvent la tête dans les nuages).
Ok, merci ça m'évitera une corvée inutile.re
par définition avec ce principe ce n'est pas possible
puisque si existe tu peux pas envoyer dans le tableau
Je suis convaincu que tu as raison quant au stockage des indexes.re
Bonjour @cathodique je salut l'effort
en tout cas tu a visiblement compris comment ça fonctionne
juste un tout petit détail
j'ai vu que tu redimensionne à 2 le columncount de la combo 2d
certes c'est pas faux mais ta combo sera inutile dans une app
j'explique à nouveau
quand on utilise un filtre dans une combobox ou listbox forcement des lignes vont être supprimées
ce qui veux dire que dans ton changement on a plus la possibilité de retrouver l'index
si ce n'est qu'aller faire un vlookup sur le tableau dans la feuille
alors que je l'avais fait a 3 colonnes justement pour stocker les indexs de lignes
tu n'aurais pas changer ça ça aurait été un 100%
A = A + 1: ReDim Preserve tbl(1 To 3, 1 To A) 'code initial
A = A + 1: ReDim Preserve tbl(1 To 2, 1 To A)
Private Sub CobVille_Click()
TxtCP = CobVille.Column(1)
End Sub
Bonjour @ChTi160Bonjour le Fil
Comment as tu déclaré ton tableau "tbl" ?
Quel message d'erreur ?
Bonne fin de journée
Jean marie
Je ne l'espère pas car j'attends un RDV pour une occlusion totale.ça sent la rupture d'anévrisme là
Regarde la pièce jointe 1194883
Function ListeFiltree_2D(combo As Object, tablo, Optional col As Long = -1)
Dim A&, Lig, C, tbl(), ok As Boolean, ArgmT$, CoL1&, CoL2&, Cx&
ArgmT = combo.Value
If combo.Value = "" Then ArgmT = "*"
If col = -1 Then
CoL1 = LBound(tablo)
CoL2 = UBound(tablo, 2)
Else
CoL1 = LBound(tablo)
CoL2 = LBound(tablo)
End If
If combo.Value = "" Then combo.Clear: Exit Function
For Lig = 1 To UBound(tablo)
ok = False
For C = CoL1 To CoL2
If UCase(tablo(Lig, C)) Like UCase(CboVille.Value) & "*" Then ok = True
Next
If ok Then
' A = A + 1: ReDim Preserve tbl(1 To 3, 1 To A) 'code initial
A = A + 1: ReDim Preserve tbl(1 To UBound(tablo, 2), 1 To A)