VBA-Excel-Pb avec left

Version imprimable

29/12/2006, 16h25
captaine93

VBA-Excel-Pb avec left

Bonjour!
Je travaille dans un code ou la fonction if left...fonctionne bien si je spécifie le nb de caractères à identifier...voir le code suivant...

Code:

If (Left(rl.Cells(2), 6) = Left(r2.Cells(3), 6)) Then

Je voudrais remplacer le chiffre 6 par (len(rl.cells(2) - 2) ce qui donnerait

Code:

If (Left(rl.Cells(2), (len(rl.cells(2) - 2)) = Left(r2.Cells(3), (len(rl.cells(3) - 2))) Then

Mais cela ne fonctionne pas...
Merci à celui qui pourra m'aider ;)
29/12/2006, 17h04
Pierre Fauconnier

Bonjour

Dans la deuxième partie de ton égalité, tu as

Code:

Left(r2.Cells(3), (len(rl.cells(3) - 2)))

Left(r2.Cells(3), (len(rl.cells(3) - 2)))

Est-ce normal?
29/12/2006, 17h16
captaine93

non, effectivement, c etait pas normal...
J ai cru que j allais passer pour un c.. mais en fait ca ne marche toujours pas en rectifiant ca
Merci de ton aide
29/12/2006, 17h25
Pierre Fauconnier
Tu as un petit cafouillage dans les parenthèses (en trop juste avant len, trop peu avant le -2

Ceci
Code:

1 2 If (Left(rl.Cells(2), Len(rl.Cells(2)) - 2) = Left(r2.Cells(3), Len(r2.Cells(3)) - 2)) Then
fonctionne-t'il?

Ca bug toujours et il met "argument ou appel de procédure incorrect" en message d'erreur mais quand je regarde le fichier, il fait bien ce que je lui dit
Je te mets le code en entier pour tout voir...

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
   Sheets("Feuil1").Select
    Dim rw As Range 'Tableau de donnée Source
 Dim rl As Range ' ligne du tableau de donnée
 Dim r2 As Range
 Dim cDest As Range ' Cellule de destination
 
 
 
 Set cDest = Range("H1") ' 1°Cellule destination
 
 
 Set rw = Cells(3, 1).CurrentRegion ' on suppose que le tableau de donnee commence en C1..
 For Each rl In rw.Rows 'parcours les lignes du tableau de donnée source
   Debug.Print "Compare " & rl.Cells(3).Address & " et " & rl.Cells(2).Address
  For Each r2 In rw.Rows
If (Left(rl.Cells(2), Len(rl.Cells(2)) - 2) = Left(r2.Cells(3), Len(r2.Cells(3)) - 2)) Then
      cDest.Value = r2.Cells(3)  ' Copie contenue colonnes c etD D ( 4°)
      cDest.Offset(0, 1) = r2.Cells(4)
      cDest.Offset(0, 2) = r2.Cells(5)
     Exit For
   End If
  Next
   Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
 Next

Merci encore

29/12/2006, 18h17
Pierre Fauconnier

Je ne comprends pas trop ton code...
Notamment la ligne

Code:

for each r2 in rw.rows

qui, à mon avis, boucle sur la même ligne que r1...
Peux-tu expliquer ce que tu souhaites réaliser?
29/12/2006, 19h02
captaine93

soyons plus clairs...
JE souhaite comparer la valeur de la case C avec celle de la case B...a 2 caractères près(les derniers)...si B=C alors copie en H ce qu'il y a dans les cases C D et E....
voila ce que je souhaite faire...
Merci:oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Copie()
    Dim Cellule As Range ' objet Plage
 
    ' on itère sur les cellules de C1 jusqu'à la dernière cellule de c remplie
    For Each Cellule In Range("c1:c" & Range("c65536").End(xlUp).Row)
        If Left(Cellule, Len(Cellule) - 2) = Left(Cellule(1, 0), Len(Cellule(1, 0)) - 2) Then
            ' si égalité aux deux caractères de droite près, on copie en h
            Range(Cellule, Cellule(1, 3)).Copy Destination:=Range("h" & Cellule.Row)
        End If
    Next Cellule
End Sub

Cela fonctionne-t'il?

P.S.: ajouter la sélection de la feuille avant, je l'avais oublié

29/12/2006, 19h20
captaine93

désolé mais ca renvoie la meme erreur et ca bloque toujours a la ligne If left...
29/12/2006, 19h26
Pierre Fauconnier

Dans mon exemple, je n'ai pas testé le left... - 2
Si tu as une cellule en C qui contient moins de 2 caractères ou qui est vide, il y a plantage...

Il faudrait donc insérer une vérification que len(...) renvoie au moins 2 et décider de ce qui se passe si ce n'est pas le cas...

Ok?

ca donnerait un truc comme ca mais je ne sais pas comment sortir de la boucle si X ou XX <1
JE ne peux pas mettre end sub car j ai encore un bout de code après
merci si tu peux encore m aider:P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Sheets("Feuil1").Select
     Dim Cellule As Range ' objet Plage
    Dim X As String
     Dim XX As String
    X = (Len(Cellule) - 2)
    XX = (Len(Cellule(1, 0)) - 2)
 
 
    ' on itère sur les cellules de C1 jusqu'à la dernière cellule de c remplie
    For Each Cellule In Range("c1:c" & Range("c65536").End(xlUp).Row)
        If Left(Cellule, X) = Left(Cellule(1, 0), XX) Then
            ' si égalité aux deux caractères de droite près, on copie en h
            Range(Cellule, Cellule(1, 3)).Copy Destination:=Range("h" & Cellule.Row)
            If X < 1 Then
            If XX < 1 Then
 
        End If
        End If
        End If
    Next Cellule

29/12/2006, 21h34
SfJ5Rpw8
j'ai pas tous relu mais pour sortir d'une boucle FOR c'est Exit FOR...
Code:

1 2 If X < 1 Then Exit For
29/12/2006, 22h04
captaine93

merci bbil
maintenant ca bloque a X = (Len(Cellule) - 2)
ca me semble correct pourtant ...
Merci a ceux qui m aideront;)
29/12/2006, 22h06
SfJ5Rpw8

ça bloque ...? un message ..?

à oui j'avais pas tout relu .. mais là ou tu fais XX = len(Cell...) ..
Cellule n'ai pas encore initialisée...! et est "nulle" Nothing....

j ai essayé comme ca mais la ca bloque a If left....imcompatibilité de type:?

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
   Sheets("Feuil1").Select
     Dim Cellule As Range ' objet Plage
    Dim X As String
     Dim XX As String
 
 
 
    ' on itère sur les cellules de C1 jusqu'à la dernière cellule de c remplie
    For Each Cellule In Range("c1:c" & Range("c65536").End(xlUp).Row)
 
        If Left(Cellule, X) = Left(Cellule(1, 0), XX) Then
 
               If X < 1 Then Exit For
            If XX < 1 Then Exit For
                    X = (Len(Cellule) - 2)
    XX = (Len(Cellule(1, 0)) - 2)
            ' si égalité aux deux caractères de droite près, on copie en h
            Range(Cellule, Cellule(1, 3)).Copy Destination:=Range("h" & Cellule.Row)
 
 
 
        End If
 
 
    Next Cellule

29/12/2006, 23h01
SfJ5Rpw8

C'est quoi X et XX pour toi ... ? pourquoi les déclare tu en chaine... len renvoi un entier ...?..... ensuite pour la 1° iteration de ta boucle ... ton X et XX sont = à 0...car pas initialisés.
29/12/2006, 23h06
fast&furious

bonsoir capitaine93,

Dans ton dernier code, tes variables X et XX ne contiennent rien. N'est ce pas le problème ?

fast

en fait comme ca, ca marche...

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
Sheets("Feuil1").Select
    Dim rw As Range 'Tableau de donnée Source
 Dim rl As Range ' ligne du tableau de donnée
 Dim r2 As Range
 Dim cDest As Range ' Cellule de destination
 Dim X As String
 Dim XX As String
 
 
 
 
 Set cDest = Range("H1") ' 1°Cellule destination
 
 
 Set rw = Cells(3, 1).CurrentRegion ' on suppose que le tableau de donnee commence en C1..
 
 For Each rl In rw.Rows 'parcours les lignes du tableau de donnée source
   Debug.Print "Compare " & rl.Cells(3).Address & " et " & rl.Cells(2).Address
 
  For Each r2 In rw.Rows
X = 1
XX = 1
X = (Len(rl.Cells(2)) - 2)
XX = (Len(r2.Cells(2)) - 2)
If X < 1 Then Exit For
If XX < 1 Then Exit For
 
If (Left(rl.Cells(2), X) = Left(r2.Cells(3), XX)) Then
 
 
      cDest.Value = r2.Cells(3)  ' Copie contenue colonnes c etD D ( 4°)
      cDest.Offset(0, 1) = r2.Cells(4)
      cDest.Offset(0, 2) = r2.Cells(5)
     Exit For
 
   End If
  Next
   Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
 Next

merci de votre aide et de vos précieux conseils;)

30/12/2006, 10h55
SfJ5Rpw8

juste pour le fun ... pourquoi t'obstine tu as déclarer tes variables X et XX en string ... alors que tu les utilises ensuite comme des entiers !!
30/12/2006, 18h44
captaine93

je viens de me rendre compte que string ne s'applique pas a ce genre de variable...mais bon vu que ca passait comme ca, j ai pas creusé...
EN fait, j'aurais du déclarer en integer...reprends moi si j ai dit une bêtise...
Merci pour ce commentaire bbil, ca me fait progresser encore un peu plus;)