Bonjour,
une fonction personnalisée :
Function complete(s As String, Optional sep As String = ",") As String
Dim tmp1, tmp2, i As Long, j As Long, n As Long
Dim pl As Range, c As Range
tmp1 = Split(Replace(s, "-", ":"), ",")
For i = 0 To UBound(tmp1)
If pl Is Nothing Then Set pl = Range(tmp1(i)) Else Set pl = Union(pl, Range(tmp1(i)))
Next i
For Each c In pl
complete = complete & sep & c.Address(0, 0)
Next c
complete = Mid(complete, 2)
End Function
Par défaut le séparateur est la "," :
=complete(A2)
=> "A1,A3,A7,A8,A9,A10,A11,A12,A14"
mais tu peux mettre un 2nd paramètre optionnel pour le séparateur de ton choix :
=complete(A3;CAR(10))
=>
"A1
A3
A7
A8
A9
A10
A11
A12
A14"
dans une cellule avec en format 'Renvoyer à la ligne automatiquement'
On peut faire aussi une fonction personnalisée matricielle pour répartir dans plusieurs cellules.
Mais ça t'obligera à sélectionner le nombres de cellules nécessaire pour recevoir le résultat, avant de saisir ta formule à valider avec Shift+Ctrl+Entrée.
Tu dis...
eric