Re : [VBA] Formulaire de modification
Merci pour ce retour rapide.
J'ai bien remplacé a = f.Range("a2:a" & f.[a65000].End(xlUp).Row).Offset(, colCle - 1).Value par a = f.Range("a3:a" & f.[a65000].End(xlUp).Row).Offset(, colCle - 1).Value
Mais encore une fois, le formulaire ne s'affiche pas correctement (des textbox n'apparaissent plus) et la ma macro plante. L'erreur semble se situer à ce niveau :
Sub listeExistants()
Me.ListBox1.Clear
i = 0
a = f.Range("a3:a" & f.[a65000].End(xlUp).Row).Resize(, nbCol)
tmp = UCase(Me.ComboBox1)
For k = 1 To UBound(a)
If UCase(a(k, colCle)) = tmp Then n = n + 1
Next k
Dim b(): ReDim b(1 To n, 1 To 4)
For k = 1 To UBound(a)
If UCase(a(k, colCle)) = tmp Then
i = i + 1
b(i, 1) = a(k, 1)
b(i, 2) = a(k, 2)
b(i, 3) = a(k, 3)
b(i, 4) = k + 1
End If
Next k
Me.ListBox1.List = b
End Sub