erreur d'exécution 13, incompatibilité de type

**PHPdudimanche** · 30/05/2007, 12h13

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

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

2/ Ma sélection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim DepartColonne
Set DepartColonne = Worksheets("PRIX").range("A3:T200")

3/ Mon appel de la fonction au sein d'une autre fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EnleverEspaces (DepartColonne)

**dadavyvy** · 30/05/2007, 23h10

1ere chose remplacer la fonction par une procédure, car aucun résultat n'est renvoyé.
Ensuite rajouter un paramètre à cette procédure, sinon ça ne sert à rien de définir au préalable la plage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub EnleverEspaces(plage As Range)
    Dim Cell As range
    For Each Cell In plage.Cells
        Cell.Value = Trim(Cell.Text)
    Next Cell
End Sub

**PHPdudimanche** · 31/05/2007, 18h29

Merci

Je comprends la fonction ou plutôt SUB

J'ai mis la SUB en dehors de ma fonction, en haut dans le module.
Pour l'appeler, je fais :
EnleverEspacesAvantApres (DepartColonne)

Ce qui donne l'erreur suivante :
erreur d'exécution 424 - objet requis

Je passe donc mal le paramètre de ma plage à traiter ?
Comment faire ?

Merci

**dadavyvy** · 31/05/2007, 20h33

Peux-tu nous montrer ton code? et nous dire à quelle ligne tu as l'erreur?

**PHPdudimanche** · 01/06/2007, 10h14

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub EnleverLesEspaces(plage As range)
    Dim Cell As range
    For Each Cell In plage.Cells
        Cell.Value = Trim(Cell.Text)
    Next Cell
End Sub
 
Function MiseAjour()
 
'sélection multiple'
 
Dim Depart As range
Set Depart = Worksheets("PRIX").range("A3:C200")
Dim Depart2 As range
Set Depart2 = Worksheets("PRIX").range("G3:G200")
 
Dim Destination As range
Set Destination = Worksheets("PRODUIT").range("A3:C200")
Dim Destination2 As range
Set Destination2 = Worksheets("PRODUIT").range("F3:F200")
 
'copie'
 
Depart.Copy Destination
Depart2.Copy Destination2
 
'tri des deux tableaux en respectant les formules'
 
Dim DepartColonne
Set DepartColonne = Worksheets("PRIX").range("A3:T200")
 
'fonction qui genere l'erreur erreur d'execution 424 objet requis '
EnleverLesEspaces (DepartColonne)
 
 
DepartColonne.Sort Key1:=Worksheets("PRIX").range("A2"), Order1:=xlAscending, Key2:=Worksheets("PRIX").range("B2"), Order2:=xlAscending, MatchCase:=False, Orientation:=xlTopToBottom
 
'ajout de ligne à chaque fin de marque et coloriage premiere occurence'
Dim x As Integer, i As Integer
 
x = Worksheets("PRIX").range("A65536").End(xlUp).Row
 
For i = x To 2 Step -1
    If Cells(i, 1) <> Cells(i - 1, 1) And Cells(i, 1) <> "" Then
        Cells(i, 1).Interior.ColorIndex = 4
        Cells(i, 1).EntireRow.Insert
    End If
Next i
 
Dim DestinationColonne
Set DestinationColonne = Worksheets("PRODUIT").range("A3:T200")
DestinationColonne.Sort Key1:=Worksheets("PRODUIT").range("A2"), Order1:=xlAscending, Key2:=Worksheets("PRODUIT").range("B2"), Order2:=xlAscending, MatchCase:=False, Orientation:=xlTopToBottom
 
End Function