Discussion :

[auronlepabon]

Je dois faire quelques macros pour le boulot mais j'ai quelques difficultés étant novice en VBA, c'est vraissemblablement dans l'utilisation de la fonction len.
J'ai crée 2 variables longueur1 et longueur2 qui calculent la longueur d'une chaine gràce à la fonction len(). Puis quand je les mets dans la fonction left() j'ai une erreur "argument ou appel de procédure incorrect" alors que quand je remplace longueur1 et longueur2 par 4 par exemple il n'y a pas de problème (a part que la fonction ne fait pas ce que je lui demande).
Savez-vous d'ou vient ce problème ?

Merci beaucoup d'avance.

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
Sub filtragefichierelec()
'
' Macro1 Macro
' Macro enregistree le 25/06/2010 par ALJ
'
Dim Var1 As Integer
Dim Var2 As Integer
Dim Var3 As Integer
Dim VarB1 As Integer 'variable qui designe le numero de ligne actuel dans le fichier elec
Dim VarB2 As Integer
Dim Compteur1 As Integer
Dim Compteur2 As Integer
Dim longueur1
Dim longueur2
Var1 = Worksheets("feuille de config").Cells(1, 2).Value 'colonne du nom des actionneurs
Var2 = Worksheets("feuille de config").Cells(3, 2).Value 'nombres de lignes
Var3 = Worksheets("feuille de config").Cells(4, 2).Value 'colonne du commentaire
Compteur1 = 3
Compteur2 = 3
 
For VarB1 = 2 To Var2
 
 
 
If Left(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), 1) = "M" And Right(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), 2) = "IM" Then
Worksheets("fichier elec").Cells(VarB1, Var1).Value = ""
End If
 
 
If Left(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), 1) = "V" And Right(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), 2) = "IO" Or Right(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), 2) = "IC" Then
 
For VarB2 = 2 To Var2
 
       longueur1 = Len(Worksheets("fichier electrique modifie").Cells(VarB2, Var1)) - 2
       longueur2 = Len(Worksheets("fichier electrique modifie").Cells(VarB1, Var1)) - 2
 
       If (Left(Worksheets("fichier electrique modifie").Cells(VarB2, Var1), longueur1)) = Left(Worksheets("fichier electrique modifie").Cells(VarB1, Var1), longueur2) And (Right(Worksheets("fichier electrique modifie").Cells(VarB2, Var1), 2) = "CC" Or Right(Worksheets("fichier electrique modifie").Cells(VarB2, Var1), 2) = "CO") Then
        Worksheets("fichier electrique modifie").Cells(VarB1, Var1).Value = ""
        End If
    Next VarB2
End If
 
Next VarB1
 
End Sub

[Didier Gonard]

Bonjour,

quel est la valeur de ton len au moment du plantage ?

ton code permet une valeur négative....

cordialement,

Didier

[auronlepabon]

merci beaucoup effectivement ma fontion len pouvait renvoyer une valeur inférieur à 0, j'ai ajouté un if longueur1>0 and longueur2>0 et ça marche.
Vraiment désolé car mon problème était vraiment idiot.
Cordialement.

ps: comment mettre résolu ?