Macro

Bonjour à tous,

Avec la macro ci-dessous, je demande à Excel de me reprendre -par ligne (pour que se soit plus lisible)- tous les dossiers du client, qui est repris en cellule S1.

Cela se passe bien jusqu'au moment où tous ses dossiers sont listés car ensuite il m'indique #N/A. J'ai essayé pour des raisons esthétiques de faire disparaître ces indications d'erreurs via "SiERREUR", mais sans succès

En second lieu, j'essaie d'associer cette macro à un bouton afin de ne pas à chaque fois retaper la formule. Cependant rien ne se passe.

Et enfin, en U2 j'ai la petite formule suivante "=NBVAL(T3:T13)". Le problème est qu'avec cette formule, il compte également les cellules #N/A. Y aurait-il un moyen d'éviter cela?

Merci pour votre aide

Sub Macro4()

'

' Macro4 Macro

'

'

ActiveWindow.SmallScroll ToRight:=14

Range("T3").Select

ActiveCell.FormulaR1C1 = _

"=vlookuplistsplitpercells(R[-2]C[-1],R[11]C[-18]:R[1997]C[-18],2,""//"")"

Range("T3").Select

Selection.AutoFill Destination:=Range("T3:T11"), Type:=xlFillDefault

Range("T3:T13").Select

ActiveCell.FormulaR1C1 = _

"=vlookuplistsplitpercells(R[-2]C[-1],R[11]C[-18]:R[1997]C[-18],2,""//"")"

Range("T3:T13").Select

Range("T13").Activate

End Sub

J'oubliais,

Si quelqu'un avait une idée de comment supprimer les doublons, soit directement dans la liste des dossiers soit en cellule U2.

Ce serait pas mal non plus.

Merci

Bonjour,

cela nous aiderais beaucoup si vous pouviez joindre un fichier exemple