Bonjour, j'ai l'erreur suivante, comment y remédier ?
"erreur d'exécution 13"
"incompatibilité de type"
Je souhaite enlever les espaces de toute cellule de mon tableau
1/ Fonction pour enlever les espaces
2/ Ma sélection
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Function EnleverEspaces() Dim Cell As range For Each Cell In Selection Cell.Value = Trim(Cell.Text) Next Cell End Function
3/ Mon appel de la fonction au sein d'une autre fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim DepartColonne Set DepartColonne = Worksheets("PRIX").range("A3:T200")
Code : Sélectionner tout - Visualiser dans une fenêtre à part EnleverEspaces (DepartColonne)
Partager