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

Version imprimable

30/05/2007, 12h13
PHPdudimanche

erreur d'exécution 13, incompatibilité de type
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:

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:

1 2 Dim DepartColonne Set DepartColonne = Worksheets("PRIX").range("A3:T200")
3/ Mon appel de la fonction au sein d'une autre fonction

Code:

EnleverEspaces (DepartColonne)
30/05/2007, 23h10
dadavyvy
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:

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
31/05/2007, 18h29
PHPdudimanche

erreur d'exécution 424 - objet requis

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
31/05/2007, 20h33
dadavyvy

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

code total

Voici le code

Code:

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

01/06/2007, 13h52
tirex28

Bonjour,

Essaye d'appeler ta procedure comme ceci:

EnleverLesEspaces DepartColonne

Cordialement,

Tirex28/
01/06/2007, 14h16
PHPdudimanche

Erreur de compilation - Type d'argument ByRef incompatible
Action :

Code:

EnleverLesEspaces DepartColonne

Réaction :

Citation:

Erreur de compilation
Type d'argument ByRef incompatible

Cette erreur se produit en cliquant n'importe où sur la feuille, et pas seulement sur mon bouton d'action suivant :
Code:

1 2 3 Private Sub Worksheet_SelectionChange(ByVal Target As range) If Target.Address = "$B$1" Then range("$C$1") = MiseAjour() End Sub
01/06/2007, 14h27
PHPdudimanche

Resolu
J'ai contourné le problème.
Dans ma fonction, en tout début j'ai mis cette action.
Code:

1 2 3 4 5 Set Source = Worksheets("PRIX").range("A3:C200") Dim Cell As range For Each Cell In Source.Cells Cell.Value = Trim(Cell.Text) Next Cell
Je vais tout de même essayer de le faire par le moyen que vous m'aviez donné.

STP, mets ton code dans des balises # ça sera bcp bcp plus lisible...
Modifies ton code comme suit :
Il faut que tu déclares ta variable DepartColonne comme un Range, puisque tu forces le paramètre de la procédure EnleverLesEspaces à un Range
Code:

1 2 3 4 5 6 7 Dim DepartColonne As Range Set DepartColonne = Worksheets("PRIX").Range("A3:T200") ' syntaxe correcte pour appel d'une colonne EnleverLesEspaces DepartColonne 'ou 'Call EnleverLesEspaces(DepartColonne)
Encore une fois, ce n'est pas une Function mais une Sub puisque cela ne te retourne rien. Et pour l'appeler tu n'auras pas à faire : range("$C$1") = MiseAjour(), mais :
Code:

1 2 3 Call MiseAjour 'ou simplement MiseAjour